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Introduction 


Lee Pappas and Mike DesChenes of Worcester, Massachusetts bought their first Atari home com¬ 
puters in November of 1979. Their first year as Atari owners was spent developing their program¬ 
ming skills, blowing away Zylons, and tearing out their hair because of the lack of support for their 
new machines. Where was the information that they (and thousands of other Atari owners) so 
desperately needed? From the seeds of this frustration. Atari users groups began sprouting up all 
over the country. New Atari owners started pooling their knowledge and linking their collective 
consciousness via bulletin board systems. Nevertheless, there was no dedicated publication for 
their systems, no single source of information that could link Atari owners together. Lee and Mike 
decided to do something about it. 

In November of 1980, they started an Atari-only publication called A.N.A.L.O.G* 400/800 
Magazine. The first issue was only 40 pages long, and had a modest print run of 4000 copies. Grati- 
fyingly, it sold out. Almost three years and 15 issues later, A.N.A.L.O.G Computing has grown to 
over 160 pages, with a world-wide distribution of over 80,000 copies — and no end in sight. 

With the smaller print runs of the earlier issues, we had virtually no returns. Supplies of back 
issues sent out from our editorial offices were quickly exhausted. Reprints were done of issues 2, 3 
and 4. These sold out, too. Compounding the problem was the fact that the newcomers to 
A.N.A.L.O.G. wanted any and all issues previous to the first one they purchased. The later the 
issue, the more back issues they needed. The solution? This book. 

The A.N.A.L.O.G. Compendium is not intended as an all-encompassing primer on Atari pro¬ 
gramming. Although many of the programs included here were originally written as tutorials, it was 
never our intention to publish a textbook. The A.N.A.L.O.G. Compendium is presented solely 
as a collection of programs to benefit those who missed out on our first ten issues. Some of the 
programs here have been revised and improved since they originally appeared in the magazine. 
We have also included several programs never before published. 

Whether you’re interested in utilities, tutorials or games, we hope you enjoy our first book. 


Jon A. Bell 
Managing Editor 

A.N.A.L.O.G. Computing 




CHECKSUM PROGRAMS 


Important! 

All of the programs in The A.N. A.L.O.G. Compendium were listed from working copies of 
the program in order to minimize errors. However, there is a strong possibility of readers mis^typing 
programs, especially when entering lengthy listings. Before you type in any of these programs, it is 
strongly advised that you read pages lAO. (CiCHECK and D: CHECK 2). These programs will assist 
you in checking for typing errors when entering in programs from The A.N.A.L.O.G. Compen¬ 
dium. 
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C: CHECK 


16K Cassette 

by Istvan Mohos and Tom Hudson 


When typing programs into your computer from 
the A.N.A.L.O.G. Compendium, there is always 
a chance of making a mistake. CrCHECK will help 
you find such errors very easily. Type in the accom- 
panying program and SAVE it. Follow the instruct 
tions below to check CrCHECK as you would any 
other program. 

CHECKing your typing. 

1. Type in the program listing from the Com¬ 
pendium. Visually check it for obvious errors 
(missing lines, etc ). 

2. LIST the program to be checked to 
cassette. Use the command: 

LIST ^'Cr” 

3. LOAD CrCHECK and RUN it. 

4. CrCHECK will ask you if you want the 
output to go to the screen or printer. Type S for 
screen or P for printer and press RETURN. 

5. CrCHECK will ask for an issue number. 
For the Compendium, type 99 and press RE¬ 
TURN. If you read A.N.A.L.O.G. Comput¬ 
ing Magazine, you can use CrCHECK to check 
the programs in each issue. Just type the issue 
number and press RETURN. 

6. Position the tape to the beginning of the 
program to be checked and press PLAY on the 
program recorder. Press RETURN. 

7. CrCHECK will begin reading the program 
from tape and generate a checksum table. This 
data should match the ^'CHECKSUM DATA” 
printed after the program listing you are 
checking. The following example shows how to 
check for errors. 

Sample Compendium CHECKSUM DATA: 

10 DATA 34^55,234,22,55,38,93,45,114, 

285,633,442,453,23,31,2957 

160 DATA 82,94,64,73,347,199,287,84,15 

6,368,59,40,98,9,342,2302 

310 DATA 65,356,101,25,547 


Sample CrCHECK output: 


10 DATA 34,455,234,22,55,38,244,45,114 

,285,633,442,453,23,31,3108 

160 DATA 82,94,64,73,347,199,287,84,15 

6,368,59,40,98,9,342,2302 

310 DATA 65,101,34,200 


Each line of the program being checked has 
its own checksum value. If any characters in the 
line are incorrect, the checksum value will be 
different from the corresponding value in the 
Compendium. The checksum data is set up so that 
there are 15 checksum values in each line with the 
16th value containing the total of the checksums. 

The line number of the checksum line tells which 
line number is first in the checksum group. In the 
example above, the first line checked in the first 
checksum line is 10, and its checksum is 34. The first 
line checked in the second checksum line is 160, and 
its checksum is 82. The first line checked in the third 
checksum line is 310, and its checksum is 65. 

Let’s assume the CHECKSUM DATA above was 
listed in the Compendium, and you typed in the 
program and checked it with CrCHECK. 

The first thing to do would be to look at the total 
of the values in the first line. This value should be 
2957, as shown in the Compendium CHECKSUM 
DATA. However, in the results in the CrCHECK 
output, the total is 3108. This means that there is an 
error in the 15 checksum values in this line. Com¬ 
paring the Compendium checksums to the 
CrCHECK output, we find that the seventh check¬ 
sum is 244 in the CrCHECK data, and should be 93. 
This means that there is an error in the seventh line 
of the program. Note the error and continue 
checking. The rest of the line is correct, so we go on 
to the second line. 

Now we check the total of the second line of 
checksum data. The total of 2302 in our CrCHECK 
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data matches the total in the Compendium, so we 
can go on to the third checksum line. 

The third checksum line is different from the 
others in that it only checks four lines. This is 
because it is at the end of the program, and the pro^ 
gram did not have an even multiple of 15 lines. The 
line is checked the same as the others. As you can see, 
the total of the line should be 547, but is only 200 in 
the CrCHECK data. Looking at the C:CHECK 
output, you will notice that there is one less check¬ 
sum value (the 356 in the Compendium checksum 
data). This means that the first line in the program 
after line 310 is missing. The last checksum in this 
line is also incorrect. It is a 34 and should be 25 . This 
means that the third line after line 310 in the pro¬ 
gram is incorrect. 

To summarize, there were 3 errors in the program 
we checked. Two errors were caused by mistakes in 
the lines, and a third appeared because a whole line 
was missing. 

,,..Qnce you have noted all errors, type NEW and 
press RETUTIN. This erases the CiCHECK 
'program. Next, bring the program being checked 
into memory by positioning the tape and typing: 
ENTER '^C:” 

If the program had errors, correct the lines in 
error. If there were no errors, the program is correct 
and ready to run. □ 


330 ? ;TOT0L=TOT0L + CHK5IJ 

M:G0T0 230 

340 CLOSE LIlNECOUNTrZ. THEW 370 

350 ^ 1*2; TOTAL 
360 CLOSE t*2:EH0 

370 ^ "Vour typed-in program wa 

s not properlyLISTed to tape.** 

380 ? **Ple35e LIST your program to 
tape, thenPUN •*;CHR$t34) ;**CHECK'*;CHP$f 
34);** again .**;CL0SE tt2;CLR :END 


CHECKSUM DATA 
(See pgs. 7-10) 

J00 DATA 1S8,75S,11,135,1S1,594,1S8,80 
6,763,467,331,100,465,572,107,6297 
250 DATA 764,322,11,168,375,783,304,25 
3,534,830,875,136,732,361,7114 


100 REM DEBUGGING AID 

BV ISTUAH NOHOS 

110 REM UERSION 2 MODS AND CASSETTE 
120 REM VERSION BV TOM HUDSON 
130 GRAPHICS 0:^ **Thi5 run will LIS 
T data statements to the screen or 
printer. ** 

140 ^ **This DATA is created by eual 
uatinq each character of a user pro 

gram, LISTed to tape,**;'^ 

150 DIM OUTS(l),1$ (128) .CR>fl) 

160 ^ **0UTPUT TO gCREEN OR QRINTER**;;! 
NPUT 0UT$;IF 0IJT$T>**S*' AND 0IJT$<>**P** T 
HEN 160 

170 IF 0UT$z**S** THEN OPEN tt2,8,0, **E S **; 
GOTO 200 

180 CLOSE **aREADY PRINTER AND PRE 

SS IdllljlCj"; :INPUT CR$ 

130 TRAP 1180;0PEM tt2,8,0, **P ; ** 

208 ^ **EMTER ISSUE NUMBER**;; TRAP 20 

0:INPUT ISSUE _ 

210 ? “READY TAPE AND PRESS HatiM:ITI ** 
; ;0PEN ttl,4,6 ,**C:**;^ 

220 Zr0;LINECOUNT=:Z;PLIM=Z;K:=2 

230 TRAP 340;INPUT ttl,1$;LINECOUNTzLTN 

ECOUNT + 1 ;LINUM=UAL (iSd .5)) 

240 NLCK=NLCK+l;IF NLCK>1 AND NLCK<16 
THEN 230 

250 IF LINECOUNTzl THEN 280 
260 ? tt2;TOTAL;NLCKrl 

270 IF 0UTSi:**S“ THEN PLTNrPLIN+1 : IF PL 
IN-10 THEN ^ *»PRESS TO CONTINUE 

**; sINPUT CR$:PLIN=0 
280 TOTALirZ;^ »2;LINUM;** DATA *'; 

230 CHKSUMi:Z;TF ISSUE>3 THEN H^2 
300 FOR 1=1 TO LEN(I$);PR0DUCT=KNASC(T 
S Cl, I) ) : CHKSUMrCHICSUM+PRODUCT : K=K + 1 ; IF 
K=4 THEN H-t 

310 NEXT I;CHKSUM=CHKSUM+K*155:K=XT1;I 
F X=4 THEN K = .t 

320 CHKSUM=CHKSUM-10e0*INT CCHKSUM/IOOO 
) 
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0:CHECK 2 


16K Disk 

by Istvan Mohos and Tom Hudson 


When typing programs into your computer from 
the A.N.A.L.O.G. Compendium, there is always 
a chance of making a mistake. D:CHECK2 will help 
you find such errors very easily. Type in the accom¬ 
panying program and SAVE it. Follow the instruc¬ 
tions below to check D:CHECK2 as you would any 
other program. 

CHECKing your typing. 

1. Type in the program listing from the Com¬ 
pendium. Visually check it for obvious errors 
(missing lines, etc.). 

2. LIST the program to be checked to disk. 
Use the command: 

LIST ”D:progname” 

3. LOAD D:CHECK2 and RUN it. 

4. DiCHECK will ask for a filename. Re¬ 
spond: 

D:progname 
and press RETURN. 

5. D:CHECK2 will ask for an issue number. 
For the Compendium, type 99 and press RE¬ 
TURN. If you read A.N.A.L.O.G. Comput¬ 
ing Magazine, you can use D:CHECK2 to 
check the programs in each issue. Just type the 
issue number and press RETURN. 

6. D:CHECK2 will execute. The screen will 
go black in order to speed up the program. 

7. When D:CHECK2 finishes, it will display 
final instructions. At this time you should type 
NEW and press RETURN. 

8. When D:CHECK2 executed, it created a 
BASIC file on disk called BUG. ENTER it into 
your computer with the command: 

ENTER *^D:BUG” 

This file should match the '‘CHECKSUM 
DATA” printed after the program listing you are 
checking. The following example shows how to 
check for errors. 

Sample Compendium CHECKSUM DATA: 

10 DATA 34,455,234,22,55,30^93,45,114, 

205,633,442,453,23,31,2957 

160 DATA 02,94,64,73,347,199,207,04,15 

6,360,59,40,90,9,342,2302 

310 DATA 65,356,101,25,547 


Sample ''D:BUG’’ CHECKSUM DATA: 

10 DATA 34,455,234,22,55,30,244,45,114 

,205,633,442,453,23,31,3100 

160 DATA 02,94,64,73,347,199,207,04,15 

6,360,59,40,90,9,342,2302 

310 DATA 65,101,34,200 

Each line of the program being checked has its 
own checksum value. If any characters in the line are 
incorrect, the checksum value will be different from 
the corresponding value in the Compendium. The 
checksum data is set up so that there are 15 check¬ 
sum values in each line with the 16th value contain¬ 
ing the total of the checksums. 

The line number of the checksum line tells which 
line number is first in the checksum group. In the 
example above, the first line checked in the first 
checksum line is 10, and its checksum is 34. The first 
line checked in the second checksum line is 160, and 
its checksum is 82. The first line checked in the third 
checksum line is 310, and its checksum is 65. 

Let’s assume the CHECKSUM DATA above was 
listed in the Compendium, and you typed in the 
program and checked it with D:CHECK2. 

The first thing to do would be to look at the total 
of the values in the first line. This value should be 
2957, as shown in the Compendium CHECKSUM 
DATA. However, in the results in the BUG file, the 
total is 3108. This means that there is an error in the 
15 checksum values in this line. Comparing the 
Compendium checksums to the BUG checksums, 
we find that the seventh checksum is 244 in the BUG 
data, and should be 93. This means that there is an 
error in the seventh line of the program. Note the 
error and continue checking. The rest of the line is 
correct, so we go on to the second line. 

Now we check the total of the second line of 
checksum data. The total of 2302 in our BUG file 
matches the total in the Compendium, so we can go 
on to the third checksum line. 

The third checksum line is different from the 
others in that it only checks four lines. This is 
because it is at the end of the program, and the pro¬ 
gram did not have an even multiple of 15 lines. The 
line is checked the same as the others. As you can see. 
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the total of the line should be 547, but is only 200 in 
the BUG file. Looking at the BUG file, you will 
notice that there is one less checksum value (the 356 
in the Compendium checksum data). This means 
that the first line in the program after line 310 is 
missing. The last checksum in this line is also incor¬ 
rect. It is a 34 and should be 25. This means that the 
third line after line 310 in the program is incorrect. 

To summarize, there were 3 errors in the program 
we checked. Two errors were caused by mistakes in 
the lines, and a third appeared because a whole line 
was missing. 

Once you have noted all errors, type NEW and 
press RETURN. This erases the D:CHECK2 
program. Next, bring the program being checked 
into memory by typing: 

ENTER ''D:progname” 

If the program had errors, correct the lines in 
error. If there were no errors, the program is correct 
and ready to run. □ 


to OEM 0E8UGGING OTO 

BY TSTUflN MOHOS 

REM UERSION ^ MODS BY TOM HUDSON 
30 GRAPHICS 0!^ "Thi? run will LIST 

data statpwnts with thP na»Pi dllB 
, to thP disk." 

40 ^ "ThP DOTO i q: rppatPd by PV 

aluating each character of a user prog 
rai^, LXSTed to disk,":^ 

50 DIM FI$C15^ 

60 CLOSE ttl;^ "ENTER EILENOME";; INPUT 
FTS 


constants 


70 PIK=PEEKC55S^;Z=0;REM _ 

80 "ENTER ISSUE NUMBER";; TROP 80 J 

INPUT ISSUE 

SO TROP 60;OPEN ttl.4,0,FI$ 

LOO ON K GOTO 180,280 

ItO ^ "DISABLING SCREEN...STOND 

BY..,":FOR Irl TO 800;NEKT T;P0KE 55S, 
Z:REM debug before poking 
120 LINEC0UNTzZ;DIH T5C126^ 

130 TROP .t50;INPUT ttl; 1$ ; LINECOUNTzLIN 

ECOUNT+1 

140 GOTO 130 


150 CLOSE ai:0rINTCLTNEC0UNT/151;DIM C 
CLINECOUNT),R(05,5$f55;IF CLINECOUNTnZ 
OR T$r:""3 THEN 530 

160 IF 05C(I$(1,155<48 OR 0SCCT5C1,155 
>57 THEN 530 
170 X=l;G0T0 SO 

180 RONGErZ;LINE=Z;FOR 1=1 TO 5:S$(I.I 
5=" ":NEXT I 
ISO C0UNT=Z 

200 INPUT ttl;lS;Ti:l;COUNT = COUNT + l 
210 IF ISCT,T5 0" " THEN SS (T , T5 =1$ CT , 
T5;T=T+1:G0T0 210 
220 LTNE=U0L(SS5 


230 R(R0NGE5=LINE:R0NGE=R0NGE+1 
240 TROP 270:INPUT 

250 C0UNT = C0IJNT + 1 ;TF COUNTrtB THEN ISO 
260 GOTO 240 


270 CLOSE ttl;K=2;G0T0 SO 
280 FOR 1 = 1 TO LTNECOUNT;CHECKS|JM=Z 
2S0 GET Itl, NUMBER ;PRODUCT = K*NUMBER ; CHE 
CKSUM=CHECKSUH+PR0DUCT;K=K+1;IF K=4 TH 
EN H=l 

300 IF NUMBER=155 THEN 320 
310 GOTO 2S0 

320 CHECKSUM=CHECKSUM-100O*TNTCCHECKSU 
M/10005:C<I)=CHECKSUM;IF ISSUE>S THEN 
H=2 


330 NEXT I 

340 CLOSE Jtl:0PEN «1, 3 ,0 , "D i BUG” ^ LIHE = 
RCZ5:ITEM=Z 


350 C0UNT=15;T0T0L=ZlIF LINEC0UNT<15 T 

HEN COUNT=LINECOUNT 

360 PRINT ltl:LIHE;" DOTO "; 

370 FOR 1=1 to COUNTID0TUM=C(15*ITEM+I 
5 :PRINT ttl;00TUM;","; S T0T0L = T0T0L + D0TU 
M:NEXT I 

380 PRINT ttl;T0TRL 

3S0 ITEM=ITEM+1;LINEC0UNT=LINEC0UNT-15 
:IF LINEC0UNT<1 THEN 420 
400 LINE=RCITEM5 
410 GOTO 350 

420 CLOSE ttlrPOKE 55S,PIK 
430 ^ "NQTo check [HTTB data against pri 
nted data statements, type NEM. Th 

en type;" 

440 ^ "ENTER CHR$ <345 ; "D ; 800130011311 • 

Type LIST after the 

REODV prompt." 

450 ^ :? "The line number of each data 
statementcoincides with the first lin 
e of the" 

460 ? "user program which the data sta 
tement evaluates." 

470 ^ "Numbers within each data statem 
ent represent consecutive lines of 

the user program," 

480 ? "The last numb er i s the total." 
4S0 "Check the number of eac 

h state- ment against the printed ver 
Sion;" 

500 ^ "only in case of a discrepancy c 
beck each number in the data stateme 
nt." 

510 ^ "Make note of the lines containi 
ng the b ugs. T hen ENTER ";CHR$C345;"D: 

yoiirprogQllninC]" 

520 "to make the correct i nns FND 
530 POKE 55S,PIK;? "Your typed- 

in program was not properlyLISTed to d 
isk 

540 "Please LIST your program to 

disk, thenRUN ";CHR$C345;"D;CHECK";CHR 
5C34);" again.":CLR ;END 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DftTO 44,815,767,524,686,389,806,850 

,86,721,921,593,591,704,974,9471 

160 OOTO 482,125.389,696,567,797,442,5 

61,230,89,717,216,943,541,299,7094 

310 OOto 719,711,741,427.244,435,288,5 

84,553,441,711,499,803,322,515,7993 

460 DOTO 246,684,406,232,123,700,480,7 

74,500,4145 



PROGRAMMING UTILITIES 
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UNLEASH THE POWER 
OF ATARI 'S CPU 


by Ed Stewart 


Would you like to get as much as a 30% increase in 
speed from your ATARI 6502 CPU? Would you 
also like to get this benefit without any additional 
capital expense? If your answer is no, you probably 
don’t like apple pie, either. . .but if your answer is 
yes, read on, and I will tell you how to accomplish 
such a feat with one simple BASIC POKE in the right 
place. 

First, a little background information about one 
of the many things going on inside your ATARI 
computer. The particular thing that I want you to 
know about is how display information reaches your 
TV screen. There is a hardware chip called ANTIC 
that has most of the responsibility for seeing that the 
display gets to your TV screen. ANTIC does this by 
operating independently from the main 6502 CPU 
in your computer. ANTIC is, in fact, a primitive 
CPU in its own right. It executes a program which is 
located in RAM, just as the 6502 executes a program 
in RAM or ROM. We can therefore call the ATARI a 
multiprocessing computer, since more than one 
CPU may be active at any time. 

A peculiar and somewhat unfortunate thing hap¬ 
pens when a multiprocessing system such as the 
ATARI is actively executing instructions — both 
CPUs desire access to memory simultaneously. The 
two CPUs cannot both access memory at the same 
time, so one must wait until the other completes its 
access request. This memory access conflict is 
common to all computers containing more than one 
CPU — from micros to macros — and is generally 
not something to be concerned about. 

The ANTIC chip fetches its data from memory 
using a technique called ''Direct Memory Access” or 
DMA. Whenever this memory fetch is occurring, 
the 6502 is temporarily halted. DMA is said to be 
"stealing” a portion of the computer’s available 
time, called a cycle. There are 1,789,790 cycles of 
computer time available per second. If DM A had not 
"stolen” that cycle of computer time, the 6502 


would not have been halted and, therefore, would 
have finished its program instructions sooner. It is 
only logical to conclude that the more this DMA ac¬ 
tivity occurs on behalf of the ANTIC chip, the more 
our 6502 will be slowed down. 

The ANTIC chip re-displays the entire TV display 
60 times each second. During this period, many 
computer cycles are stolen from the 6502. During 
each of these 60 times, the ANTIC chip also "inter¬ 
rupts” the 6502 and causes it to perform such tasks 
as updating various software timers and reading 
game controllers (joysticks and paddles). When the 
6502 finishes what it must do in response to the 
ANTIC "interrupt,” it may continue with what it 
was doing previous to being sidetracked by ANTIC. 
You should be getting the picture by now that, al¬ 
though ANTIC is indispensable, it causes a slow¬ 
down in the 6502 CPU. But how much? 

I wrote a simple BASIC program for my ATARI 
800 in an attempt to answer this question. A 
FOR/NEXT loop was executed 100,000 times with 
no intervening statements as follows: 

20 FOR 1=1 TO ieeeoo:NEXT i 

The first thing to measure was how long this loop 
executes with no ANTIC DMA active. A POKE 
559,0 turned DMA off, and the TV screen went 
black. A POKE 559,34 turned DMA back on, and 
the original display was restored. The FOR/NEXT 
loop was executed in graphics modes 0-8 with DMA 
active, and the executive times were observed as 
shown in Table 1. The execution times with DMA 
increased from as little as 10% for graphics 3 to as 
much as 47% for graphics 8. 

It is easy to see that — if you do a lot of number 
crunching and you don’t need the TV screen, soft¬ 
ware timers or game controllers — then turn off the 
ANTIC DMA for a while, and you’ll get your answer 
back sooner. It is also apparent from the chart below 
that your programs will execute faster if you are 
using graphics modes 3, 4, or 5. 
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1 hope you have learned a little bit more about the 
ATARI computer and how the ANTIC DMA inter¬ 
feres with the 6502 CPU. You may someday be able 
to leash that latent power within during a computer 

chess tournament, and — when 

someone asks how 

in the world you 

did it — you can 

smile and say, "'me 

and my DMA.” 

□ 


GRAPHICS 

EXECUTION 

% INCREASE 

MODE 

SECONDS 

(over no-DMA) 

NO DMA 

148 


GRAPHICS 0 

216 

46 

GRAPHICS 1 

188 

27 

GRAPHICS 2 

186 

26 

GRAPHICS 3 

163 

10 

GRAPHICS 4 

164 

11 

GRAPHICS 5 

167 

13 

GRAPHICS 6 

173 

17 

GRAPHICS 7 

185 

25 

GRAPHICS 8 

218 

47 


Graphics 9 GTIA Demo 


le REH GRAPHICS 9 GTIA DENO COUALI 
26 REH 

36 GRAPHICS 9 
46 C=6:SETC0L0R 4,C,e 
56 FOR X=6 TO 39 
66 FOR Y=6 TO 95 

76 XI^39-X:YH=95-Y: COLOR INT CSQR CXI6(XH 
♦YW^YIO /6.5) 

86 PLOT X.Y 
96 PLOT 79-X,Y 
166 PLOT X,191-Y 
116 PLOT 79-X,191-Y 
126 NEXT Y 
136 NEXT X 

146 C=C41:IF 015 THEN C=6 
156 SETCOLOR 4,C,6 
166 FOR TIHE=1 TO 566:NEXT TINE 
176 GOTO 146 


CHECKSUM DATA 
(See pgs. 7-10) 

16 DATA 682,253,174,806,296,293,938,61 
7,923,418,747,766,767,154,494,6462 
166 DATA 433,716,1149 
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CONSOLE BUnON 
SUBROUTINE 


16K Cassette or Disk 


by Jerry White 


The ATARI BASIC Reference Manual describes 
decimal location 53279 as ^^Console switches” (bit 
2= Option; bit 1= Select; bit 0= Start. POKE 
53279,0 before reading. 0= switch pressed). 

The would'be BASIC programmer has got to be a 
bit confused after reading the above. In BASIC, you 
normally don’t think about bit settings, and the 
beginner has a long way to go before he or she will 
have to worry about such things. 

The point is that a BASIC PEEK (53279) will tell 
you which console buttons, if any, are pressed. You 
can see how pressing one or more buttons changes 
the value of that location with a onedine program. 
Enter line 10 below, then type RUN and RETURN. 
Watch the screen as you press the various console 
buttons, then press BREAK to abort. 

10 PRINT PEEKC53279I:GOTO 10 

Now for a somewhat more useful demonstration, 
enter the CONSOLE BUTTON SUBROUTINE. 
Note that although it is a subroutine, it has been set 
up so that it will run without any additional code. Of 
course, you could access it from your own program 
with a GOTO 30000. 

This routine provides the user with three options. 
It will allow you to RERUN THIS PROGRAM (the 
program currently in RAM), RETURN TO BASIC 
(which is a fancy way to say END), or RUN A 
MENU PROGRAM from diskette. Naturally, you 
could change these options to whatever your own 
program requires. The START button is used to 
execute the option that is currently displayed, using 
inverse video. Pressing the OPTION or SELECT 
buttons will change the previously highlighted op¬ 
tion back to normal video and highlight the next op¬ 
tion. When the desired option is highlighted, the 
START button is used to say ”DO IT.” 

Since this is a routine you will modify and include 
in many of your own programs, it should be LISTed 
onto cassette (LIST ”C:”) or disk (LIST ”D: 
BUTTON. LST,” 30000, 30170). When you 
want to include it as part of your own program 
currently in RAM, ENTER ”C”: from cassette or 
ENTER ”D: BUTTON. LST” from disk. □ 


IRERUN THIS P 


0 REH CONSOLE BUTTON SUBROUTINE 

1 REH BY JERRY MHITE 6/5/82 

30000 GRAPHICS 0:P0KE 752,1:P0KE 710,4 

8:POKE 82,2:POKE 281,S_ _ 

30010 ? “6444^ Use the UliMWiV] or M4NMi 
button to*':? :? highlight your choi 

ce below, then" _ 

30028 ? :? *‘^ press the aCTLl button." 
:F0R HE=8 TO 8:P0KE 5327S, :NEXT miQ 

OSUB 3010e:SEL=ll 
30030 POSITION SEL,SEL:? 

EnaaEC" 

30040 BUTT0Ni:PEEKC53279) :IF BUTTON-7 T 
HEN 30040 

30050 GOSUB 30140:IF CH0ICE=6 THEN 381 
10 

30060 SELrSEL42:IF SEL>15 THEN SEL=11: 
GOSUB 30100:GOTO 30030 

30070 IF SELrl 3 THEN GOSUB 30 108:POSIT 
ION 11,SEL:? ; GOTO 30 

040 

30080 IF SEL-1 5 THEN GOSUB 381 08:POSIT 
ION ll,SEL:? * n:lil»il4:i<1d:IiItl:H: *';GOTO 3 
0040 

30090 GOTO 30040 

30100 POSITION 11,11:? "RERUN THIS PRO 
GRAN*':? :? ,"RETURN TO BASIC":? :? ,"R 
UN HENU PROGRAM*':RETURN 
30110 TRAP 30000:POKE 201,10:IF SEL=15 
THEN ? **H":? :? ,"LOADING MENU":RUN " 
D:HENU":TRAP 40000 

38120 IF SEL=13 THEN GRAPHICS 0:? :? " 
BASIC":? "IS";:P0KE 752,0:TRAP 40008:E 

ND 

30130 TRAP 40000:RUN 
30140 GOSUB 30170 

30150 CH0ICE=BUTT0N:BUTTON=PEEK C53279} 
:IF BUTT0NO7 THEN 30158 
30160 GOSUB 38170:RETURN 
30178 FOR HErO TO 8:P0KE 53279, l«:NEXT 
HE:RETURN 




CHECKSUM DATA 
(See pgs. 7-10) 

0 DATA 874,802,472,699,670,842,127,197 
,560,185,623,205,215,413,935,7819 
30130 DATA 746,141,237,526,717,2367 
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TRAPPING YOUR ATARI 


by Donald B, Wilcox 


It is often frustrating to be forced to restart a 
program because an inadvertent error caused the 
program to crash. ATARI BASIC provides a special 
word — TRAP — that often can be used to prevent a 
program from ending before intended. Many errors 
are subject to automatic correction or compensation 
through a little extra effort on the part of the pro¬ 
grammer. 

If you are not yet familiar with the TRAP state¬ 
ment, the following examples show how to use it to 
detect INPUT errors. These occur when the user of a 
program types invalid values into a numeric vari¬ 
able. 

10 INPUT H 
20 PRINT X 
30 GOTO 10 

In the above listing, typing a non-numeric re¬ 
sponse to the INPUT statement in line 10 (such as 
accidentally pressing return with no number en¬ 
tered) will result in an ''ERROR-8 AT LINE 10” 
message. By adding a TRAP statement, this problem 
can be avoided completely. 

10 TR0P 10!INPUT K 
20 PRINT X 
30 GOTO 10 

In the slightly modified example above, if an input 
error occurs, the TRAP statement will catch the 
error and go back to line 10 to try the INPUT again. 

After perusal of these five examples, you should 
be able to understand how to make your programs 
less vulnerable to errors that prematurely end your 
program. 

Listing 1 — If you mistakenly create a new 
file using a file name that already exists, you will 
destroy the already existing file. No error message 
will warn you of the impending disaster. Listing 
1 will prevent this. 

Listing 2 — If you try to OPEN a non¬ 
existent file, you will get an error message 170 and 


your program will crash. This can be prevented by 
using Listing 2. 

Listing 3 — If you try to input data from 
a disk file beyond the end-of-file, you will get 
an error message 136, and your program will termi¬ 
nate. You may not always know beforehand where 
the file data ends, so an automatic end-of-file trap 
can be programmed easily to prevent the error. List¬ 
ing 3 solves this problem. 

Listing 4 — You forgot to turn on your printer 
or interface unit and get error message #138. 
If you attempt to use the Continue command 
after you turn on the correct unit, your program will 
continue beginning at the line number that follows 
the line that caused the error. Often this can create 
erroneous results (not always detected), because the 
instructions on the line that caused the error may not 
have been executed correctly before the error. 

Listing 5 — You are reading in data with a 
READ statement and you do not want to use an 
end-of-data dummy value as a flag, nor do you want 
to count the entries to determine when all the data 
has been read. Listing 5 demonstrates a simple 
method to prevent error #6 (Out Of Data) from 
prematurely terminating your program. 

Finally, for those of you who are relatively new to 
ATARI BASIC, there are several locations (ad¬ 
dresses) that you may PEEK to find out which error 
occurred and which line caused the error. Location 
195 contains the error number. Locations 186 and 
187 contain the line number where the error 
occurred, low byte, high byte, respectively. To dis¬ 
play this information on your screen, use the fol¬ 
lowing statements: 

10 REM DISPLAY ERROR NUMBER 
20 REM AND LINE NUMBER OF ERROR 
30 PRINT PEEKC135);" AT LINE ";PEEKC18 
63+PEEK(1873#256 
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Listing 1. 

lee ? "•(■■zCLR ;REH clear screen and va 

RIABLES 

lie REN PREVENT ERASURE OF PROGRAM ALR 
EADY STORED ON DISK 

120 DIN ATRAP$C6],A$C124),NAHE$t8),FIL 
E$Cie3 

130 REN SET UP DISK SUFFIK 'D;' FOR FI 

LE NAME. lOCB IS FILECDEVICE) NUMBER 

140 FILE$='‘D:": I0CB=2: IN=4: GNU=8 

150 REN GMU=8 IS THE OUTPUT NODE 

160 SET=160: CLOSE ttIOCB:IF ATRAP$=*'SPR 

UNG'* THEN PRINT " FILE NAME DID NOT PR 

EVIOUSLV EKIST"!GOTO 200 

170 TRAP SET:PRINT "ENTER FILE NA«'* 

180 INPUT NAHE$:FILE5C3)=NAME$:ATRAP$= 

"SPRUNG":OPEN t»I0CB,IN,0,FILE$ 

ISO PRINT FILES;" ALREADY EXISTS";? "U 
SE A DIFFERENT NAME":CLOSE t»IOCB:GOTO 
170 

200 OPEN ttlOCB.GNU,0,FILES 

210 PRINT FILES;" OPENED SUCCESSFULLY" 

220 CLOSE ttlOCB 


160 PRINT "ENTER A FILE NAME":PRINT "0 
0 NOT INCLUDE THE 'D:' PREFIX" 

170 INPUT NA»ES:FILESt3}=NAMES:REM CON 
CATENATES PREFIX AND FILE NAME 
180 OPEN ttlOCB.GNU,0,FILES 
190 REN MIITE DATA ONTO FILE. 

200 PRINT ttlOCB; "FIRST" 

210 PRINT ttlOCB;"SECOND" 

220 PRINT ttlOCB;"LAST" 

230 CLOSE ttlOCB:REN IT IS GOOD PRACTIC 
E TO KEEP A FILE CLOSED WHEN NOT USED 
240 REN FAILURE TO PROPERLY CLOSE A FI 
LE CAN CAUSE IT TO BE LOST 
250 REN 

260 REN READY TO READ THE FILE 
270 OPEN ttlOCB,IN,0,FILES 
280 SET=310:TRAP SET 

290 REN READ DATA FROM FILE AND PRINT 
EACH VALUE AS IT IS READ 
300 INPUT ttlOCB,AS:PRINT AS:GOTO 290 
310 PRINT "FINISHED READING FILE SUCCE 
SSFULLY": CLOSE ttlOCB 

320 REN DELETE LINE 280 AND YOU HILL G 
ET AN ERROR IffiSSAGE 136 CEND OF FILEJ 


Listing 2. 


100 PRINT "lf":CLR :REN CLEAR SCREEN AN 
D VARIABLES 

110 DIN ATRAPSC6),NAMESC5),FILESC8) 

120 REN SET UP DISK SUFFIX FOR FILE NA 
ME. lOCB IF THE FILECDEVICE3 NUMBER. 

IN=4 IS THE INPUT NODE 
130 FILES="D;";I0CB=2;IN=4 
140 REN HRITE ERROR IF TRAP IS SPRUNG. 

IT IS GOOD PRACTICE TO CLOSE FILES T 
0 PREVENT ERROR ttl29 IF YOU LOOP BACK 
150 REN TO A PREVIOUS PART OF YOUR PRO 
GRAN THAT OPENS A FILE. 

160 SET=160; CLOSE ttlOCB ^ ^ 

170 IF ATRAPS="SPRUNG" THEN ? "ERROR 1 
70, FILE ";FILES;" NON-EXISTANT":FOR D 
=1 TO 1000:NEXT D:GOTO 100 
180 REN KEEPS tESSAGE ON SCREEN TENPOR 
ARILY BEFORE RETURNING TO BEGINNING OF 
PROGRAM 

190 TRAP SET;PRINT "TYPE IN FILE NAME" 
:PRINT "DO NOT INCLUDE 'D:' PREFIX":IN 

200 FILESC33=NANES;REM CONCATENATES FI 
LE NAME ONTO DEVICE PREFIX 'D:' 

210 ATRAPS="SPRUNG" 

220 REN IF THE 'OPEN' STATEMENT MIRKS, 
1C HAVE A VALID FILE NAME ALREADY STO 
RED ON DISK READY FOR INPUT 
230 OPEN ttlOCB,IN,0,FILES 
240 PRINT "FILE ";FILES;" OPENED SUCCE 
SSFULLY" 

250 CLOSE ttlOCB 


Listing 4. 


100 PRINT "■l":CLR :REN CLEAR SCREEN AN 
D VARIABLES 

110 REN CATCH DEVICE TIMEOUT ERROR tt 1 
38 

128 REN YOU FORGOT TO TURN ON AN INPUT 
OR OUTPUT DEVICE 
130 DIN ATRAPSCG) 

140 SET=140;IF ATRAPS="CAUGHT" THEN PR 
INT "TURN ON I/O DEVICE" 

150 TRAP SET:ATRAPS="CAUGHT" 

160 LPRINT "PROGRAM RAN SUCCESSFULLY" 
170 REN RUN THIS PROGRAM HITH PRINTER 
TURNED ON AND OFF 

180 REN CHANGE LINE 160 TO USE DISK, I 
NTERFACE, OR SOME OTHET I/O DEVICE 


Listing 5. 


100 PRINT "H":CLR :REN CLEAR SCREEN AN 
D VARIABLES 

110 REN READ DATA AND TRAP OUT-OF-DATA 
ERROR tt6 

128 SET=14e:TRAP SET:REN DELETE THIS L 
INE AND ERROR tt6 HILL OCCUR 
130 READ N:PRINT N:GOTO 130 
140 PRINT "FINISHED READING DATA" 

150 DATA 20,4,156,83,12 


Listing 3. 


100 PRINT "l|";CLR ;REM CLEAR SCREEN AN 

D VARIABLES _ ^ 

lie REM CATCH END-OF-FILE ERROR 

120 DIM ATRAPSC6J,ASC124J, HANESC8J,FIL 

i30^FiLES="D;"; I0CB=2; iH=^i£5y=® 

140 REM 'D:' IS FILE NAIC PREFIX. IN- 
4 IS INPUT NODE. 6MU=8 IS OUTPUT NODE 
lOCB IS DEVICECFILEJ NUMBER 
150 REN FIRST HE MUST CREATE A FILE AN 
D PUT SOME DATA IN IT BEFORE TRYING TO 
READ THE DATA. 
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6ASSNOTES IN BASIC 


16K Cassette or Disk 


by Jerry White 


Those of you who have written music using 
ATARI BASIC may have noticed that even the 
lowest note available in distortion level 10 is not 
really a low bass note. 

The secret to getting a deep, rich bass note is to use 
distortion level 12. The BASIC program called Bass- 
note will display the notes and pitch numbers for 
two octaves of low bass notes. 

It will also play the deep bass introduction to the 
theme from Barney Miller. While doing this, the 
sound commands used will be displayed on your 
screen. □ 


10 REM BASSNOTE TUTORIAL BY JERRY MHIT 
E 

20 ? 

30 G05UB 290:GOSUB 190:GOTO 100 
40 5OUN0 0,0,0,0:REA0 PITCH :D=12:U=145 
5ETC0L0R 2,PITCH,0:5OUND 0,PITCH,D,V 
50 POSITION 10,20:? '• SOUND 0,";PITCH 

..RETURN 

60 FOR H0LD=1 TO 200:NEXT HOLD'.SOUND 0 
,0,0,0:PITCH=0:D=0:V=0:GOSUB 50:RETURN 
70 FOR HOLDrl TO 50:NEXT HOLD:RETURN 
80 FOR H0LD=1 TO 25:NEXT HOLD:SOUND 0, 
0,6,0:RETURN 


90 DATA 102,90,85,82,75,72,67,67,60,57 

,60,67,75,67,51,60,75,90 

100 FOR TI»e=l TO 2:GOSUB 40:GOSUB 60: 

GOSUB 60 


110 GOSUB 40:GOSUB 70:GOSUB 40:GOSUB 7 

0 

120 GOSUB 40:GOSUB 60:GOSUB 60 
130 GOSUB 40:GOSUB 70:GOSUB 40:GOSUB 7 
0 

140 GOSUB 40:G0SUB 60:G0SUB 60 

150 FOR aUARTERNOTE=l TO 8:GOSUB 40:GO 

SUB 70:NEXT QUARTERNOTE 

160 GOSUB 40:GOSUB 80:GOSUB 40:GOSUB 8 

0 

170 GOSUB 4e:G0SUB 80:REST0RE :NEXT TI 
ME 

180 RESTORE :GOSUB 40:GOSUB 60:POKE 75 
2 0:END 

190 ? :? ,■■ PITCH = N0TE‘':60SUB 310 
200 ? :? "25=E","27=Dtt","28=D ’',"30=011 


210 ? "31=C ","33=B ","36=AI»","37=A " 
220 ? "40 = Glt","42=G ", "45=Flt", •■48=F ■' 
230 ? "51=E ","55=Dtt","57=D ","60=Ctt" 
240 ? "63=C ","67=B ", "72=AII", "75=A " 
250 ? "82=G»","85=G ", "90=:F»’', "97=F " 
260 ? "102=E":GOSUB 310 

270 ? :? " THE ATARI BASIC SOUND COMM 
AND:" 

280 ? :? "SOUND VOICE,PITCH,DISTORTION 
,VOLUME":GOSUB 310:RETURN 


290 GRAPHICS 0:P0KE 752,1:G0SUB 310:? 

" THE THE»£ FROM BARNEY MILLER" 

300 ? :? "BASSNOTES USING SOUND DISTOR 
TION 12":G0SUB 310:RETURN 
310 FOR CTRLH=2 TO 36:? "-";:NEXT CTRL 
R:RETURN 

320 REM KKMKKXKKM I ltKMKKMMKKKKKKKltKltKMK 
330 REM * D=DIST0RTI0N V=V0LUME * 

340 REM » GOSUB 50 FOR HHOLE NOTE « 

350 REM * GOSUB 70 FOR QUARTER NOTE » 

360 REM * GOSUB 80 FOR EIGHTH NOTE * 

370 REM # GOSUB 700 TO DRAM A LINE « 

380 REM MMKMMKKIOCKXIdOlW - l t KKKKKMICMKKMKK 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 705,653,272,597,653,822,191,72 

1,617,79,221,55,227,61,557,6431 

160 DATA 242,874,327,262,121,988,40,41 

,32,89,691,764,69,86,692,5318 

310 DATA 45,788,982,780,31,927,705,806 

,5064 
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AUDCTL DEMO 


16 K Cassette or Disk 
by Jerry White 


AUDCTL is an abbreviation for AUDIO 
CONTROL, and a label given to decimal location 
53768. For those interested in reading up on the 
functions of the various sound registers, I strongly 
recommend that you read the SOUND chapter in 
De Re ATARI about three times, and that you try 
the little demonstration routines supplied. 

For those who don’t really care to know why 
things happen, but like to take advantage of the 
amazing range of sound effects that are available 
from BASIC, I submit the following little demo 
program. In a nutshell, POKE commands into deci- 
mal locations 53760 through 53767 are used to create 
a full C major chord. To further enhance the 
effect of this program, we slide up to the higher C 
note in line 180. 

At the prompt, you may enter a value which will 
be POKEd into decimal location 53768. Start by 
entering zero, so you can hear the effect with no 
distortion before we begin experimenting. By enter¬ 
ing other values from 1 to 255, you will notice some 
strange sounds coming from your TV speaker. 

There is probably no better way to learn how to 
create sound effects than by trial and error. Hope¬ 
fully, this little demonstration will provide some 
food for thought. □ 


le G05UB 150:REN AUDCTL DEm BY JERRY 
WHITE 6/2/82 

20 FOR 0FF=0 TO 3:S0UND OFF,0,O,0:NEXT 
OFF:REM TURN OFF ALL SOUNDS 
30 ? :? ‘‘ENTER A NUMBER BET WEN 0 AND" 
:? "255 THEN PRESS : 

40 POKE 764,255;TRAP 3e:INPUT NUrffiER 
50 NUMBER=INTCNUNBER):IF NUNBER<0 OR N 
UNBER>255 THEN 30 

60 POKE 53760,243:P0KE 53762,81:POKE 5 
3764,S6:P0KE 53766,121:REM C MAJOR 
70 FOR X=53761 TO 53767 STEP 2:P0KE X, 
162:NEXT X 

80 REM DISTORTION^IO MOLUME-2 tl8*16+2 
=1623 

90 POKE 53768,NUMBER:REM AUDCTL 

100 FOR X=243 TO 60 STEP -1:P0KE 53760 

,X;NEXT X:REM SLIDE SOUND 

110 ? :? "PRESS agB TO END":? "PRESS A 

NOTHER KEY TO CONTINUE":POKE 764,255 

120 KEY=PEEK<764):IF KEY=28 THEN POKE 

82,2;? :? "BASIC":? "IS";:END 


130 IF KEY0 255 OR PEEK C53279) <>7 THEN 
20 

140 GOTO 120:REM MHATCHA WANT? PRESSA 
KEY! 

150 GRAPHICS 0:SETCOLOR 2,9,0:POKE 82, 
5:? :REM CLEAR SCREEN/LEFT NARGIN=5 
160 ? :? "This prograM was designed" 
170 ? :? "to deMonstrate the effects" 
180 ? :? "wade possible by altering" 
190 ? :? "the Audio Control Register" 
200 ? :? "at decimal location 53768" 
210 ? :? "C$d2081.":RETURN 


CHECKSUM DATA 
(See pgs* 7-10) 

10 DATA 414,918,846,950,670,674,194,76 

3,431,47,269,213,84,763,717,7953 

160 DATA 360,641,576,412,839,359,3187 
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VARIABLE LISTER 


16K Cassette or Disk 
by Tony Messina 


Have you ever written a program and then tried to 
go back and document all of the variables that were 
used? If you’re one of the elite 10% who are orga^ 
nized, you probably wrote down all of your variables 
and their meanings as you wrote the program. If 
you’re like the other 90% of us, who write a program 
and then spend several agonizing hours documenting 
it, then help has arrived. 

The following utility was written to help me keep 
track of my variables. It doesn’t tell me what I used 
them for, but it does tell me what I used. This utility 
is just the start of another utility I’m working on (a 
cross reference program). You can run out and spend 
anywhere from $9.00 to $45.00 for any of a multi' 
tude of utilities, but I don’t have much money — and 
writing the things myself has taught me more about 
the inner workings of the ATARI than any listing 
could. Let me explain how your ATARI stores vari- 
able names. It will help you to understand how and 
why the program works. 

Behind the scenes. 

Within the heart of your ATARI lurks the Vari- 
able Name Table. This table contains all of the 
variables used (and, sometimes, not used) by a pro¬ 
gram. How do they get there? Good question. When 
you type in <A=I0> for example, the ATARI 
BASIC cartridge takes the ^'A” and puts it in the first 
available slot of the Variable Name Table. It also 
stores the value of our "'A” into the Variable Value 
Table. Sounds simple, so far. . . now enters the curve, 
IN ATARI BASIC, variable names can be up to 128 
characters long. How does the interpreter know 
where one variable name ends and the next one 
begins? What about string variables and dimen¬ 
sioned variables? 

Here’s the scoop. The very last character of each 
variable name is stored in the table as an inverse char¬ 
acter. Our '"A” character would actually be stored in 
the name table as an inverse A, since the beginning 


and ending character for the variable is A. If the vari¬ 
able name was *^TEST,” then **TES” would be 
stored as normal characters and the last "'T” would 
be stored as an inverse ”T” TEST$, a string variable, 
would be stored as *TEST” (normal) and '*$” (in¬ 
verse). If a variable has dimensions [e.g., DIM A 
(26)], then the variable is stored as *'A” (normal) 
and ''(” (inverse). Knowing where the Variable 
Name Table starts, we should be able to go in and 
pick out all the variables in any given program. 

How do we know where to stop? The end of the 
table is denoted by a blank byte following the last 
character of the last variable name. For the purpose 
of our utility, however, we want to stop picking off 
variables when we encounter the first variable of the 
utility program. Armed with this information, let’s 
try our first experiment. 


Listing 1. 


5 REH TYPE A CONTROL CONHO BETMEEN THE 
QUOTES IN LINE 70 TO PRODUCE A HEART 

10 ? chr$ci25}:ren «clear screen* 

20 ? ••ASCII",'"CHAR","ADDRESS^SREM * HE 
ADINGS * 

30 A=1O:TEST1=10:DIM B$Cl),YESC5,5):RE 
M * SAMPLE UARIABLES * 

40 STARTzPEEKC130)+PEEKC131)*256:REM * 
GET DECIMAL START ADDRESS OF UAR NAME 
TABLE * 

50 ? •• ••;PEEKCSTART) ,•• ••;CHR$ CPEEK CSTA 
RT)),^* ••;START;REM * PRINT ASCII, LETT 
ER AND ADDRESS * 

60 START=STARTTl:REM * GET NEKT ONE * 
70 IF PEEK tSTART)=ASC (••#••) THEN END :R 
EM * IF BLANK THEN END * 

80 GOTO 50:REM * GO PRINT NEKT CHARACT 
ER * 


CHECKSUM DATA 
(See pgs. 7-10) 

5 DATA 331,1S8,S62,568,625,1S0,352,707 
,530,4463 
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As you can see, the variables for the program itself 
were printed to your screen. This was just a sample 
for the non-'believers out there. The variables pre^ 
sented are representative of all types used by the 
ATARI: regular, string and dimensioned. Another 
thing you will notice is that the variables follow the 
order in which they were typed. Line 30 is the first 
place variables were typed in. If we look at the output 
of our program, we see that the variables follow the 
same order as Line 30: A,TEST1,B$,YES and START. 
The address of each letter is also printed in the last 
column. This will be helpful when we conduct our 
other experiments, so type in this program. 

I hope this little demo illustrated the points I made 
previously. Here is an explanation of how the utility 
operates. 

The program. 

Listing 2 is the utility program. Program flow is as 
follows: 

32500 clears the deck and initializes the util¬ 
ity variables. 32502 clears the screen and out¬ 
puts a message to the printer. 32504 takes the 
contents of the current address and stores it in 
TEMP. A check is then made to see if TEMP is 
an inverse character (i.e., >=128), or if it is a 
blank. If one of the conditions is true, the 
program goes to the subroutine at Line 32514 
to find out what the character is. If neither con¬ 
dition is true, we drop through and store the 
value from TEMP, and store it into the appro¬ 
priate location in VAR$. We are building our 
variable name in VAR$ for output to the prin¬ 
ter. A check is made of the error flag ERRER. If 
set, an asterisk is appended to our variable name 
in VAR$. If clear, then SKIP is checked. If it is 
set ('’set” meaning it is equal to 1), then it’s time 
to print our variable name. If clear ("clear” 
meaning it’s equal to zero), we increment the 
current address CURADD, the character count 
CHARCNT and then go back for the next line. 

32514-32522 are the subroutine lines used 
to determine the type of variable. We get here if 
the value in TEMP was an inverse character or a 
blank. If the content of TEMP is an ASCII 
blank, then the program goes to Line 32512, 
prints out some information and stops. If 
TEMP contains an inverse "$,” then we change 
it to a normal "$” (TEMP-128) and GOTO 
32522. If TEMP contains an inverse "(,” then it 
is changed to a normal "(,” and we GOTO 
32522. If all of the above fail, then we assume an 
ASCII number or letter. It is changed to a 
normal character, and a check is made to see if 
the new number falls between 48 and 90. If you 
look in Appendix C of the ATARI manual, you 
see that ASCII 48-90 contains the numbers, 
some other characters and then the letters A-Z. 

If the value in TEMP does not fall between any 


of these values, we have an error, and the error 
flag is set. If everything is okay, line 32522 
increments the number of variables VACNT, 
sets the skip flag SKIP to 1 and returns. 

32524 appends an asterisk to our variable if 
an error occurred, sets ERRER back to 0 and 
returns. 

32526-32528 check what is in the string 
VAR$. If the actual name VAR$ is there, then 
the program ends. If not, then the variable name 
and its address in RAM is printed. The charac¬ 
ter count CHARCNT is cleared (set to zero), 
SKIP is cleared, VAR$ is cleared, and we return 
to build the next variable name. 

32512 prints the start and end address of the 
name table. It also prints out the number of 
variables in the target program. 

How to use it. 

Type the program in exactly as shown in the list¬ 
ing. When you’ve finished, check everything and 
then save it using the LIST"D:VARLST” for disk or 
LIST"C:” for cassette commands. The reason we use 
LIST rather than CSAVE or SAVE"D:filename” is 
so that we can merge the utility with your target pro¬ 
grams without disturbing anything. Once the pro¬ 
gram is saved, you can load in any BASIC target 
program. By target program, I don’t mean a program 
that has target in it; I mean any program you want to 
obtain a variable listing from, utilizing the utility. 
Once the target program is loaded, use the following 
commands to merge the utility. If you have a cassette, 
cue up the utility and type ENTER"C:” and hit RE¬ 
TURN. After the beep, press the play button, hit 
RETURN again and the program will load. For disk 
users, type in ENTER "D:VARLST”. The program 
will then load from disk. Once the utility is loaded, 
type in (using direct mode) GOTO 32500 and the 
utility will do its thine. 

This utility is set up for output to a printer. If you 
don’t have one, simply replace all LPRINTs with 
PRINTS. Be prepared to hit CONTROL 1 to stop the 
screen listing, so you can copy the variable names. 
Hit CONTROL 1 again to resume output. 

You are probably wondering why I have the 
address printed out. If you don’t want it printed, 
REPLACE Line 32528 with the following: 

32528 LPRIHT UftR$:CHRRCNT-O:SKIP^O:VRR 
:RETURN 

This will prevent the address from being printed and 
leave you with a clean piece of paper to document 
your program. There is a method to my madness in 
printing the address. 

The method. 

Consider this. . .if we know the address locations 
of our variable names, it would follow that, if we 
POKE different characters into the table, we could 
change our variable names. This is not only true, but 
offers other potential benefits and (if the reader is 
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not careful) problems. Beu^are!! The following ex¬ 
periments should be tried after reading the following 
paragraph. 

The interpreter does not care about variable 
names, other than when they are initially defined. 
After that, it doesn’t care. Why? Well, once you 
define a variable, it is assigned a number from 128- 
255. The first variable is assigned 128, the second 
variable is assigned 129, etc.. . .up to 255. In the 
tokenized version of your program, these variable 
number assignments become important, not the 
names. When you list your program, the interpreter 
scans the tokenized form of your program in mem¬ 
ory, and matches all the numbers with KEYWORDS, 
such as GOTO, REM, COLOR, etc. When he hits a 
variable number — 128, for example — he says, 
*'Oh. . .This is a variable; its number is 128, but, to 
me, that’s variable number 1. Let me go into the 
Variable Name Table and get the name. Since it’s 
number 1, it is the first name in the table.” Once the 
name is retrieved, it is put up on the display. All of 
this happens in mere microseconds, but that’s what 
your interpreter does. If we happen to change the 
names in the table, the interpreter will blindly go in 
and grab whatever is or isn’t there. He grabs the vari¬ 
able name based on the number, not the name. Re¬ 
member the inverse character at the end of each vari¬ 
able name? Joe Interpreter uses this as a signal to tell 
him when he has gotten the whole thing. Enough 
theory, next experiment. 

Experiment #2. 

Let’s try changing some names. If you haven’t 
done so, type in the short example program at the 
beginning of this article. If you did type it, then load 
it. RUN the program and follow along with me. On 
the screen you should see the variable ”A” in in¬ 
verse. Let’s change it to ”Z”. In direct mode, type the 
following: 

POKE ADDRESS, 

Make sure the ”Z” is an inverse ”Z.” The address will 
vary with the amount RAM you have and the con¬ 
figuration, so use the address that is on the screen 
(e.g., the address given for variable ”A”). Hit RE¬ 
TURN and, when READY appears, LIST the pro¬ 
gram. The former statement ”A=10” will magically 
he replaced by ”Z=10”! 

Let’s try once more. Let’s change ”TEST1” to 
”BLAH1”. First re-RUN the program, then, in 
direct mode, type the following: 

POKE ADDRESS,ASCC"B"3:POKE ADDRESS+1,A 
SCC**L"3 iPOKE ADDRESS + 2,ASCC"A"3 SPOKE A 
DDRESS+3,ASC("H") 

(”A”):POKE ADDRESS+3,ASC(”H”) 

Again, we have the starting address of ”TEST1”. 
Since each letter occupies one byte, then ”T” begins 
at the address listed in your output; ”E” is located at 
the address+1, etc. Since the 1 is already there and in 
inverse, we don’t have to use inverse letters in our 
POKE statements above. Use the regular old every¬ 


day non-inverse letters between the quotes. Hit RE¬ 
TURN and LIST the program. If you did everything 
right, ”TEST1” will be replaced by ”BLAH1”. Of 
course, we only replaced variable names with those 
that had the same length. For experimenting, use the 
same length name because you can really make a 
mess out of things. If you are adventurous, try any¬ 
thing!! just remember that the variable names must 
end in an inverse character. 

Experiment #3. 

RUN the program again, then, in direct mode, 
type the following: 

FOR Z=FIR5TADDR TO LASTADDR:POKE Z,155 
:HEKT Z 

Substitute the appropriate addresses on the screen 
for FIRSTADDR and LASTADDR. When READY 
appears, LIST the program. Surprise! All you see now 
is KEYWORDS. Not a variable in sight! Run the 
program — yes, just type RUN. Surprise II. It works 
just like normal. Except where the variables once 
were is now filled with empty space. Whahappened?? 

The 155 POKEd into the name table is a non¬ 
printing character. The interpreter picked up the 
name and even printed it on the screen. . .we just 
couldn’t see it. You could do this to that secret pro¬ 
gram of yours and let your friend borrow it. When 
he LISTs it to learn all of your secrets. . .boy, will he 
get a surprise. Try itl I have, and what a ruckus it 
caused. Be sure to save a copy of the original for 
yourself, or you may be the one who is surprised! 

The last experiment. 

For our last trick, try this. First load the program, 
or, if you didn’t save it, type it in again (SAVE it this 
time). Now RUN it. In direct mode, type the follow¬ 
ing: 

FOR A-FIR5TADDR TO LASTADDRI POKE A,A5C 
C"r*3:NEHT A 

Again use the addresses that are on the screen. When 
READY appears, LIST the program. Check out all of 
the garbage!! I’ll let you figure it out for yourself. 
(Hint — The interpreter searches for inverse charac¬ 
ters.) 

Final notes. 

VARLST will interfere if your target program has 
the same line numbers as the utility. I started at 
32500 as all of my program line numbers fall way 
below that figure. If necessary, change the line num¬ 
bers higher or lower, but remember to change all of 
the GOSUBs and GOTOs. Also, if your target has 
more than 119 variables in it, VARLST will not load. 
I’ve never seen a program with that many variables, 
but it is possible. If you have any variable names 
longer than 30 characters, VARLST will not work.* 
Have fun experimenting! □ 


^Dimension VAR$ larger in this case. 
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Listing 2. 

32500 CLR :0IM OORSt30>:TftBLESTORT=PEE 
K(1303 +PEEK(1313*256:CURftDD=T0BLE5TflRT 
:CHARCNT=1:VACNT=0:ERRER=0:IHy=128 
32502 5KIP=0:? "fCrLPRINT "THE FOLLOMI 
NG UARIABLES ARE IN THIS PR0GRAM":F0R 
K-1 TO 50!NEHT K 

32504 TEMP-PEEK (CURl^DOJ : IF TEMP>zINV 0 
R TEMP = 05CC"ir”3 THEN GOSIIB 32514 
32506 UOR$CCHORCNT,CHORCNT3rCHR$tTEMP5 
;IF ERRER THEN G05UB 32524 
32508 IF 5KIP THEN G05UB 32526 
32510 CUR0DD=:CUR0DD + 1 :CHORCNT = CHORCNT + 
l:GOTO 32504 

32512 LPRINT ;LPRINT "TOBLESTORT- "jTO 
BLE5T0RT:LPRINT '‘TOBLE END = "jCURODD- 
4:LPRINT *‘tt OF U0RI0BLE5= "jVOCNT-l 

32513 END 

32514 IF TEMP-05CC"^*‘3 THEN POP :GOTO 
32512 

32516 IF TEMP=05C("H"3 THEN TEMP=TEMP- 
128:G0T0 32522 

32518 IF TEMPzftSC("D"5 THEN TEMP-TEMP- 
128:G0T0 32522 

32520 TEMP=TEMP-128:IF TEMP<48 OR TEKff» 

THFM FPDFI}*'1 

32522 U0CNT=U0CNT + l:5KIPi:l: RETURN 
32524 UftR$ (CHORCNT + 1, CHORCNT + 13 : ER 

rer=:o:return 

32526 IF UOR$ = *‘UOR$" THEN POP ;GOTO 32 
512 

32528 LPRINT UORS,,," ODDRESSr "[CURO 
DD-CHORCNT + 1 :CHORCNT=:0;5KIP = O :UORSz'"* : 
RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

32500 DOTO 256,390,205,624,552,663,823 
,557,377,141,159,129,984,932,148,7340 
32528 DflTO 715,715 


Circle Demo 


10 KCi:16e: YC=8e 
20 RDZ6O:INC=10:Y5=O.75 
30 GRAPHICS 8;C0L0R 1 
40 GOSUB 1000:END 

1000 REM - 

1010 REM CIRCLE DRAHER ROUTINE 

1020 REM - 

1030 REN 

1040 REM XC: x-coordinate of center 
1050 REM YC: y-coordinate of center 
1060 REM RD: Circle radius 
1070 REM INC: drawing increNent 1-360 
1080 REM Y5: y-scaling factor 
1090 REM 

1180 DEG :PLOT XC,YC+RD*Y5 
1110 FOR CIRCLEzO TO 368 STEP INC 
1120 XCOORD=XC^SIN(CIRCLE)«RD 
1130 YCOORD=YC+COSCCIRCLEI*RD*YS 
1140 DRAMTO XCOORD,YCOORD 
1150 NEXT CIRCLE .-RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

18 DATA 118,981,32,473,165,248,167,278 

,180,184,463,8,40,284,645,4258 

1110 DATA 469,958,422,868,442,3159 
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BUNCRUSH 


16K Cassette or Disk 
by Tony Messina 


In our last episode, we left our hero (Bruno Bit' 
mangier) tearing out his hair, looking for his lost 
energy variable E amidst all the garbage on the TV 
screen. Meanwhile, Bruno Jr. screams, "'I wanna 
play Missile Command!” and Mrs. Bitmangler 
shouts, ”Both of you get in here. . .DINNER is get' 
ting COLD!” If only our hero had BUNCRUSH, his 
problem would be solved. What’s a BUNCRUSH? 
It’s the BASIC Unembellished No'Cost Cross ReT 
erence Utility and Software Helper. If you want to 
get it up and running, type in Listing 2 and skip to 
the ”How to use BUNCRUSH” section. Those of 
you who want to learn a little more about the ATARI 
BASIC token structure and how BUNCRUSH was 
developed should read on. 

Design considerations. 

Several major considerations were involved in 
designing BUNCRUSH. The list I used was as foL 
lows. 

1. ) Build upon the concepts presented in 
Utility #1 — Variable Lister (see page 20) 

2. ) Allow use with both Cassette and Disk 
systems. 

3. ) Allow screen or printer output. 

4. ) Output should include the variable name, 
its associated line reference numbers and be 
neat in appearance. 

5. ) Make the output fast and simple. 

6. ) Provide flexibility for user modifications. 
With these considerations in mind, I sat down and 

wrote BUNCRUSH. It’s been rewritten three or four 
times. Each time it was improved and streamlined. 
Listing 2 is the final version. 

With all the above ground rules set. I’ll dive into 
the background material, namely ATARI token 
structure. 

BASIC’s background. 

As was explained in the last utility article, vari' 
ables are assigned numbers in our token program. 
Names do not matter, unless we want to print out a 
program listing. It follows that, if we could locate the 
start of our token program, scan each line for a 
variable # (128'255), save the line numbers that 
contain the variables we are looking for and print out 
this information, we would be all set. Of course, we 


would have to do this for every variable number, and 
it could take some time. We’ll worry about the time 
later. The first question is: where does the tokenized 
version of our BASIC program begin? Glad you 
asked! The start location can be found at address 
135,137 (Decimal) or $88,89 (Hex). This is not 
where the program begins, but rather the pointer to 
where it begins. To obtain the decimal location 
number, we would execute the following BASIC 
statement. 

TOKEN=PEEK C136)♦PEEK C137)*256 

The variable token would be set equal to the start 
address of our token program. Now what? Well, it’s 
time to scan the program from start to finish for our 
first variable. Before we do this. I’ll digress into my 
”Here’s how a tokenized BASIC line is set up” tap 
dance routine. 

I saw a hand in the back of the room. . . ” What’s 
this ’tokenized program’ you keep referring to?” I’m 
sorry . . .let me explain. When you type in a program 
line in BASIC and hit RETURN, several things hap' 
pen. First, the BASIC cartridge takes each item you 
typed in and converts it into tokens for its own use. 
Each command (GOTO, TRAP, etc.), operator (T, 
-, =, etc.) and function (STR$, SIN, COS, etc.) has a 
special token associated with it. The interpreter 
scans, tokenizes, places the token in the program area 
and continues till it hits your carriage return. If 
everything is correct with respect to syntax, the 
cursor appears on the left side of the screen, and you 
can continue on with the next line. If you make a miS' 
take, the interpreter stops scanning and prints the 
line out with an error message and an inverse cursor 
to show you where it stopped. 

After you correct your mistake, the interpreter 
goes through the line again. This process continues 
until you have entered your entire program. 

The tokenizing process is used to save space by 
converting the ASCII input to tokens. For example, 
the Restore command would normally take 7 bytes 
(one per letter). Through tokenization, it only takes 
1 byte containing the number 35 Decimal. Tokens 
serve another important purpose. At RuU'Time, the 
BASIC interpreter fetches a token. This token is 
actually an index for a jump table. This jump table 
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points to the various routines within the system. 
When a token has been executed, BASIC returns, 
fetches the next token and continues the process of 
execution. 

With that simple explanation out of the way, let’s 
look at the structure of a tokenized line of BASIC. 
Each line varies depending on its length and the 
number of multiple statements in it. Some items 
don’t get tokenized. ASCII strings are an example. In 
a statement such as PRINT "This is a test,’’ the 
PRINT statement will get tokenized. When the in¬ 
terpreter encounters the quotes, it replaces them 
with a 15-token (string follows token), saves one 
space, then puts each letter of the string in one byte 
until it hits the last quote. The byte after 15 then gets 
updated to the number of ASCII characters in the 
string. Similarly, numbers are put in BCD represen¬ 
tation. BCD numbers take up 6 bytes for the number 
itself. For example, with PEEK 130, the PEEK would 
get a token of 70, and the "(’’ a token of 58. Then a 
14 would be placed next. Fourteen is the "BCD 
number follows token.’’ After the 14 would be the 6 
byte BCD representation of 130 (65 1 48 0 0 0). 
Don’t worry, no need to memorize BCD numbers. 
Just remember how they appear. Anyway, our 
example of a simple tokenized BASIC line follows. 

BASIC line: 

20 PRINT PEEK(Z) 

Tokenized form (in decimal): 

Bytes (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) 
20 0 10 10 32 70 58 128 44 22 

Bytes 1 and 2 — Line number LSB MSB FO 
RMAT 

Byte 3 — Numerical offset to the next line 
number in bytes 

Byte 4 — Numerical offset to next statement 
number of bytes. This is used to keep track of 
where the interpreter is when a line has multi¬ 
ple statements; i.e., 10 GOTO 20:GOSUB 200: 
PRINT X:GOTO 5 — The remainder of the 
bytes consists of the tokenized form of our 
BASIC line. 

Byte 5 is the token of PRINT. 

Byte 5 is the PEEK token. 

Byte 7 is the left parenthesis token (''(”)• 

Byte 8 is the variable number assigned to Z. 

Byte 9 is the right parenthesis token (")’’). 

Byte 10 is the end of line token. 

To help you get a feel for these concepts. I’ve in¬ 
cluded the ATARI BASIC TOKEN TABLE 1. I’ve 
also included a short program that prints out the 
tokenized version of line numbers within a program. 
This is Listing 1. 1 call it TOKLOOK. Type it in and 
save it using the LIST command. Now load in one of 
your BASIC programs. When "ready’’ appears, load 
the TOKLOOK program, using the ENTER com¬ 
mand. When it’s in, type GOTO 32500. Answer the 
prompt with a line number. The tokenized version of 


the line will appear, as well as the BASIC form. Use 
Table 1 and compare the token version with the 
table. This little utility helped me a great deal in un¬ 
derstanding how things get tokenized. 

Back to BUNCRUSH. 

Well, with that digression out of the way, let’s 
look at Listing 2, the actual BUNCRUSH utility. 
You may notice some similarity to the Variable 
Lister program. I built BUNCRUSH around it. 
Variable names were shortened and some unneces¬ 
sary items removed. There are 2 parts to BUN¬ 
CRUSH. I used BASIC to handle the string mani¬ 
pulation tasks of finding the variable names and 
formatting the names/line numbers for output. The 
ML routine works hand in hand with BASIC. All the 
ML routing does is search the token program for our 
variable number (we start at number 128). When it 
finds it, it returns the line number to BASIC. BASIC 
then takes the number and puts it in the string 
VAR$. If VAR$ exceeds the print length of 80, the 
program prints out that line. BASIC then jumps 
back into the ML routine, and the search goes on 
until all variables and line references are output. 

Program flow. 

Line 32500 — Clears all variables and sets 
up the program parameters. 

Line 32502 — Outputs heading credit. (Go 
ahead — put your own name in there if you 
want.) 

Line 32503 — Skips some lines, prints out 
column headings and reads in the ML routine 
data. 

Line 32504 — Gets our variable name, one 
character at a time. Remember from Variable 
Lister, an inverse character marks the end of a 
variable name. If TP>=128 then we subtract 
128 and set a flag at 1690 for use later on. I call it 
the Variable Name Complete Flag. If TP is not 
>=128 we move on. 

Line 32506 — Puts the variable name in 
VAR$. CC is the Character Count. 

Line 32508 — Checks our Variable Name 
Complete Flag. If it set (= 1) we GOSUB 32526. 

If not, we fall through. 

Line 32510 — Updates the current address 
(CA), the character count (CC) and goes hack 
to 32504 to get the next character of the vari¬ 
able name. 

Line 32512 — Skips a few lines and prints 
out the variable count at the end of the program. 

Line 32513 — Ends the program. 

Line 32526 — Is a subroutine; we jump here 
from Line 32508. First we check if our variable 
name is VAR$. If yes, pop the stack and end the 
program. If not, we drop through. 

Line 32527 — Pads VAR$ with blanks. 
Variable names can be up to 15 characters long. 

If you have variable names longer than 15, just 
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change the 15 to whatever you want. I haven’t 
had any problems yet. Fifteen is a safe num^ 
ber. 

Line 32530 — Jumps to our ML routine. 
The source listing is included as Listing 3. The 
ML routine searches every line of the token 
program, looking for our variable number. It 
returns to BASIC under two conditions. 

Condition 1: It finds our variable num- 

ber in a line. 

Condition 2: It encounters Line 32500, 

which is the start of the utility. 

Some simplifications were necessary in writing the 
search program. 

1. ) If you find our variable, stop searching 
that line and return to BASIC with the line 
number. There is no need to search any further, 
even if the variable appears 10 times in the line. 
All we care about is the line number, not how 
many times the variable appears therein. 

2. ) If we encounter a DATA or REM state¬ 
ment, skip it. There are no variables in DATA or 
REM statements. 

3. ) If we pick up a "'BCD Number Follows” 
token (14), skip past it. Searching it is not 
healthy — we’ll get an erroneous cross-reference 
in some instances. 

4. ) If we encounter a ^String Follows” token 
(15), skip past the string, as any inverse charac¬ 
ters will trigger the ”I found our variable” 
signal. Remember, we look for variable 
numbers from 128-255. 

5. ) If we hit a '"Statement End” token (15), 
skip past the next byte. It contains an offset 
number which can cause errors. 

I won’t go into too much detail on the ML routine. 
It’s not even very elegant, as a matter of fact. Things 
can be done to speed it up, but — as you’ll see — it’s 
plenty fast enough!!! Anyway, we return to BASIC. 

Line 32532 — Checks the con location at 
1680 decimal. If set, we are continuing — GO 
process the line number. If not, we are done 
with this variable, so drop through. 

Line 32534 — Erases the comma at the end 
of the last line number. If X <= 16 then no line 
numbers were generated for this variable and 
therefore there are no references for it. 

Line 32535 — Prints out VAR$, zeros out 
the character count, clears out VAR$ and 
NUM$ and returns to 32510 to get the next 
variable flag. 

Line 32536 — Gets the current line number 
(CL) from locations 1683 and 1684 — that’s 
where the ML routine put them. 

Line 32538 — Converts the line number to 
a string. It checks to see if the length of this line 
number, when added to the current length of 
VAR$, will be greater than 80. If it would. 


VAR$ gets printed first, then is padded with 15 
blanks. 

Line 32540 — The line number get added to 
VAR$ and a (comma space) is appended. Here, 

X is updated to reflect the length of VAR$. We 
then jump back to the ML routine so we can 
continue on. 

How to use BUNCRUSH. 

Type in the program from Listing 2. Double¬ 
check everything, especially the ML DATA, to en¬ 
sure a good program. Save the program to disk using 
the LIST ”D:BUNCRUSH” command or to cassette 
using the LIST ”C:” command. To use BUNCRUSH: 

1. ) Load in the program you want to cross 
reference. 

2. ) Load in BUNCRUSH using the ENTER 
”D:BUNCRUSH” command for disk or the 
ENTER ”C:” command for cassette. 

3. ) When READY appears, be sure your 
printer and interface are turned on. 

4. ) Type in immediate mode GOTO 32500. 

5. ) BUNCRUSH should now print out the 
title and the column header VAR LINE 
NUMBERS to the printer. 

6. ) The CRT display should say READING 
ML PROGRAM. After 3-5 seconds GOOOO!! 
should appear, and the printer should he busy 
dumping out the Variable Cross Reference. 

Modifications. 

The program in Listing 2 is set up for an ATARI 
825 printer with a line output of 80 columns. Modi¬ 
fications for other printers follow: 

1. ) PRINTER — If you have an ATARI 40- 
column printer, change the >80 in Line 32538 
to >40. 

2. ) NO PRINTER — If you don’t have a prin¬ 
ter, change all LPRINT statements to PRINT in 
Lines 32502, 32503, 32512, 32535 and 32538. 

In addition, change the 80 in Line 32538 to 39. 
Everything will now be dumped out to the 
screen. Use the CNTRL 1 key to STOP/START 
the listing. 

3. ) LINE NUMBERS — If you want to 
change the line numbers for BUNCRUSH in 
order to move it up or down, you must hcxvarc 
or certain items. All GOTO and GOSUB ref¬ 
erences must be changed to reflect the new line 
numbers. The most important change of all is in 
the M L routine itself. The M L routine checks to 
see if the current line number is 32500. If you 
change the starting line number of BUNCRUSH, 
you must change the check in the ML routine. 

DATA Line 32548, item 14 is a 126 which is 
the MSB of the line number 32500; DATA Line 
32500, item 5 is a 244 which is the LSB of 
32500. Anyway, whatever your new line 
number, break it down into LSB/MSB format 
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and substitute the appropriate numbers in the 
above mentioned locations. 

4.) OTHER CHANGES — Other things 
which you may want to add to BUNCRUSH are 
ERROR CHECKING and an INPUT line which 
will let you title the listing in expanded print so 
you know what program is being Cross 
Referenced. Another change which would 
require some work is to output an alphabetical 
Cross Reference. The possibilities for additions 
are limited only by your imagination. 

Drawbacks and limitations. 

BUNCRUSH has some limitations which 1 
thought should be mentioned prior to receiving a 
bunch of nasty phone calls and letters. Limitations 
on BUNCRUSH are identical to those of the Vari¬ 
able Lister Utility on page 20. BUNCRUSH will 
not work correctly if: 

1. ) The target program uses more than 120 
variables. BUNCRUSH will abort the load pro¬ 
cedure with an ERROR 4 (Too Many Vari¬ 
ables). 

2. ) Line numbers are the same as BUN¬ 
CRUSH. In this case, BUNCRUSH will merge 
just fine with the target program but may cause 
problems if the target program has line numbers 
not contained in BUNCRUSH. 

3. ) The target program is so large that BUN¬ 
CRUSH will not load due to an ERROR 2 (In¬ 
sufficient Memory). 

I’ve never had problems with item 2 or 3. I have a 
48K system, however, and this may be the reason. 1 
have encountered item 1 only once, and it was with a 
canned program. There is a way around all of these 
problems — a method by which BUNCRUSH will 
work on ANY BASIC program. If BUNCRUSH 
were written entirely in machine language, without 
BASIC overhead, everything would work fine. I’ll 
leave that as an exercise for the reader. □ 


Listing 1. 


INPUT LINE U 10 t 


32500 CLP ;DIM UftR$(13:5T=PEEKtl36)+PE 
EK(137)*256:HT=:5T 
32502 ? CHR$(1253:? 

EaaGHm": input o 

32504 TLrPEEK (NT) +PEEK (NT + l)^t256 : BC^PE 
EK(NT12);IF TL=: 325eO OR TL>0 THEN ? "H 
: goto 32512 

32506 IF TL OA THEN NT = NT + BC: GOTO 3256 

4 

32507 ? " LINEIf*,"NKT LIHE*L**HKT 5THNT 


32508 ^ "L5B/MSB‘U" OFFSET'*," OFFSET" 
3250S ? " "jPEEK(NTl;"/";PEEK(NT+l)," 
";PEEK(HT + 2)," "; PEEK (NT13) 


32510 ? 


":F0R K=NT 


+4 T O NTlBC-l:? PEE K(X);" ";:NEKT K:? 

:? * LIST 0 

32512 ? ": INPUT 

UAR$ 

32514 IF U0R$(1,1)=:"Y" THEN NT=ST;G0T0 
32502 
32516 END 


CHECKSUM DATA 
(See pgs. 7-10) 


32500 DATA 345,677,832,112,32,760,733, 
158,821,323,566,6013 


Listing 2. 


32400 REH ICmCMICMMJCKKKXNKIIMNONX K N X^N 
32410 REM * THIS REH IS TO LET YOU * 
32415 REH * KNOW THRT THIS UERSION X 
32420 REH X OF BUNCRUSH HRS BEEN X 
32430 REH X IHPROUED TO HANDLE ALL X 
32440 REH X CASES OF IF/THEN. DON' TX 
32450 REH X TYPE IN THIS REH, JUST X 
32460 REH X READ FOR INFORHATION,. X 
32470 REH XXMXXXXXXXXXXXXXXMMKXXXXXX 
32480 REH X 

32500 CLR :DIH VAR$(80),NUH$(5):CA=PEE 
K(130)FPEEK(131)X256;CCul:POKE 1633,0 

32502 ? "N":LPRINT "CROSS REFERENCE UT 
ILITY VER. 2.6 BY TONY HESSINA NEWPORT 
, RI" 

32503 LPRTNT :LPRINT SLPRINT "UAR 

LINE NUHBERS":LPRINT :G0SUB 325 

42 

32504 TPzPEEK(CA);IF TP>zl28 THEN TP=T 
P-128:P0KE 1633,1 

32506 UAR$(CC,CC)i:CHR$(TP) 

32508 IF PEEK(1633) THEN GOSUB 32526 
32510 CA=:CA+l:CC-CC + l:G0T0 32504 

32512 LPRINT ;LPRINT "It OF VARIABLESz 
";PEEK(1635)-128 

32513 END 

32526 IF UARSr"UARS" THEN POP ;G0T0 32 
512 

32527 FOR X-CC+1 TO 15;UAR$(H,X)3“ “sN 
EXT X:G0T0 32530 

32530 A=USR(1536) 

32532 IF PEEK(1634) THEN GOTO 32536 

32534 UAR$(X-l,X-l)r-« ««: IF X<rl6 THEN 
UAR$(LEN(UAR$)+1)r"N0 REFERENCES" 

32535 LPRINT UAR$:LPRINT :CC=0:POKE 16 
33,0: UARSz"" : NUH$=:"" : RETURN 

32536 CL=PEEK(1637)+PEEK(1638)X256 
32538 NUH$=STRS(CL):IF LEN (UAR$)FLEN(N 
UH$)+2>80 THEN LPRINT UAR$;UAR$=" 


32540 UAR$(LEN(UAR$)FI)=NUH$:VAR$(LEN( 
UAR$)Fl)z», ":X-LEN(VAR $);GOTO 32530 
32542 RESTORE 32546;? 

rarSTI ";FOR X=1536 TO 1633;READ TPrPOKE X 

,TP:NEXT X _ 

32544 ? CHR$(125);? : RETURN 

32546 DATA 163,0,205,158,6,208,8,165,1 
36,133 

32548 DATA 205,165,137,133,206,160,6,1 
77,205,141 

32550 DATA 161,6,200,177,205,141,162,6 
,201,126 

32552 DATA 208,7,173,161,6,201,244,240 
,36,200 

32554 DATA 177,205,141,157,6,160,4,177 
,205,201 

32556 DATA 20,208,3,132,4,240,1,200,26 
0,76 

32558 DATA 115,6,205,153,6,240,53,201, 
6,240 

32560 DATA 43,201,1,240,45,201,14,208, 
8,152 

32562 DATA 24,105,7,168,76,115,6,200,2 
01,15 

32564 DATA 208,23,136,136,177,205,206, 
206 201 27 

32566 DATA 240,13,177,265,140,160,6,23 
8,160,6 

32568 DATA 24,103,160,6,168,264,157,6, 
144,183 
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32578 DATA 
32 

32572 DATA 
6,148 

32574 DATA 
,157,6 
32576 DATA 
8,128 

32578 DATA 


32,144,6,76,15,6,141,158,6, 
144,6,76,142,6,136,238,158, 
158,6,184,96,165,285,24,188 
133,285,144,2,238,286,86,8, 
8 , 8 , 8 , 8 , 8,8 


CHECKSUM DATA 
(See pgs. 7-10) 


32488 DATA 582,785,847,663,782,888,658 
,796,596,385,897,818,873,152,188,8746 
32508 DATA 581,833,946,557,148,806,127 
,271,666,612,288,126,888,675,560,8204 
32546 DATA 688,145,81,876,121,536,822, 
763,817,137,860,824,484,815,716,8885 
32576 DATA 795,693,1488 


Assembly language listing. 


000S 


• »*« 


»•»« 

*1 

»•« 

0010 

1* HL SEARCH AIDE FOR ATARI 

400* 

001S 

1• /800 BY 

TONY 

MESSINA. 



• 

0020 

1* 48 DUDLEY AVE NEWPORT 

. RI 

• 

002S 

?* 02840 VERSION 2,6 10 

JUL 

83 • 

0030 


«••• 




»»• 

0033 




• *•« 

• 1 

»»• 

0040 

I* EQUATES 

FOR 

PROGRAM FOLLOW 

• 

0043 


«»*• 


•••« 

• 1 


0030 

1 






0033 

DATA 

. DI 

1 



DATA TOKEN 

0060 

REMARK 

. DI 

0 



REM TOKEN 

0063 

BCD 

. DI 

14 



BCD • TOKEN 

0070 

STRING 

. DI 

13 



STRING TOKEN 

0073 

STMT 

. DI 

20 



STATEMENT END 

0080 

THEN 

. DI 

27 



THEN TOKEN 

0083 

TOKPTR 

. DI 

•0088 



POINTER TO BAS 

0090 

PG0 

. DI 

• 00CD 



LOC ON PAGE 0 

0093 

» 






0100 




• *•« 

• 4 

»»• 

0103 

1* THIS PROGRAM DOES A SEARCH 

• 

0110 

!• TO AIDE 

BUNCRU8H. BASIC WAS • 

01 13 

!* TOO SLOW, 30 THIS ML 

ROUTINE* 

0120 

|» WAS WRITTEN 

TO SPEED 

THINGS * 

0123 

I * UP A BIT. . 




• 

0130 


A»«« 


• •«« 


»»« 

0133 

1 






0140 


. OS 




STORE OBJECT IN MEM 

0143 


. BA 

• 0600 



ORIGIN PG6 

0130 

BEGIN 

LDA 

• 0 



LOAD A WITH 0 

0133 


CMP 

CON 



CK WITH CON FLAG 

0160 


BNE 

CONTIN 



SKIP INIT IF NOT G 

0163 

INIT 

LDA 

•TOKPTR 



GET L3B OF POINTER 

0170 


STA 

*PG0 



STORE IT 

0173 


LDA 

•TOKPTR+1 



GET MSB OF POINTER 

0180 


STA 

• POB-^l 



STORE IT ALSO 

0183 

CONTIN 

LDY 

• 0 



START Y AT ZERO 

0190 


LDA 

(PG0),Y 



GET LSB OF LINE NUMBER 

0193 


STA 

LINNUM 



SAVE IT FOR BASIC 

0200 


INY 




INCREMENT OFFSET BY 1 

0203 


LDA 

(PQ0>,Y 



GET MSB OF LINE NUMBER 

0210 


STA 

LINNUMfl 



SAVE IT FOR BASIC 

0213 

1 






0220 

!«»•» CHECK THIS LINNUM 

FOR 

32300 **** 

0223 

1 






0230 


CMP 

• •7C 



IS IT • TO MSB 

0233 


BNE 

NOEQ 



IF NO THEN START 

0240 


LDA 

LINNUM 



YES SO CK LSB 

0243 


CMP 

• •F4 



DO IT 

0230 


BEQ 

DONE 



IF EQ. DONE THIS VAR 

0233 

NOEQ 

INY 




INC PTR TO NEXT LOCATION 

0260 


LDA 

<PQ0),Y 



GET BASIC LINE BYTE CNT 

0263 


STA 

COUNT 



SAVE IT FOR FUTURE CK9 

0270 


LDY 

• 4 



GET NEW OFFSET 

0273 

START 

LDA 

<PG0),Y 



GET A BYTE INDIRECTLY 

0280 


CMP 

• STMT 



CK FOR A STMNT/DIM TOKEN 

0283 


BNE 

TARGCK 



IF NO, CK FOR T8T TOKEN 

0290 


CPY 

• 4 



WAS IT 1ST BYTE? 

0293 


BEQ 

WASDIM 



YES..IT WAS A DIM! 

0300 


INY 




INC 2 IF 3TMNT 

0303 

WA8D1M 

INY 




INC 1 FOR DIM 

0310 


JMP 

CKCNT 



SEE IF WE ARE DONE 

0313 

TAR8CK 

CMP 

TARGET 



IS IT OUR TARGET 

0320 


BEQ 

PROCIT 



IF- GO PROCESS THIS LINE 

0323 


CMP 

•REMARK 



NO CK REM 

0330 


BEQ 

8KIPIT 



IF REM SKIP THIS LINE 

0333 


CMP 

• DATA 



NOT REM. CK DATA 

0340 


BEQ 

SKIPIT 



IF DATA SKIP IT ALSO 

0343 


CMP 

• BCD 



NOT DATA CK BCD NUMBER 

0330 


BNE 

STRCK 



IF NOT BCD CK FOR STRING 

0333 


TYA 




ITS BCD PUT OFFSET IN A 

0360 


CLC 




CLEAR CARRY FOR ADD 

0363 


ADC 

• 7 



ADD 7 TO SKIP THE BCD • 

0370 


TAY 




PUT NEW OFFSET BACK IN Y 

0373 


JMP 

CKCNT 



AND 20 CK COUNT 

0380 

STRCK 

INY 




INC PTR BY ONE 

0383 


CMP 

•STRING 



CK IF STRING TOKEN 

0390 


BNE 

CKCNT 



IF NO. GO CK THE COUNT 


0393 


DEY 


1 ELSE DEC FOR 

0400 


DEY 


1 THEN CHECK 

0403 


LDA 

(PQ0),Y 

1 GET PREVIOUS TOKEN 

0410 


INY 


I THEN RESTORE 

0413 


INY 


1 ORIGINAL POINTER 

0420 


CMP 

• THEN 

1 IS IT THEN? 

0423 


BEQ 

CKCNT 

1 YES. IF/THEN NOT STRING! 

0430 


LDA 

(PQ0),Y 

) NO..GET STRING CNT 

0433 


STY 

YSAVE 

1 SAVE Y 

0440 


INC 

YSAVE 

1 INC PAST THE LAST STRING 

0443 


CLC 


t CLEAR CARRY FOR ADD 

0430 


ADC 

YSAVE 

1 ADD STRING COUNT TO OLD 

0433 


TAY 


1 PUT CNT BACK IN Y REG 

0460 

CKCNT 

CPY 

COUNT 

i ARE WE IN NXT BASIC LINE 

0463 


BCC 

START 

1 IF NO GET THIS BYTE 

0470 

SKIPIT 

J8R 

TOKUP 

1 IF YES UPDATE TOKEN PTR 

0473 


JMP 

CONTIN 

1 CONTINUE TO LOOK 

0480 

PROCIT 

STA 

CON 

1 MAKE CON NON-ZERO 

0483 


JSR 

TOKUP 

1 UPDATE PAGE 0 POINTER 

0490 


JMP 

BASIC 

1 EXIT TO BASIC 

0493 

DONE 

DEY 


I DEC Y TO ZERO 

0300 


INC 

TARGET 

1 UPDATE TARGET NUMBER 

0303 


STY 

CON 

1 ZERO OUT CON FOR BASIC 

0310 

BASIC 

PLA 


1 PULL NASTYNESa OFF 

0313 


RTS 


1 RETURN TO BASIC 

0320 

1 




0323 

1*••*«• 




0330 

} * • 

SUBROUTINE TOKUP 

» • 

0333 

) • » 



» • 

0340 

1* THIS 

SUBROUTINE UPDATES THE • 

0343 

1 * PQ0 

PTR OF THE TOKEN PROGRAM* 

0330 

1* THE 

OLD PTR 

IS LOADED AND * 

0333 

1* THEN 

THE BYTE CNT IS ADDED. * 

0360 

1* IF CARRY IS 

SET PB0-H 

[S * 

0363 

1• ALSO 

UPDATED 

* 

0370 





0373 

1 




0380 

roKUP 

LDA 

*PO0 

1 GET LSB OF POINTER 

0383 


CLC 


1 CLEAR CARRY FOR ADD 

0390 


ADC 

COUNT 

1 ADD CNT TO NXT LINE • 

0393 


STA 

• PG0 

1 PUT IT BACK 

0600 


BCC 

OUT 

1 IF CARRY CLEAR GET OUT 

0603 


INC 

•PG0+1 

1 OOPS, CARRY SET. INC MSB 

0610 

OUT 

RTS 


1 SCRAM SAM•' 

0613 

1 




0620 


*• LOCAL VARIABLES 


0623 

1 




0630 

COUNT 

. BY 

0 

1 BYTE CNT THIS BASIC LINE 

0633 

CON 

. BY 

0 

1 FLAG FOR BASIC ML ROUT 

0640 

TARGET 

. BY 

128 

t VARIABLE TOKEN • START A 

0643 

YSAVE 

. BY 

0 

1 Y REGISTER SAVE AREA 

0630 

LINNUM 

. BY 

0 

I BASIC LINE NUMBER LSB 

0633 


. BY 

0 

) MSB OF LINE • 

0660 

INVFLG 

. BY 

0 

1 INVERSE FLAG AREA 

0663 


. EN 




ATARI BASIC 
TOKEN TABLE 


COMMANDS OPERATORS FUNCTIONS 

HEX DEC HEX DEC HEX DEC 


00 

0 

REM 

OE 

14 

(NUM CONST) 

3D 

61 

STR$ 

01 

1 

DATA 

OF 

15 

[STR CONST] 

3E 

62 

CHR$ 

02 

2 

INPUT 

10 

16 

" 

3F 

63 

USR 

03 

3 

COLOR 

11 

17 

(NOT USED) 

40 

64 

ASC 

04 

4 

LIST 

12 

18 


41 

65 

VAL 

05 

5 

ENTER 

13 

19 

$ 

42 

66 

LEN 

06 

6 

LET 

14 

20 

: [STMT END) 

43 

67 

ADR 

07 

7 

IF 

15 

21 


44 

68 

ATN 

08 

8 

FOR 

16 

22 

[LINE END) 

45 

69 

COS 

09 

9 

NEXT 

17 

23 

GOTO 

46 

70 

PEEK 

OA 

10 

GOTO 

18 

24 

GOSUB 

47 

71 

SIN 

OB 

11 

GO TO 

19 

25 

TO 

48 

72 

RND 

OC 

12 

GOSUB 

1A 

26 

STEP 

49 

73 

FRE 

OD 

13 

TRAP 

IB 

27 

THEN 

4A 

74 

EXP 

OE 

14 

BYE 

1C 

28 

n 

4B 

75 

LOG 

OF 

15 

CONT 

ID 

29 

<= [NUMERICS) 

4C 

76 

CLOG 

10 

16 

COM 

IE 

30 

<> 

4D 

77 

SQR 

11 

17 

CLOSE 

IF 

31 

>= 

4E 

78 

SGN 

12 

18 

CLR 

20 

32 

< 

4F 

79 

ABS 

13 

19 

DEG 

21 

33 

> 

50 

80 

INT 

14 

20 

DIM 

22 

34 

= 

51 

81 

PADDLE 

15 

21 

END 

23 

35 


52 

82 

STICK 

16 

22 

NEW 

24 

36 

* 

53 

83 

PTRIG 

17 

23 

OPEN 

25 

37 

+ 

54 

84 

STRIG 

18 

24 

LOAD 

26 

38 

- 




19 

25 

SAVE 

27 

39 

/ 




1A 

26 

STATUS 

28 

40 

NOT 




IB 

27 

NOTE 

29 

41 

OR 




1C 

28 

POINT 

2A 

42 

AND 




ID 

29 

XIO 

2B 

43 

( 




IE 

30 

ON 

2C 

44 

) 




IF 

31 

POKE 

2D 

45 

= [ARITHM ASSIGN) 




20 

32 

PRINT 

2E 

46 

= [STRING ASSIGN) 




21 

33 

RAD 

2F 

47 

<= [STRINGS) 




22 

34 

READ 

30 

48 

O 




23 

35 

RESTORE 

31 

49 

>= 
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24 

36 

RETURN 

32 

50 


25 

37 

RUN 

33 

51 

> 

26 

38 

STOP 

34 

52 

= 

27 

39 

POP 

35 

53 

+ [UNARY] 

28 

40 

? 

36 

54 

- 

29 

41 

GET 

37 

55 

{ [STRING LEFT PAREN] 

2A 

42 

PUT 

38 

56 

( [ARRAY LEFT PAREN] 

2B 

43 

GRAPHICS 

39 

57 

( [DIM ARRAY LEFT PAREN] 

2C 

44 

PLOT 

3A 

58 

( [FUN LEFT PAREN] 

2D 

45 

POSITION 

3B 

59 

( [DIM STR LEFT PAREN] 

2E 

46 

DOS 

3C 

60 

. [ARRAY COMMA] 

2F 

47 

DRAWTO 




30 

48 

SETCOLOR 




31 

49 

LOCATE 




32 

50 

SOUND 




33 

51 

LPRINT 




34 

52 

CSAVE 




35 

53 

CLOAD 




36 

54 

(IMPLIED LET] 




37 

55 

ERROR- [SYNTAX] 





Triangle Demo 


5 C-1 

le GRAPHICS 23 
15 E=lNTC300«RNDCi)) 

20 D=INTC300«RNDC1)) 

25 C=1 
30 COLOR C 
35 B=39 
40 A“7S 

45 FOR Szl TO D STEP E 
50 FOR X=A TO B STEP -2 
55 PLOT 80,A~X 
60 DRAHTO 80TX,INT(A/S) 

65 DRAMTO 80,X 
70 DRANTO 80-X,INTCA/S) 

75 DRAMTO 80,A-X 

80 IF PEEK C764) 0255 THEN END 

85 COLOR C 

90 NEXT X 

95 C=C+1 

100 NEXT S 

105 SETCOLOR 0,T,2 

110 T=:T+1 

115 GOTO 5 


CHECKSUM DATA 
(See pgs. 7-10) 

5 DATA 693,999,498,483,967,760,238,227 
,138,962,886,140,38,146,502,7677 
80 DATA 871,785,403,77,748,508,326,662 
,4380 
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SYS/STAT 


16K Cassette or Disk 


by Robert Hartman 


System Status is a BASIC program that allows 
the user to look at a formatted listing of all the 
devices accessible to him/her. It also has the capabih 
ity to display 64 files on drives one through four. Its 
main purpose, however, is not to be a menu, but to 
supply the user with information regarding the 
accessibility of the four RS-232 ports. 

NOTE: If a drive is started up after the program 
has been run, it is necessary to re-run the program in 
order to get a menu on that particular drive. □ 


10 REM Analog SgsteM Status 

20 REM Version 1.1 

30 REM copyright to Aprils 1S81 

40 REM by Robert M. HartMan 

50 DIM A$C201,FSC5),At5)SGRAPHIC 

S 0:P0KE 752,l:P0KE 55S,0:P0KE 82,1:P0 

KE 83,39:FR=FRE(01:LSCHr764:C0H=53279 

60 POKE 65,e:REM Noisy I/O Off 

70 REM SET UP SCREEN 

80 FOR 1-13 TO 22:P0SITI0N 18,1:? 

NEXT I 

90 POSITION 12,1:? "analog systat":F0 
R Izl2 TO 25:POSITION 1,0:? "-••:P0SITI 
ON 1,2:? ••-*-:P0KE C0N,0:NEXT I 
100 FOR I-O TO 38:POSITION 1,3:? ”-";p 
OSITION 1,19:? "-'MNEXT I 

110 REM CHEAT tjust a little l_ 

120 POSITION 12,5:? IJ ; 

FOR 1=12 TO 26;P0SITI0N 1,6:? "-":NEXT 


•CL, 

^ “Screen":POSlTlO 


-Keyboard' 


I:P0SITI0N 1,7:? 

130 POSITION 1,9:? _ 

N 1,11:? 'll --Editor*':P0SITI0N 1,13:? 
s -cassette":C=7:R=26 
140 REM SYSTAT 

150 TRAP 190:0PEN »1,6,0,"D1:*.*":POSI 
TION R,C:? "I® -Drive ttl":60SUB 260:D1 


=1 

160 OPEN tt2,6,0,"D2:*.**':POSITION R,C: 

? "00 -Drive tt2'*:G0SUB 260:D2=:l 

170 OPEN lt3,6,0,"D3:*.*":POSITION R,C: 

? "0B -Drive lt3**:G0SUB 260;D3=l 

180 OPEN lt4,6,0,"D4:*.*":POSITION R,C; 

? "00 -Drive tt4":G0SUB 26e;D4=l 

190 TRAP 280:0PEN 115,8,0, "R : : GOSUB 27 

0 

200 CLOSE »5:TRAP 218:0PEN ItS , 8 , O,''P :" 
;P0SITI0N 14,14:? "S -Printer" 

210 REM h£mRY 

220 POSITION 1,19:? '•Awount-o f-Mei%ory" 
;P0SITI0N 1,20:? FR:F0R 1=1 TO 5:P0SIT 
ION I,2e:GET tt6,A:ACI}=A:NEXT I 
230 FOR 1=1 TO 5:F$tI,I3=CHR$tA(IJ+128 
):NEXT I;POSITION 1,20:? ,:P0SITI0H 2, 


bytesi 


240 GOTO 280 

250 FOR 1=1 TO 7: CLOSE ltI:NEXT I:RETUR 

N 

260 C=C+2:RETURN 

270 POSITION 12,16:FOR 1=1 TO 4:? "0"; 
CHR$CI+48+128J;", ";:NEXT I:? "◄◄":P0S 


ITION 12,17:? "RS232-C ports":RETURN 
280 TRAP 32767:POSITION 23,19:? •'COMMa 
nds'*;POSITION 24,20:? Ill-Menu(s)** 

290 POSITION 24,21:? "0^Run again 

:POSITION 24,22:? "g-EXIT":POKE 559,34 

:SETC0L0R 2,4,4:P0KE LSCH,255 

300 CLOSE lt5;0PEN l$5,4,0, "K :*• :GET »5,A 

:IF A<>69 AND A<>77 AND A<>82 THEN 300 

310 IF A=69 THEN GRAPHICS 0:P0KE 65,1: 

GOSUB 25e:NEH 

320 IF A=82 THEN RUN 

330 REM MENUtS) 

340 POSITION 23,19:? " - - ":P0KE 2 

ei,14:F0R 1=20 TO 22:P0SITI0N 24,1:? , 
:NEXT I:P0SITI0N 24,21:? ''Enter Drive" 
350 TRAP 288:P0SITI0N 37,21:INPUT DR 
360 IF DR<1 OR DR>4 THEN 280 
370 IF DR=1 AND Dl=l THEN DRV=1:G0T0 4 
20 

380 IF DR=2 AND D2=l THEN DRV=2:G0T0 4 
20 

390 IF DR=3 AND D3=l THEN DRV=3:G0T0 4 
20 

400 IF DR=4 AND D4=l THEN DRV=4:G0T0 4 
20 

410 GOTO 280 

420 ? "«":P0SITI0N 2,1:? "Menu for Dri 
ve lt";DRV:? :? :G0SUB 25e:B$="D :*.n": 
B$(2,2)=STR$tDRV) 

430 OPEN ttl,6,0,B$:0PEN tt2,4,0,"K:" 

440 TRAP 480:INPUT lll,A$:N=N+l 

450 ? A$(2,LENtA$3J:IF PEEKt905=21 THE 

N POKE 82,PEEK(823+20;P0SITI0N PEEKC82 

),4 

460 IF N=35 THEN GOTO 520 
470 GOTO 440 

480 ? CHR$t28>;" ":? :I 

F LEHCA$}>15 THEN IF A$tlO,11)="SE" TH 
EN GOTO 500 

490 A$tLEN(A$)+l)=" FREE SECTORS" 

500 FOR 1=1 TO LENtA$):A$tI,I)=CHR$CAS 
CCA$tI,I))+128):NEXT I:? A$ 

510 POKE LSCH,255:GET it2,A;CL0SE H2:RU 

N 

520 REM Get rest of Menu After Char 
530 POKE LSCH,255:GET tt2,A:P0KE 82,2:? 
"6":P0SITI0N 2,3 

540 TRAP 570-.INPUT ltl,A$:? A$t2,LENfA$ 
)) 

550 IF PEEKt90)=22 THEN POKE 82,PEEKC8 

2)+20:POSITION PEEKC82),4 

560 GOTO 540 

570 TRAP 32767:GOTO 480 




CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 988,4,923,497,183,455,780,739, 

522,805,473,0,266,62,125,6822 

160 DATA 971,986,1,844,985,35,329,933, 

723,526,292,597,140,128,961,8451 

310 DATA 771,800,146,204,921,738,288,2 

97,306,287,718,918,984,932,640,8950 

460 DATA 418,728,64,134,615,333,767,23 

7,39,830,729,937,5831 
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FASTERCHARACTER DUMPS 


16K Cassette or Disk 
by Joseph T* Trem 


If you are an avid ATARI enthusiast as I am, then 
you probably have gone through quite a number of 
different programs. Many of the better programs use 
character redefinition. Unfortunately, to define a 
new character set one must move ATARI’S character 
set into a new defined memory location. In BASIC, 
this takes time. For 1024 bytes (128 characters or 4 
pages) it takes approximately eleven seconds. It’s 
downright boring! 

This article demonstrates a machine language 
routine in string form which transfers ATARI’S 
character set into a user-chosen RAM area. It runs in 
a split second. Before going any further, I must state 
that this article is not a tutorial on character redefini¬ 
tion or animation, although they are both used in 
the demo. 

Here is a brief summary of the four sample pro¬ 
grams included. Program 1 demonstrates charac¬ 
ter redefinition and the time involved in transferring 
1024 bytes (line 40). This takes approximately 11 
seconds. Program 2 incorporates the machine 
language routine and takes less than a second (line 
30). Program 3 demonstrates a sample program 
with sound and animation. There are five redefined 
characters. After the program executes once, it 
recycles and re-executes all over again. Notice the 
time it takes to rerun. . .remember: every time this 
program runs, it is dumping 1024 bytes in under a 
second! Program 4 is the source code for the 
machine language routine. 

The technique used in this program is called a 
block move. We simply look at what is in ATARI’S 
character base address and move that data to our new 
character address, one byte at a time. This technique 
is also good for player/missile graphics. You can zero 
out all player/missile data in a split second. Just 
think, no more time delay to clear P/M memory. 
Sound great? Then read on... here is the 
documentation for the first three programs. 

Program 1. 

Li ne 20 — Sets up character variables 
Line 40 — Transfers characters (slow) 

Lines 50-70 — Reads in new character 
Line 80 — Points to new character base 


Program 2. 

Line 20 — Sets up character variables 
Line 30 — Transfers characters (fast) 

Lines 40-60 — Reads in new character 
Line 70 — Points to new character base 

Program 3. 

Line 10 — Sets up variables 
Line 100 — Transfers 128 characters 
Lines 1000-2170 — Alters character set 
Line 3000 — Points to a new character base 
Lines 3500-7000 — Main loop for 

animation 

Line 10000 — Sound routine 
Here’s some information on our USR call: 

A=U5RCADRCE$),ADDR,PAGE} 

ADDR=address where new character set is to 
reside 

PAGE=the number of 256 blocks you wish 
to move. 

In closing, I hope that everyone will enjoy the 
substantial increase in speed this subroutine can pro¬ 
vide. just think, no more 'Tlease wait. . . ” prompts. 
□ 


Program 1 


10 REH ^BHfDUHPS 1024 BYTES TO NEM CHBA 
5 USING ONLY BASIC CAPROX. 11 SECONDS) 

20 DIH ESC50):RAMT0P=PEEKC106)-8:P0KE 
106,RANTOP:CHBAS=RANT0P:ADDR=CHBAS«256 
30 GRAPHICS 17:P0SITI0N 0,9:? II6;”W0UI 
NG CHARACTER SET" 

40 FOR X=e TO 1023:POKE ADDR^X,PEEKC57 
344^X):NEXT X 

50 CHAR=59:P0S=ADDR^CCHAR«8) 

60 DATA 0,24,36,66,153,66,60,0 

70 FOR X=0 TO 7:READ A:POKE (POS^X),A: 

NEXT X 

80 GRAPHICS 18:P0KE 752,1:P0KE 756,CHB 
AS 

90 POSITION 10,5:? tt6;"[" 

100 GOTO 160 
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CHECKSUM DATA 
(See pgs* 7-10) 


18 D(kl(k 377,35,538,506,376,318,760,421 
,361,683,5035 


Program 2 

10 REH *9«fDUHPS 1024 BYTES TO NEH CHB0 
5 IN MACHINE LANGUAGE CNO DELAY)^HBe 
20 DIM ESf50J :RAMTOPz:PEEKC106J-8:POKE 
106,RAMTOP:CHBA5=RAHT0P:ADDR=CHBAS«256 
:PAGE=:4 

30 FOR X=1 TO 40:READ N:E$(X)=CHR$(N3: 
NEXT X:A=USRCADRCE$),ADDR,PAGE}:REN 
UMP ROUTINE}^ 

40 DATA 104,104,133,207,104,133,206,10 
4,104,133,212,163,0,133,204,163,224,13 
3,205,162 

50 DATA 1,160,0,177,204,145,206,200,20 
8,243,230,205,230,207,232,228,212,208, 
240,36 

60 CHAR=53:P0S=ADDR^(CHARI^8} 

70 DATA 0,24,36,66,153,66,60,0 

80 FOR X-O TO 7:READ A:POKE CPOS+X},A: 

NEXT X 

90 GRAPHICS ISSPOKE 7S2,1:P0KE 756,CHB 
AS 

100 POSITION 9,5:? tt6;"t'* 

110 GOTO 110 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 659,729,470,040,552,978,320,76 
2,423,292,609,6722 


Program 3 

10 CLR :OIH E$C58):RAHT0P=PEEKCie6):CH 
BAS=RAMT0P-8:ADDR=CHBAS«256:PAGE=4:SND 
=10000 

100 FOR X=1 TO 40:READ H:E$fX)=CHRSCN) 
:NEKT X:A=USRfADRCE$],ADDR,PAGE):REM * 
DUMP ROUTINE* 

110 DATA 104,104,133,207,104,133,206,1 
04,104,133,212,169,0,133,204,169,224,1 
33,205,162 

120 DATA 1,160,0,177,204,145,206,200,2 
00,249,230,205,230,207,232,228,212,200 
,240,96 

1000 CHAR=59:P0S=ADDRT(CHAR*8) 

1010 DATA 0,0,144,96,144,0,0,0 

1020 FOR X=8 TO 7:READ A:POKE CPOS+X), 

A:NEXT X 

2000 CHAR=60:P0S=ADDR-»(CHAR«8) 

2010 DATA 0,6,6,15,6,6,0,0 

2020 FOR X=0 TO 7:READ A:POKE CPOS+X), 

A:NEXT X 

2050 CHAR=61:P0S=ADDR+CCHAR*8) 

2060 DATA 0,0,0,20,8,20,0,0 

2070 FOR X=0 TO 7:READ A:POKE CPOS+X), 

A:NEXT X 

2ioe CHAR=62:P0S=ADDR^CCHAR«8} 

2110 DATA 0,0,20,10,60,20^10,0 

2120 FOR X=0 TO 7:READ A:POKE CPOS+X}, 

A:NEXT X 

2150 CHAR=63;P0S=A0DR+CCHAR}C8} 

2160 DATA 0,140,104,57,86,72,2,0 
2170 FOR X“0 TO 7;READ A:POKE CPOS+X}, 
A:NEXT X 

3000 GRAPHICS 17:P0KE 752,1:POKE 756,C 
HBAS 


3010 POSITION 1,20:? tt6;“ASSY CHARACTE 
R DUMP" 

3500 FOR X-O TO 4:P0KE 708,14:POSITION 
x,5:? 116;" [ ":GOSUB SND:POKE 708,8:P 
OSITION x,5:? tl6;" \ ":GOSUB SND 
3510 NEXT X 

3520 FOR 1=1 TO 20:P0KE 708,14:G0SUB S 
ND:POKE 708,8:G0SUB SND 
3530 NEXT I 

4000 FOR K=5 TO 10:P0KE 708,14:POSITIO 
N K,5:? tl6;" t ":GOSUB SND:POKE 708,8: 
POSITION K,5:? It6;" V ":GOSUB SND 
4010 NEXT X 

4520 FOR 1=1 TO 20:POKE 708,14:G0SUB S 
ND:POKE 708,8:G0SUB SND 
4530 NEXT I 

5000 FOR X=ll TO 14:P0KE 788,14:POSITI 
ON K,5:? tt6;" C ":GOSUB SND:POKE 708,8 
:POSITION K,5:? tt6;" \ ":GOSUB SND 
5010 NEXT X 

6000 POSITION 15,5:? lt6;"l":F0R D=14 T 
0 10 STEP -l:SOUND 0,30,8,D:NEXT D 
6010 POSITION 15,5:? tt6;"A»;F0R D=10 T 
0 5 STEP -l:SOUND O,100,8,D:NEXT D 
6020 POSITION 15,5:? tt6;"_":F0R D=5 TO 
0 STEP -‘l:SOUND O,30,8,D:HEXT D 
6030 POSITION 15,5:? tl6;"-":F0R D=5 TO 
0 STEP -l:SOUND 0,30,8,D:NEXT D 
6040 POSITION 15,5:? tt6;"A":F0R D=10 T 
0 5 STEP -l:SOUND 0,100,8,D:NEXT D 
6050 POSITION 15,5:? tt6;"}":F0R 0=14 T 
0 10 STEP -l:SOUND 0,30,8,D:NEXT D 
6070 POKE 708,O:SOUND 0,0,0,0:SOUND 1, 
O,0,0:SOUND 2,0,0,0 
7000 GOTO 10 

10000 SOUND 0,280,12,8:S0UND 2,203,12, 
8:S0UND l,RNDC0}«10,ie,8:RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 772,278,748,506,876,319,217,07 
2,803,219,878,993,224,877,233,8815 
2120 DATA 222,883,396,227,344,928,573, 
549,57,506,809,536,59,508,398,6995 
5010 DATA 538,815,747,838,839,750,820, 
756,623,551,7277 


Assembly listing. 

8186 jCltfll^CTER DUMP BY JOE TREM 

8119 0LD=1CC jTEMP. LOCATION OF ATARI'S CMRACTER SET 

8129 NEW=$CE ;TEHP. LOCATION OF NBJ CmRACTER SET 

8139 PA6£=i»D4 ;NUNBER OF 256 BYTE BLOCKS 

8148 <=1600 

0159 PIA 

0160 PLA ;PULL HIGH BYTE OF AOOR 
8170 STA NEUtl 

0180 PLA ;PULL LOU BYTE OF ADDR 
0190 STA NEU 

8208 PLA ;PULL HIGH BYTE-DON'T NEED 
0216 PLA jPlJLL NIMBER OF BLOCKS TO MOVE 
8228 STA feCE 

0239 LDA «00 iLOADS IN ATARI CHR.SET 
0248 STA OLD 

0258 LDA #$E0 {ATARI CHR. :3ET IS AT $E000 OR 57344 IN 8i 

0266 STA OLDtl 

0278 LDX 01 

0288 LDY 00 

0290 LOOP LDA (OLD),Y 

0309 STA (NEW),Y iMOUES TO NEU AREA 

0310 INY 

9320 8NE LOOP 

0338 INC OLD+1 

8348 INC NEU+1 

0358 INX 
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836« CPX PAGE 
0370 BNE LOOP 

8388 RTS jIF ALL BLOCKS ARE LOADED RETURN TO BASIC 
0390 .END 


Atari Symbol Demo 


0 REH MICKXIOCW^MMWMKMMICRKMK 

1 REM ^ ^ 

2 REM * ATRRI SYMBOL 

3 REM * BY CROIG I4EIS5 ^ 

4 REM * * 

5 REM XXX - MMM - mCKICKKKMICmCXMM 

10 GRAPHICS 24:C0L0R l:POKE 559,0 
20 R=0 

24 REM 

25 REM plot STRAIGHT LINES 

26 REM 

30 READ M,X,Y,Z:PLOT I4,X:DRAMT0 Y,Z:R= 
R+1 

100 DATA 144,13,144,76,144,13,156,15,1 
44,13,128,28,156,15,156,88,160,16,156, 
20,160,16,160,176 

110 DATA 160,16,180,20,180,20,180,176, 
184,21,180,24,184,21,194,24,194,24,194 
,84,240,154,240,172 

120 DATA 240,172,220,172,180,176,160,1 

76.160.176.144.176.144.176.144.144.88, 
180,68,180,88,180,88,160 

130 DATA 68,180,68,160,68,160,88,160,1 
28,28,128,76,184,21,184,84 

134 REM 

135 REM plot FALSE CURUES *** 

136 REN 

140 DATA 128,77,126.5,94,126.5,94,124, 

108.124.108.120.122.120.122.112.137.11 

2.137.104.145 

150 DATA 104,145,96,150,96,150,88,155, 

88,155,80,158,80,158,72,160 

160 DATA 144,76,142.5,94,142.5,94,140, 

108.140.108.135.122.135.122.126.137.12 

6.137.120.145 

170 DATA 120,145,114,151,114,151,108,1 

55.5.108.155.5.100.158.5.100.158.5.88, 
160 

180 DATA 156,88,153.5,112,153.5,112,15 
0,128,150,128,144,144,143,144,136,156, 
136,156,124,168 

190 DATA 124,168,112,176,112,176,102,1 

79,102,179,96,180,96,180,88,180 

200 DATA 194,84,194,92,194,92,198,112, 

198,112,208,130.5,208,130.5,216,141,21 

6.141.224.148 

210 DATA 224,148,232,152,232,152,240,1 
54 

220 DATA 184,84,186,104,186,104,189.5, 

120.189.5.120.196.136.196.136.204.148 
230 DATA 204,148,216,160,216,160,228,1 
68,228,168,240,172 

240 DATA 182,122,184,132,184,132,188,1 


40,188,140,196,152,196,152,208,164,208 

,164,220,172 

250 IF R<68 THEN 30 

260 IF R=68 THEN 500 

310 REM 

320 REM FILL 

330 REM 

400 0=0 

500 READ A,B,C,D:PLOT A,B:POSITION C,D 
:QzQ+l 

900 POKE 765,1 

910 KIO 18,tt6,0,0,"S:“ 

1000 DATA 144,13,144,76,144,76,142.5,9 
4,142.5,94,140,108,140,108,135,122,135 
,122,126,137,126,137,120,145 
1010 DATA 120,145,114,151,114,151,108, 
155.5,108,155.5,100,158.5,100,158.5,88 
,160,88,160,88,180 

1020 DATA 160,16,160,176,184,21,184,84 

1030 DATA 184,84,186,104,186,104,189.5 

,120,189.5,120,196,136,196,136,204,148 

1040 DATA 204,148,216,160,216,160,228, 

168,228,168,239,171 

2000 IF Q<20 THEN 500 

2010 IF 0=20 THEN 2800 

2500 REN 

2510 REM MACHINE LANGUAGE 

2520 REM 

2800 POKE 559,34:FOR X=1 TO 1000:NEXT 
X 

3000 FOR 1=1664 TO 1673:READ A:POKE I, 
A:NEXT I 

3010 DATA 232,142,10,212,142,24,208,76 
,128,6 

3020 ? USRC16643:RETURN 
3030 RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

0 DATA 552,194,141,406,200,562,472,981 

,265,567,271,550,605,686,546,6998 

130 DATA 16,87,243,89,84,805,118,371,6 

01,330,184,540,938,889,345,5640 

250 DATA 655,495,81,759,87,225,685,793 

,764,530,838,34,78,73,592,6689 

2010 DATA 864,292,243,294,870,63,617,1 

61,786,4190 
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MULTIPROCESSING 


16K Cassette or Disk 
by Mark Chasin 


No, this article will not enable you to set up a time¬ 
sharing service on your ATARI home computer, but 
it will demonstrate how to implement a form of 
multiprocessing which has been used in a number of 
recently released programs for the ATARI. To un¬ 
derstand the principles of this program, you will 
need some background on how the video display 
operates. 

The beam of electrons generated in the cathode 
ray tube of your TV set is focused and directed at the 
phosphors on the screen. The beam begins scanning 
the screen at the upper left corner, and proceeds 
across the screen from left to right. At the right edge, 
it returns to the left side and drops down one scan 
line, and proceeds to the right again. This process is 
repeated 262 times until the whole screen has been 
scanned, and then the beam is turned off and re¬ 
turned to the upper left corner to repeat the process 
again, sixty times a second. 

This seems like a great deal to handle in one- 
sixtieth of a second, but your ATARI has a machine 
cycle time of 560 nanoseconds, so in that time in¬ 
terval, the ATARI can execute approximately 
30,000 cycles. The result of this is that when the 
beam returns to the upper left corner of the screen, 
there is a good deal of time to waste before it must 
start scanning again. At this point, the ATARI goes 
off on its own, performing a number of housekeep¬ 
ing functions, updating timers and the like. Ulti¬ 
mately, it returns to the business of drawing on the 
screen. 

The folks who built your ATARI designed the 
system so that it could be modified easily by anyone 
wanting to do so, and the remainder of this article 
will discuss such a modification. The computer 
*'knows” where to go during the wait described 
above because two memory locations contain a hexa¬ 
decimal address telling it where to go, and every time 
it gets to the upper left corner of the display, it looks 
in these memory locations and goes to the indicated 
address, where the housekeeping routines are stored. 
This process is called vectoring. There are actually 
two independent routines performed during each 
interval, and separate vectors exist for each. The im¬ 


mediate vertical blank vector is found at hexadeci¬ 
mal address $0222 and $0223, and the second vec¬ 
tor, called the deferred vertical blank vector, is found 
at $0224 and $0225. What we are about to do is 
change the address located at $0224, $0225 to point 
to our own routine, and then we’ll jump back into 
the routine that the ATARI was originally pointing 
to. When this is accomplished, our routine will 
execute 60 times per second, and will continue to 
execute until we either turn off the computer or hit 
SYSTEM RESET. This will be totally independent 
of anything else we may be doing at the time, such as 
programming, editing, or playing a game! 

The BASIC program shown in Figure 1 is simply 
an implementation in BASIC of the Assembly lan¬ 
guage program shown in Figure 2, so I will describe 
the operation of the Assembly language program in 
detail. First, I will list the locations and their uses 
within the program. 

COUNT 1 — used to determine how many 
times we have gone through the routine, to cal¬ 
culate when to start and stop the notes to be 
played. 

COUNT 2 — used to remember which note 
the routine is playing. 

VVBLKD — the location of the deferred 
vertical blank vector. 

SETVBV — an ATARI routine, described 
in more detail below. 

MUSIC — the location where the list of 
notes to be played is stored. 

RETURN — this is where we need to jump 
to return to the ATARI housekeeping routines. 

SND — the frequency register for SOUND 

O. 

VOL — the distortion and volume register 
for SOUND O. 

Lines 130 and 170-190 are housekeeping func¬ 
tions of this routine. Line 130 provides the PLA 
instruction necessary for accessing the routine from 
BASIC, and lines 170-190 set both COUNTs to 0. 
Lines 230-270 repoint the delayed vector to our 
routine, as follows. Since the 6502A inside your 
ATARI is an 8 bit processor, we can only handle one 
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byte at a time. It should be obvious that if the com¬ 
puter tries to access this vector after we have changed 
one byte of the address, but before we have changed 
the second, the computer will go on a wild goose 
chase looking for where it should be. To prevent this, 
those clever folks who wrote the operating system 
for your computer built in a routine, called SETVBV, 
which will change these vectors without the chance 
of fouling things up. To use it, we load the Y register 
with the new vector low byte, and the X register with 
the new vector high byte, $20 and $06 respectively 
in this case, since our routine is loaded at $0620. We 
then load the accumulator with a 7 if we are setting 
the deferred vector, or a 6 if the immediate vector, 
and then we JSR to the subroutine SETVBV. Presto! 
Our vector is changed, and the routine starts oper¬ 
ating. 

This routine will play a little familiar background 
music while you slave away over a hot computer. 
Later on. I’ll describe how to change the tune to your 
own selection. The routine starts on line 320. This is 
the first time through, so we increase COUNT 1 to 
one. If COUNT 1 = 12, we’ll turn the note off, and 
when COUNT 1 = 15, we’ll play the next note, and 
reset COUNT 1 to 0. Lines 360-370 shut off the 
note, lines 410-420 reset the count to 0, and lines 
430-470 play the next note. The tune consists of 
eight notes repeated over and over, and COUNT 2 
keeps track of which note is being played. When it 
gets up to 8, it’s reset to 0 (lines 480-530), so the 
first note is played right after the eighth. If COUNT 
1 is not equal to either 12 or 15, the routine ends and 
returns to the normal housekeeping functions per¬ 
formed by the ATARI during the vertical blank 
period (line 400). Also, after a new note is started, 
the same thing happens (line 540). The table of notes 
played in the tune is located in line 590. 

The BASIC program in Figure 2 simply converts 
the instructions described above into decimal form, 
and POKEs the routines into the correct place in 
memory. The routine is then set in motion with the 
USR call in line 27000, and from that point on, can 
be ignored. It will continue by itself! 

Changing the tune being played is very simple. 
Choose a song in which all the notes are the same 
length, e.g., quarter notes. In line 24000, change the 
1639 to (1632-bthe number of notes in your tune-1), 
replace the data in lines 25000 and 26000 with the 
notes for your tune, and change the 8 in line 22000 
to the number of notes in your tune. Remember, the 
tune will play over and over, so pick something 
which sounds good on repetition. 

The routine presented here can be ended by a 
power-off, power-on sequence, or by a SYSTEM 
RESET. A third method, probably more useful for 
use in a program, is this: 

POKE 1562^104:POKE 1544^98:P0KE 1546,2 

28:K=USR(15423:50UND 0,0,8,0 


This is a simple demonstration of the use of verti¬ 
cal blank interrupt routines. There are many other 
potential uses for this approach, such as background 
music for another program, checking for keyboard 
or joystick input during a program, or implementa¬ 
tion of multitasking. It is perfectly feasible to have 
two completely separate programs running *'simul- 
taneously,” but the programming for this gets fairly 
complicated. One program would run in real time, 
and the other during the vertical blank interrupt 
routines. Play around with the ideas presented here, 
and learn all about simultaneous processing. □ 


Figure 1. 

8000 REM MKi t M » KMXXMMKXK K K 1CI t XMX FIRST, 

ME'LL POKE III THE LIMES FROM 130-270 
OF THE ASSEWLY LISTING XXMKMMKKICKXM 
9000 RESTORE 10000:F0R 1=1536 TO 1552: 
READ A:P0XE I,A:NEHT I 
10000 DATA 104,169,0,133,192,133 
11000 DATA 194,160,32,162,6,169 
12000 DATA 7,32,92,228,96 
13000 REM 

THEN ME'LL POKE IN THE MAIN ROUTINE 
KXMXMMXMMXXNMMKMXKMMXKICXMMKXXMXXXKKXK 
14000 RESTORE 15000:FOR 1=1568 TO 1619 
:READ A:P0KE I,A:NEHT I 
15000 DATA 230,192,166,192 
16000 DATA 224,12,144,5,169,0 
17000 DATA 141,1,210,224,15,176 
18000 DATA 3,76,98,228,169,0 
19000 DATA 133,192,166,194,189,96 
20000 DATA 6,141,0,210,169,166 
21000 DATA 141,1,210,230,194,166 
22000 DATA 194,224,8,144,4,169 
23000 DATA 0,133,194,76,98,228 
23500 REM MKNMKXX - KXMXXMXKXNXMXXXXKICMXX 
FINALLY, HE'LL POKE IN THE TABLE OF NO 
TES MMXKXXKMMMMXMlCMMXMMKMXKi e MXJCXMXXICK 
24000 RESTORE 25000:FOR 1=1632 TO 1639 
:READ A;P0KE I,A:NEXT I 
25000 DATA 243,243,217,243,204,243 
26000 DATA 217,243 

26500 REM MM - NXKXX - NKMMNXXKMMKNXXMNXKNXX 
NON HE'LL RUN THE ROUTINE! i XXXXX X KXXX 
27000 K=USR (15363 


CHECKSUM DATA 
(See pgs. 7-10) 

8000 DATA 133,466,426,611,26,547,951,8 
74,164,587,365,735,335,421,397,7038 
23000 DATA 403,616,945,911,197,274,175 
,3521 


Figure 2. 


10 *= $0600 
20 COUNTl = $00C8 
30 ‘A^LKD = $0224 
40 mm = $80C2 
50 SEVJ&J = $E45C 
60 MUSIC = $0660 
70 RETURN = $E462 
80 SND = $D200 
n = $D201 
0180 ; 
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Bil8 ; PIA FOR BASIC ACCESS 
8128 ; 

8130 PLA 
8148 ; 

0158 ; INITIALIZE COUNTERS TO ZERO 
8168 ; 

0178 LDA #8 
0180 STA COWTl 
8190 STA C0UNT2 
6288 ; 

0218 ; .NOW RESET DEFERRED VECTOR 
8228 i 

8238 LOY #$28 
8248 LDX #$86 
8258 LDA #87 
0268 JSR SETUBU 
8278 RTS 
8288 ; 

0298 ; IttIN INTERRUPT ROUTINE 
8388 • 

0318 ■«= $0620 
0328 INC COWTl 
0330 LDX COUNT! 

0348 CP.X #12 jTIME TO STOP NOTE? 

0358 8CC K1 ;NO 

0368 LOa #8 -YES. SO STOP IT 

8370 STA VOL 

0388 K1 CPX #15 ;15/60 SECONDS GONE? 

0396 BCS PLAY jYES. PLAY NEXT NOTE 
8400 JKP RETURN ;NO, END INTERRUPT 
0418 PLAY LOA #8 

0428 STA COWJTl ;RESET COUNTl TO ZERO 
8430 LDX OOUNTZ ;6ET NOTE TO PLAY 
8440 LOA MUS1C,X;L00K IT UP 

0450 STA M ;SET IT'S FREQUENCY 

8468 LDA #$A6 

8478 STA VOL ;SET PURE NOTE,V0LUME=6 
8488 INC C01I4T2 |SET UP NEXT NOTE 
8490 LDX CQUNT2 

8580 CPX #8 ;ALL NOTES USED UP? 

0518 BCC DONE iNO 

8520 LOA #0 ;Y£S, START OVER AGAIN 

0530 STA COUNTZ 

8540 DONE JMP RETUWI ;ALL DONE 

8558 ; 

8560 ; TABLE OF MUSICAL NOTES 
0578 ; 

0580 *= $0668 

0590 .BYTE 243,243.217,243,204,243.217,243 


Graphics 10 GTIA Demo 


le REH GRAPHICS 16 GTIA DEHO 
20 REM 

30 GRAPHICS 10 


40 REM CHANGE DATA TO CHANGE COLORS 
50 FOR CN=0 TO 7:READ CViPOKE 70SFCN,C 
U:NEXT CN:DATA 6,12,23,42,53,62,73,04 
60 C=0:SETC0L0R 4,C,0 
70 FOR X=0 TO 3S 
80 FOR Y=0 TO 95 

YMNYW P'**' YH=95-Y ; DIST=INT CSQR CXi«(X»H 

100 COLOR l+8»CDIST/8-INTCDIST/8JJ 

110 PLOT H,Y 

120 PLOT 79-X,Y 

130 PLOT X,191-Y 

140 PLOT 79-X,191-Y 

150 NEXT Y 

160 NEXT X 

170 REM ROTATE COLOR REGISTERS 
180 CH0LD=PEEKC705) 

190 X=705 

200 POKE X,PEEKCX+1) 

210 X=X+l:IF X<712 THEN 200 
220 POKE 712,CN0LD 
230 GOTO 180 


CHECKSUM DATA 
(See pgs. 7-10) 


10 DATA 989,253,992,750,196,890,294,29 
7,224,512,822,151,427,756,775,8328 
160 DATA 776,485,793,323,635,532,502,7 
18,4764 




GRAPHICS 
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MOVING PLAYERS 
IN BASIC 


16K Cassette or Disk 


by Tom Hudson 


Player-missile graphics are one of the most 
powerful graphic features of ATARI personal 
computer systems. Unlike traditional graphics, 
players and missiles can be moved around on the 
screen without disturbing the existing display. 

In order to use players and missiles, one must first 
reserve a portion of memory. Once this is done, the 
user can begin designing and displaying the players 
and missiles. 

The problems begin when the user wants to move 
a player or missile around on the screen. Horizontal 
movement is done easily. A POKE to the appropriate 
horizontal position memory location will move the 
desired player to any horizontal location on the 
screen. If the user wants to move a player or missile 
vertically, he or she must copy the P/M bit image to 
another location in memory. BASIC is too slow to 
do this smoothly, but it can call a machine-language 
subroutine to do the ''dirty work.” 

Designing Players 

Before we start using the player movement 
subroutine, we must have some sort of graphic image 
to place in the player. 

Players are eight pixels (picture elements) wide, so 
the first step in designing the player image is to draw 
a matrix eight cells across and as tall as the desired 
image. In the ''two line” resolution player mode 
(each pixel in the player is two television scan lines 
tall), the player can be up to 128 pixels high. The 
computer can display players with pixels one scan 
line tall, but the one-line resolution requires twice 
the memory of the two-line mode. This 
demonstration uses the 2 line resolution in order to 
save memory. For our purposes, we will set up an 
8 X 10 matrix to design the player image (Figure 1). 


Figure U 



If you look at Figure 1, you will notice numbers 
over each column in the matrix. These numbers 
range from 1 on the right to 128 on the left. These 
numbers will be used to create a DATA statement 
that will represent a player image. 

Figure 2. 

128 64 32 16 8 4 2 1 

255 
129 
129 
231 
129 
129 
255 
0 
0 
0 
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Figure 2 shows the simple player image used in 
the demonstration program following this article. 
The number to the right of each row is the total of the 
column numbers in which a pixel is ”on.” If all pixels 
in a row are on, the number is 255 (128+64+32+ 
16+8+4+2+1). If no pixels are on, the total would 
be zero. You will note that the player image in figure 
2 is seven pixels tall, meaning that in order to display 
this player image we will have to move seven bytes to 
player memory. Try designing your own player 
images using this method. Remember that players 
using the two^line resolution mode can be up to 128 
pixels tall. 

The program* 

Once you have designed your player images, you 
are ready to display them with the computer. The 
BASIC program in Listing 1 will move all four 
players around on the screen. It calls the P/M 
movement assembly language routine, shown in 
Listing 2. 

As listed, the program will move the shape 
designed in Figure 2 around on the screen at random. 
The shape of the player is stored as a series of bytes in 
the string PO$. By placing your player image data in 
line 420, you can change the shape that appears on 
the screen. There are currently seven bytes in line 
420, but if your player image has a different number, 
place the appropriate value in lines 130 and 290. 

Lines 110-180 — Set up the subroutine and 
turn on the P/M graphics. 

Lines 220-230 — are for demonstration 
purposes only. You can put your program code 
in this section. 

Line 110 — Loads the string PMMOV$ with 
the P/M movement subroutine. 

Line 130 — Places the data that defines the 
graphics image into the string P0$. If your 
player image is more or less than seven pixels 
tall, place the appropriate value in this line. 

Line 140 — This line tells the system where 
the P/M memory is located. 

Line 150 — This line saves the address of the 
string that holds the player image data. 

Line 170 — Turns on P/M direct memory 
access so that the image will appear on the 
screeen. 

Line 180 — Sets the color of player 0 to 
blue. The value 136 is derived by multiplying 
the color number (8) by 16 and adding the 
luminance value (8). The result is (8*16)+8 or 
136. 

Line 220 — Initializes the X and Y 
coordinates of the player. The coordinates refer 
to the upper left corner of the player. The X 
coordinate may range from 0-255, and the Y 
coordinate from 0-127. 

Lines 230-280 — This section simply 
changes the player’s coordinates randomly. 


Line 290 — This USR call moves the player 
to the desired X and Y location. This statement 
has 7 parameters inside the USR parentheses: 

ftrU5RCHOUE,0,PMB,PMD,X,Y,7J 

"'MOVE” is set up in line 110. It is the 
address of the P/M mover subroutine. Do not 
change this value. 

”0*' means that we want to move player zero. 
This value can range from 0-3, moving any one 
of the four players. 

”PMB” is the P/M base address set up in line 
150. Do not change this value. 

'TMD” is the address of the string that holds 
the player image data. This should be set to the 
address of the string you are using to hold your 
player shape data. If your player shape data is in 
a string called'TL$,” you could replace PMD 
with ADR(PL$). 

The X and Y variables are the horizontal and 
vertical coordinates of the player. 

The last parameter, '*7/’ indicates that the 
player we are displaying is 7 pixels tall (see lines 
130 and 420). If the player you design is 10 
bytes long, place a 10 here. 

Line 300 — This line determines when to 
randomly change the player’s movement 
direction. If a random number is chosen that is 
greater than .95, a new direction is tried. 

Line 310 — This line loops back to line 240 
if no new direction is needed. 

Lines 350-380 — These lines contain the 
assembly-language code for the player 
movement subroutine. Do not change these 
lines, or the subroutine will probably not work. 

Line 420 — This line contains the values 
which represent the player image’s shape. Place 
your image values here. 

Summary* 

The ATARI computer systems’ player-missile 
graphics capabilities are actually very easy to use, 
given the proper tools. The subroutine presented 
here will help even the beginning ATARI 
programmer experience the wonders of player- 
missile graphics. □ 


Listing 1. 

10 REM KMMXMKMK - I€»ICMK - KKXXKKKl e i Ht 
20 REM ^ P/M HOUER SUBROUTINE DEMO N 
30 REM * N 

40 REM * BY TOM HUDSON * 

50 REM * « 

60 REM ^ A.N.A.L.O.G. COMPUTING N 
70 REM KMMNKKNICMMICMMICMKMMKKKKMXMNXN - M 
80 REM 

SO REM KXKKKKMKMMK SETUP XXXXXXXXXXX 
100 REM 

110 DIM PMI^U$C10e3 ,P0S(30) :MOUE=ADRtP 
MI*H)U$3;F0R X=1 TO 100; READ N:Pf«10V$CX3 
zCHRS tN3 -.NEXT X:REM *READ DATA* 

120 REM X** NON READ SHAPE DATA *** 
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138 FOR H=i TO 7:REflD H:POSCX}=CHRS(NT 
:NEKT K 

148 PMBA5E = INT((PEEK(145> +3J/4)»4:POKE 
54279,PMBftSE:REM **» SET UP P/H OREO 

158 PHB=PMB0SE»256 

168 PMD=ADR(Pe$):REM P/K DATA AODR 

ESS 

178 POKE 559,46:P0KE 53277,3:REM *** p 
/M DMA *** 

188 POKE 704,136:REM JHHf PLAYER 8 COLO 
R iHHt 
198 REM 

288 REM **** YOUR PROGRAM HERE! **«* 
218 REM 

228 K=128:Y=64 

238 XI=1-INT(RND(8J»3J:YI=1-INT(RHD(81 
«31 

248 K=K+HI:Y=Y+YI 

258 IF X<58 THEN X=5e:G0T0 270 

268 IF H>198 THEN K=190 

278 IF Y<28 THEN Y=28:G0T0 298 

288 IF Y>118 THEN Y=110 

290 ArUSR(M0gE,8,PMB,PMD,K,Y,71 

380 IF RND(8J>8.95 THEN 230 

318 GOTO 248 

320 REM 

338 REM *** PM MOVER DATA *** 

346 REM 

350 DATA 216,184,184,104,133,213,104,2 

4,185,2,133,206,184,133,205,184,133,20 

4,104,133,203,104,184,133,208 

368 DATA 184,184,133,209,104,104,24,10 

1,209,133,207,166,213,248,16,165,285,2 

4,105,128,133,205,165,206,105 

370 DATA 8,133,206,202,288,240,160,0,1 

62,8,196,289,144,19,196,207,176,15,132 

,212,138,168,177,283,164 

380 DATA 212,145,205,232,169,0,240,4,1 

69,0,145,205,200,192,128,208,224,166,2 

13,165,208,157,0,208,96 

390 REM 

400 REM PLAYER IMAGE DATA *** 

416 REM 

420 DATA 255,129,129,231,129,129,255 


CHECKSUM DATA 
(See pgs. 7-10) 


18 DATA 532,930,996,64,0.483,544,265,9 

09,74,765,328,743,901,536,8070 

160 DATA 729,778,445,101,552,79,854.96 

8,479,920,983,921,954,424,374,9561 

310 DATA 704,84,580,90,639.732,435,188 

,105,191,83,56,3887 




Listing 2. 


>J1 

?AU 
01 >8 
0120 
0138 
0140 
01.58 
0168 
8170 
6180 
8r78 
0200 
0218 
0220 
3236 
0240 
0250 
9260 


iPlAYER-MlSSILe MiWER SUBRuUriNE 

•BY T:T1 .HIJDSai 
jA.N.ft.L.C.G. CWIJTlNb 


;Pa6E 2ER0 U^jAGE 

PMSTR = $CB 
PLAOR = ICD 
PMEND = ICF 
HPliS = 1D8 
YPOS = SO! 

NOLO = 304 
PLNUI = 305 


;p/H Basic string 
!player address 

iPlAYER imOE END 
;X POSIT I 
POSnilSJ 
jHOLD area 
; PLATER It TO MW£ 


8270 {OPERATING SYSTEM EQUATES 
8288 ; 

0298 HPOSP0 = $0088 
8388 ; 

8310 {PROGRAM STARTS HERE! 

[ANY ADDRESS 
iCLEAR DECIMAL MODE 
DISCARD 


8328 ; 

0330 3= $6080 

0348 START CLO 

0358 PLA 

8360 PLA 

0378 PLA 

0380 STA PLNUM 

0390 PLA 

0480 CLC 

0418 ADC 82 

6428 STA PLADR+i 

0436 PLA 

8448 STA PlaOR 

0458 PLA 

0468 STA PHSTR+1 

0478 PLA 

8488 STA mSTR 

0490 PLA 

0508 PLA 

0518 STA XPOS 

0520 PLA 

0530 PLA 

0540 STA YPOS 

0550 PLA 

0560 PLA 

0570 CLC 

8580 ADC YPOS 

0590 STA PMEND 

0600 LOX PLNUM 

0618 BEQ ENDiCAL 

8620 PLCaLC LDA PLADR 

0638 CLC 

0640 AOC tt!28 

0650 STA PLAOR 

0660 lDA flaDR+1 

0670 ADC 40 

0688 STa PLAOR+j 

8690 OE.X 

8780 BNE PLCALC: 

0718 ENOCAL LDY 48 
0728 LDX 48 
0730 COPYLP CPY YPOS 
0748 BCC ZERO 
0750 CPY RCNO 
0760 BCS ZERO 
0778 STY HOLD 
0788 TXA 
8790 TAY 

0880 LDA (PMSTR).Y 
0318 LDY HOLD 
0820 STa (PLADR.l.Y 
0838 INX 
8340 LDA 40 
0350 BEQ NDIT 
0868 ZERO LOa 40 
0378 :STa iPLADRl.Y 
6888 NEXT INy 
8398 C.PY 4123 
6988 ENE COPtLP 
8918 LDX PLNUM 
8920 LDA XPOS 
0938 STA HP0SP9,X 
0948 RTS 
0958 .END 


{DISCARD 4 HI 
{PULL PLAYER 4 LO 
{AND SA'UE IT^ 

{PULL P/Ul eA.SE HI 
{ADD OFFSET TO GET 
{PLAYER MEMORY AOOR 
{AND aVUE! 

{PULL P.'M BASE LO 
{t«4D SAv'E' 

{PULL STRING HI 
{Y^iO SA'vE' 

{PULL STRING LO 
{AND SAUE' 

{DISCARD X HI 
{PULL X LO 
{AITD 3F82E IT' 
{DISCARD Y HI 
{PULL T LO 
{AND SAVE IT' 
{DISCftRD LENGTH HI 
{PULL LENGTH LO 
{ADO Y POSITION 
{TO GET END 
{AND :3At7E IT' 

{GET PLAYER4 

■NO INDEX NEEDED' 

{ADD 128 TO 

{PLAYER 

{ADDRESS 

{TO 

{POINT TO 

{NEXT 

{PLAYER. 

{ANOTHER ADJUSTMENT 
{YES' 

{ZERO P,^ COIM 
{ZERO STRING COWT 
{COPYING DATA TETP 
{NO' 

{FINISHED 'COPYING'-' 
{YES' 

;:3AUE Y REG 
{MOVE X REG... 

{TO Y REGISTER 
{GE'I P/M BYTE 
{GET £,-11 OFFSET 
{CHANGE PLAYER' 
{NEXT STRING B’YTE. 
{FORCE 8RtftCH 
;T0 NEXT BYTE' 

{ZERO OUT... 

{PLAYER B'YTE' 

{NEXT P/H BYTE 
{Di?€ y/COPYX 
{NOT done YET' 

;6E^ P'J^YER 4 
•NOW JUSi- SET 
{X LOiCATIffJ' 

{FINIS' 
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USING DLls 


16K Cassette or Disk 
by Joseph T* Trem 


For many years there have been powerful com¬ 
puters on the market which performed multi-tasking 
functions. Not until a few years ago did the home 
computer acquire this capability. At last! ATARI! 

Having a 6502 microprocessor for its brain, your 
ATARI computer has the capability of using inter¬ 
rupts. An interrupt is a tricky way of freezing the 
state of the microprocessor while performing some 
other function, then moving on when completed. 

Here is an example. On a raster scan TV, the 
picture you see is drawn sixty times a second. The 
beam starts in the upper left-hand corner and even¬ 
tually ends up in the lower right-hand corner. This is 
done sixty times a second. The time taken for the 
beam to travel from the bottom of the screen back to 
the top is called vertical blank. During vertical blank, 
there is plenty of time for other processing. Using an 
interrupt, one could check for vertical blank. When 
vertical blank occurs, it is possible to perform some 
other function, then continue on. Some of the more 
common functions would he moving player/mis¬ 
siles, updating score counters, changing colors. . . all 
between Vblank, as it is more commonly called. If 
these functions are performed during Vblank, there 
is no unsightly flicker on the screen. Besides, Vblank 
is processing time to kill, right? 

ATARI goes a step further by implementing a dis¬ 
play list interrupt or DLL On a raster scan TV, the 
beam sweeps across the screen, from left to right, 
moves down one line, then does it again. One sweep 
of the beam is one scan line. It takes 262 sweeps of 
that beam to create a single frame on your TV, all 
done sixty times a second. In other words, there are 
262 scan lines available on your TV. 

ATARI designed their computer to evolve around 
the architecture of your TV set. Even better, the dis¬ 


play list uses all combinations of the scan line from 
graphics 0 to graphics 8 and allows you to set up a 
DLI on any line. For example, one could draw a scan 
line, change the background color, and so on. The 
final picture will appear to have a different color on 
each line. 

To set up a DLI, there are a few steps which have to 
be taken. First, we have to create a DLI routine in 
machine language that will do what we want. This is 
called a service routine. Then we must let the micro¬ 
processor know where to find that routine by vec¬ 
toring through $200 (low byte) and $201 (high 
byte). That’s 512 and 513 decimal. Next, we set the 
display list lines that we want the service routine to 
occur after with a DLI instruction. Finally, we must 
enable the DLL 

Because the concept of the DLI is a hard one to fol¬ 
low and needs some understanding of Assembly lan¬ 
guage, 1 have presented an example. . .a picture is 
worth a thousand words! This program, written in 
BASIC, twinkles a starfield while running player/ 
missiles. ..both appearing independent of one 
another. 

The program is well documented. In the example, 
the service routine is located at $600. Every display 
list line has been set in the graphics 7 mode with a 
DLI instruction (Figure 1). This was determined by 
using the chart in Figure 2. The DLI instruction for 
graphics 7 is 141 decimal. Included with the BASIC 
program is the assembled listing of the service rou¬ 
tine which simply stuffs colors in the color register. 

Hopefully, this program will help you gain a better 
understanding of the DLL It is among the most 
powerful programming tools you can use. Take some 
time to understand the concept, and you will greatly 
increase your programming expertise. □ 
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Standard Graphics 7 

New Graphics 7 Display 


Display List 

List with DLI Set 

70 

8 Blank lines 

70 

8 Blank lines 

70 

8 Blank lines 

70 

8 Blank lines 

70 

8 Blank lines 

70 

8 Blank lines 

4D 

Antic Mode 13 

4D 

Antic Mode 13 


(Basic mode 7) 


(Basic mode 7) 

60 


60 


70 


70 


OD 


8D 

Antic Mode 13 




with DLI set 

OD 


8D 


OD 


8D 


OD 


8D 


OD 


8D 



Figure 1. 


Display List Interrupt Instruction Chart 


Graphics 

Mode 

DLI Instruction 

Basic 

Antic 

Hex 

Decimal 

0 

$02 

$82 

130 

None 

$03 

$83 

131 

None 

$04 

$84 

132 

None 

$05 

$85 

133 

1 

$06 

$86 

134 

2 

$07 

$87 

135 

3 

$08 

$88 

136 

4 

$09 

$89 

137 

5 

$0A 

$8A 

138 

6 

$0B 

$8B 

139 

None 

$0C 

$8C 

140 

7 

$0D 

$8D 

141 

None 

$0E 

$8E 

— 

8 

$0F 

$8F 

143 


Figure 2. 


190 REM FLICKERING STARFIELD 
110 REM BY JOE TREM Cc) 1982 
120 REM 

130 REM SETS GRAPHICS 7 FULL SCREEN, D 
RAH5 SURFACE MITH SOUND 

140 GRAPHICS 23:POKE 708,136:COLOR 1:F 
OR X=0 TO 159:S0UND 0,10,X,4:PLOT X,95 
:DRAHTO X,8e^RNDC0)N5:NEXT X 
150 REM CALCULATES DISPLAY LIST, SETS 
SPEED OF PLAYER TO 0 

160 SP=0:DLST=PEEKC560)TPEEK€561)^256 
170 REM SETS UP DLI FOR EACH GRAPHICS 
7 SCAN LINE 

180 FOR L=6 TO 84:P0KE DLST+L,141:NEXT 
L 

190 REM READS MACHINE LANGUAGE ROUTINE 
INTO PAGE 6 

200 FOR J=0 TO 3:READ A;POKE 1536TJ,A: 
NEXT J 

210 COLOR 3:REM SETS COLOR TO FLICKER 

220 REM PLOTS STARS WITH SOUND 

230 FOR X=1 TO 50:S0UND 0,X,X,4:PL0T R 

NDC0I«159,RNDC0)«75:NEXT X 

240 REM SETS STARTING ADDRESS FOR DLI 

CPAGE 6J AND ENABLES DLI 


250 POKE 512,e:P0KE 513,6:P0KE 54286,1 
92 

260 REM SETS UP PLAYER/MISSILE 0 

270 YP=0:P0KE 559,62:PMBAS=PEEKC166l-3 

2:P0KE 54279,PmAS:POKE 53277,3 : PMOzPM 

BAS«256Hhl024 

280 GOSUB 350 

290 REM PLAYER/MISSILE COLOR, MOVE RIG 
HT 

300 POKE 704,INTCRNDC0)«15)»16F8:F0R X 
=30 TO 230 STEP SP:POKE 53248,X:SOUND 
0,X,8,4:NEXT X 
310 GOSUB 350 

320 REM PLAYER/MISSILE COLOR, MOUE LEF 

330 POKE 704,INTCRNDC0)«15]«16+8:F0R X 
=230 TO 30 STEP -SP:POKE 53248,X:SOUND 
0,X,8,8:NEXT X:GOTO 280 
340 REM ROUTINE ERASES OLD PLAYER, DET 
ERMINES SPEED, AND UERTICAL LOCATION 0 
F PLAYER 0 

350 SP=SP+l:FOR X=YP TO YPF4:P0KE PMO+ 
X,0:NEXT X:IF SP>15 THEN SP=1 
360 YP=3eTRNDCe)«150:P0KE PN01^YP,24:P0 
KE PM0+YP+1,255:P0KE PM0+YP+2,255:POKE 
PM0TYPF3,24:RETURN 
370 REM MACHINE LANGUAGE DATA 
380 DATA 142,24,208,64 

390 REM NOTE TO ASSEMLY PROGRAMMERS.. 
HSYNC MAS NOT USED FOR MRE ERRATIC FL 
ICKERING 


CHECKSUM DATA 
(See pgs, 7-10) 


100 DATA 190,749,80,569,86,100,793,712 
,498,713,519,482,263,294,178,6226 
250 DATA 994,406,125,990,763,160,971,4 
16,696,808,181,59,947,793,791,9100 


Assembly listing. 


0100 

0110 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0280 


j FLICKERING STARFIELD 
; DLI SERUICE ROUTINE 

; ADDRESS $D018 IS THE 
; COLOR/LUMINANCE REGISTER 
; OF PLAYFIELD 2 

C0LPF2 = $D018 

'#=$600 

; SAVE MHATEVER IS IN THE 
; X~REGISTER INTO PLAYFIELD 
; COLOR 2 HARDMARE REGISTER 

'STX C0LPF2 ; STORE COLOR 
RTI ; RETURN FROM INTERRUPT 

" .END 
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A GRAPHICS 
CLIPPING ROUTINE 


16K Cassette or Disk 


by Tom Hudson 


Probably every ATARI user who has ever dabbled 
in the graphics area has encountered the infamous 
^TRROR 141 — CURSOR OUT OF RANGE.” 
This error message occurs when you try to PLOT or 
DRAWTO a point which is off the screen. The 
program listings presented in this article will 
demonstrate a BASIC subroutine which eliminates 
this problem, while drawing the portion of the line 
which is on the screen. 

Listing 1 is the clipping routine. Type in this sub¬ 
routine and check it for typing errors. List this onto 
tape (LIST ^'CP’) or disk (LIST ^^Difilenam), so 
that it can be easily merged with other programs. 

Listing 2 is a demonstration of the clipping 
routine’s capabilities. This program is a general- 
purpose shape rotation routine and will be explained 
in detail later. Type NEW and enter this listing into 
your computer, then check it for typing errors. 

When you are sure Listing 2 has been entered 
correctly, ENTER the clipping routine from tape 
(ENTER ”C:”) or disk (ENTER ”D:filename”). 
The two listings will merge, forming one program. 
RUN the program. You will see a square appear. It 
will begin rotating and increase in size until its 
corners run off the screen completely, and it 
disappears altogether. Press BREAK to stop the 
program. 

How it works. 

Line 150 — This line sets the BASIC 
DEGREE flag. This tells the computer that all 
angles will be expressed in degrees. 

Line 160 — This line sets up a full-screen 
GRAPHICS 6 screen. 

Line 170 — This line tells the computer to 
use color 1 when drawing. 

Line 180 — This line sets the shape size 
increment (SI) to 1.1. This means that each time 
the shape is drawn, it will be 1.1 times as large as 
the previous plot. If SI is set to 1, the shape will 
stay the same size. If SI is set to 0.5, the shape 
will shrink to half its size each time it is drawn. 


Line 190 — This line establishes the initial 
size of the shape. Since SF is set at 0.5, the object 
will start out half as big as defined. 

Line 200 — This line sets RF, the rotation 
factor, to 10. With this value, the shape will 
rotate 10 degrees counter-clockwise each time it 
is drawn. A negative value will rotate it 
clockwise, and a value of zero will result in a 
non-rotating shape. 

Line 210 — This line defines CX and CY, the 
center coordinates of the object. The present 
values will place the object at the center of the 
screen. Try other values here and observe the 
results. 

Line 220 — This line is essential to the 
operation of the clipping routine. It defines the 
limits of the screen area you wish to use. These 
values are currently set to the normal 
GRAPHICS 6 screen limits (X RIGHT=159, X 
LEFT=0, Y BOTTOM=95, Y TOP=0). By 
changing these values, a smaller "window” may 
be created. For example, make the following 
changes to line 220: 

220 KR:i80:KL = 40: YB=50:YTz30 

RUN the program and observe the result. 
The shape will be clipped to the new window 
limits. By using this technique, very interesting 
displays can be created with independent 
clipping windows! 

Line 230 — This line sets the DATA pointer 
to line 360. This line contains the data which 
defines the shape of the object. 

Line 240 — This line reads the number of 
points in the shape and dimensions X and Y 
coordinate work arrays accordingly. 

Line 250 — This line reads the X and Y 
coordinates of each point in the shape and scales 
them as requested in line 190. 

Lines 260-270 — These lines increment the 
rotational position of the object. Rotation 
values greater than 360 degrees are adjusted 
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properly. 

Line 280 — This line adjusts the size of the 
shape as requested in line 180. 

Lines 290-300 — These lines rotate each 
point in the shape using the BASIC functions 
SIN and COS (sine and cosine). The adjusted 
points are stored in the X2 and Y2 arrays. 

Line 310 — This line clears the screen for the 
next plot. If this line is removed, the images of 
the rotating square will build up into an 
interesting display. 

Line 320 — This line adjusts each point in 
the shape to its proper screen position by 
adding the centerpoint coordinates (defined in 
line 210). 

Lines 330-340 — These lines are very 
important, as they send the PLOT AND 
DRA WTO coordinates to the clipping routine. 
The clipping routine requires four variables: 
XI, Yl, X2 and Y2. The routine analyzes the 
coordinates and simulates the function: 

PLOT Ki,Yi;DRftWT0 H2,Y2 

To see what happens when the clipping 
routine is not used, replace the GOSUB 1000 
statements in lines 330 and 340 with PLOT X1, 
Yl: DRA WTO X2, Y2 and RUN the program. 
The program will operate correctly until the 
square runs off the screen. When this happens, 
the program will end with an error condition. 

Line 350 — This line simply loops back to 
line 260, where the drawing process starts again. 

Line 360 — This DATA statement contains 
information about the shape we want to draw. 
The first number is the number of points in the 
object. Since this is a square we are using, there 
are 4 points. The rest of the data values are the X 
and Y coordinate pairs for each point. To make 
a hexagon, for example, try this data statement: 

DATA 6,11,0,6,-10,-6,-10,-11,0,-6,10,6,10 
Figure 1 is an X-Y coordinate grid which is helpful 
in defining a shape. The shape rotates around the 
intersection of the X and Y axes (0,0) which in this 
case is the center of the square. You can set up any 
shape you like merely by changing this DATA line. 

X 
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The clipping routine* 

Line 1050 — This line clears all the flags 
which determine when clipping is necessary. 

Lines 1060-1130 — These lines check the X 
and Y coordinates to see if they have exceeded 
the screen limits defined in line 220 of the shape 
rotation demonstration. If the coordinates 
exceed the limits, flag variables are set to 
indicate this. 

Line 1140 — If both X coordinates are to the 
left or right of the screen, or both Y coordinates 
are to the top or bottom of the screen, the line 
will not show up on the screen at all, and the 
plot is abandoned. 

Line 1150 — This line sets up work 
variables to clip one end of the line, if necessary, 
and GOSUBs to line 1210 to perform this 
function. 

Line 1160 — In order to clip the other end 
of the line, this line copies the second set of 
coordinate flags to the first. 

Line 1170 — This line saves the XW and 
YW values, which are the last set of clipped 
endpoints. It then sends the X and Y endpoints 
to the clipping calculator and clips the other end 
of the line. 

Line 1180 — If any of the clipped points 
could not be placed within the clipping area, 
the plot is abandoned. 

Line 1190 — This line PLOTs and DRAWs 
the clipped line. 

Line 1200 — This line exits the clipping 
routine after the clipped line is drawn. 

Line 1210 — This line is the start of the 
clipping calculator, the heart of the clipping 
routine. If the total of the clipping off-screen 
flags is zero, no clipping is required. The XW 
and YW values are set up, and the clipping 
routine is exited. 

Line 1220 — If the line goes past the left side 
of the screen, this line calculates the point at 
which the line crosses the left limit, and saves 
the X and Y coordinates of that point. If this 
point is on the screen then the calculation is 
complete and the subroutine is exited. 

Line 1230 — If the line goes past the right 
side of the screen, this line calculates the point 
at which the line crosses the right limit, and 
saves the X and Y coordinates of that point. If 
this point is on the screen then the calculation 
is complete and the subroutine is exited. 

Line 1240 — If the line goes past the bottom 
of the screen, this line calculates the point at 
which the line crosses the bottom limit, and 
saves the X and Y coordinates of that point. If 
this point is on the screen then the calculation is 
complete and the subroutine is exited. 

Line 1250 — If the line goes past the top of 


Figure 1. 
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the screen, this line calculates the point at which 
the line crosses the top limit, and saves the X 
and Y coordinates of that point. If this point is 
on the screen then the calculation is complete 
and the subroutine is exited. 

Line 1260 — This line forces a return from 
the subroutine after all calculations are 
complete. 

Final comments* 

The graphics clipping routine can be used in many 
graphics applications where it is possible to exceed 
screen limits. This routine can be used with any 
graphics mode, and can allow the use of graphics 
"'windows” anywhere on the screen. 

To use the clipping routine in your own programs, 
simply use lines 1000-1260 and set up the desired 
screen limits to the XL, XR, YT, and YB variables. 
When you want to draw a line, instead of the 
command: 

PLOT K1,Y1;&RAWT0 K2,Y2 

use the following: 

(Set up XI, Yl, X2, and Y2) 

GOSUB 1000 

This will work for any line, even those that are 
completely off the screen. □ 


Listing 1. 


100 REM MMXMICMMKKKXMMMMMK - M 
110 REM * SHAPE ROTATION DEMO M 
120 REM M * 

130 REM M BY TOM HUDSON * 

140 REM XXXXXXXXXXXXX - XMXXXXXXXX 
150 DEG 

160 GRAPHICS 6+16 

170 COLOR 1 

180 SI^l.l 

ISO SF- 0.5 

200 RFzlO 

210 CX= 80 :CY =48 

220 XR= 15 S;XL- 0 ;YB- 95 :YT -8 

230 RESTORE 360 

240 READ N:DIM XCNl,Y (N),X2CN),Y2(N) 
250 FOR X:il TO N:READ W1, W2 ; X (X3 zWlMSF 
• V f —U‘7X-^F ■ NFVT X 

260 RW=RM+RF;IF RI 4>360 THEN RW-RW- 360 ; 
GOTO 32767 

270 IF RW <0 THEN RM=:Ri 4+360 

280 FOR X =1 TO N;X(X)-X(X)MSI:V(XJ-Y(X 

)M 5 I'NEXT X 

2 S 0 FOR Xzl TO N:X 2 CX)-X(X)MC 0 SCRI«+YC 
X)MSINCRU) 

300 Y 2 CX)=-XtXJMSINCRM 5 +Y(X)MC 05 CRW) :N 
EXT X 

310 GRAPHICS 6+16 

320 FOR X = 1 TO N : X 2 CX 3 ::X 2 (X 5 +CX : Y 2 (X 3 = 
Y 2 CX)+CY:NEXT X 

330 FOR X = 1 TO N- 1 : Xl:iX 2 (X) ; Y 1 =Y 2 tX) IX 
2 =X 2 CX + 1 ) ;Y 2 z:Y 2 CX + l) ;G 0 SUB lOOO'.NEXT X 
340 X 1 =X 2 CN) :Y 1 ::V 2 (N) ;X 2 rX 2 (l) ;Y 2 i:V 2 Cl 
):G 0 SUB 1000 
350 GOTO 260 

360 DATA 4 , 10 , 10 , 10 ,“ 10 ,- 10 ,- 10 ,- 10,10 


Listing 2. 


1000 REM XXXXXXXXXXXMXXXXXXXX - XXXX - XX - MX M 
1010 REM M GRAPHICS CLIPPING ROUTINE X 
1020 REM M X 

1030 REM X BY TOM HUDSON X 

1040 REM XXXXXXXXXXXMXXXXXXXXXXXXXX X X X 
1050 L1::0:L2=:0;R1-0;R2=0:T1=0;T2=0;B1= 
0;B2=0 

1060 IF H1<KL THEN Ll-lJGOTO 1080 

1070 IF K1>KR THEN Rl^l 

1080 IF Y1>YB THEN B1=1:G0T0 1180 

10S0 IF Y1<YT THEN Tl=:l 

1100 IF K2<KL THEN L2=1:G0T0 1120 

1110 IF K2>KR THEN R2“l 

1120 IF Y2>YB THEN B2-1;G0T0 1140 

1130 IF Y2<YT THEN T2rl 

1140 IF Ll+L2=2 OR Rl + R2r2 OR Tl + T2:i2 

OR 81+82=2 THEN RETURN 

1150 X3=Xl:Y3=Yl:X4=X2:Y4=Y2;G0SUB 121 
0 

1160 L1=L2:R1=R2:T1=T2;B1=B2 

1170 X1=HW:Y1=Y«:X3=X2:Y3=Y2:X4=H1;Y4= 

Yl:G0SUB 1210 

1180 IF X1<XL OR X1>XR OR Y1<YT OR Yl> 
VB OR XM<XL OR XW>XR OR YW<YT OR YW>YB 
THEN RETURN 

11S0 PLOT X1,Y1:DRAWT0 XM,YW 
1206 RETURN 

1210 IF L1+T1+B1+R1=0 THEN XW=X3:YW=Y3 

• URN 

1220 IF LI THEK X»*:KL : VW=V3+(V4-V3)»CK 
L-K33/(K4-K3J!X3=XM!V3=YM:IF V3>=YT AN 
0 Y3<=YB THEN RETURN 

1230 IF R1 THEN XM::XR : YM=Y3+(Y4-V3J»CX 
R-X3)/CX4-X3J;X3=XH:Y3=YM:IF Y3>=YT AN 
D Y3<=YB THEN RETURN 

1240 IF B1 THEN YM=YB;XM=X3+(X4-X35*{V 
B-Y33/CY4-Y3);X3=XM:Y3=YM:IF X3>=XR AN 
D X3<=XL THEN RETURN 

1250 IF T1 THEN YVtYT;XW=H3+tH4-X3)«CY 
T-Y3J/tY4-Y3J5X3=XM:Y3=YM;IF X3>=XR AN 
D X3<=XL THEN RETURN 
1260 RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 


1000 DATA 598,934,60,54,602,235,68,814 

,6,822,52,814,18,822,608,6507 

1150 DATA 879,618,493,947,81,785,160,9 

28,947,905,960,791,8494 




CHECKSUM DATA 
(See pgs. 7-10) 

100 DATA 274,394,860,852,286,35,223,49 
2,578,583,299,36,472,202,715,6301 
250 DATA 317,285,346,819,167,988,212,4 
90,135,523,722,951,5955 
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3-D GRAPHS 
MADE FAST & EASY 


16K Cassette or Disk 


by Tom Hudson 


Thanks to ATARPs Graph-It (TM) graphics 
package, ATARI computer owners can generate bar 
charts, pie graphs, and two- and three-dimensional 
plots. Unfortunately, when more complex three- 
dimensional plots are desired, Graph-It can take 
more than an hour to complete just one plot! 

In order to assist those Graph-It users who 
would like to see a quick rendition of their 3-D plot 
before committing themselves to a marathon wait 
with Graph-It, I have written a 3-D graph program 
which is easy to use and produces graphs very 
quickly. 

By now, many readers are probably asking, What 
in the world is a 3-D graph?’’ which is not a bad 
question at this point, and one I will try to answer. 

We are all familiar with 2-dimensional (flat) 
graphs. They are usually called 'dine” or "bar” 
graphs. Figure 1 is a line graph of the equation 
Y=2*X. When X is four, Y is two times four, or 
eight, and so on. 

Figure 1. 



In a 3-dimensional graph, things are a little more 
complicated. As the name implies, we are trying to 
generate a 3-dimensional form, derived from an 
equation. To do this, we need three coordinates. We 
will label these coordinates X (width), Y (depth) and 
Z (height). 



Figure 2. 

We start with a grid marked with X and Y 
coordinates, then we lay this grid flat as in Figure 2 
(a good way to visualize this is to lay a piece of graph 
paper on a table in front of you). Next we use an 
equation to determine the Z coordinate. The Z value 
tells how high off the table each point on the grid is. 
The Z coordinate is always derived from the X and Y 
values. In this way, we can see how changes in the X 
and Y values affect the Z value. For example, in the 
equation Z=(X+Y)*3, when we are at the 
coordinates X=1 and Y=3, Z would equal 12 (4 
times 3). On our graph, this would be represented as 
a small peak (Figure 3), telling us that where X=1 
and Y=3, the Z value is 12. Of course, to be useful 
this process must be repeated for each point on the 
grid so that we can see the overall results. Three- 
dimensional graphs are useful for visualizing how an 
equation will act with varying X and Y values. 
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X 


Figure 3 

Listing 1 is a simple but effective 3''dimensional 
graph generation program. It is NOT meant as a 
replacement for the Graph-It 3''D plot program, 
but an enhancement. 

Type Listing 1 into your computer and check it 
for accuracy. When the program is correctly entered, 
you will be ready to start graphing in three 
dimensions! 

Let’s say you want a 3-D plot of a complex 
equation. You don’t know what it will look like, but 
you’d like to get some idea before you wait an hour 
for Graph-It to process it. With this program, you 
can ''preview” a 3-D graph, and if you want a 
detailed copy, the same equation can be processed by 
Graph-It. An equation requiring 70 minutes on 
Graph-It can be processed by this program in five. 
Of course, the Graph-It version is much smoother 
and will do such things as automatic scaling, but if 
you need the output quickly, this program can do it. 

Let’s find out what the equation Z=(X-Y)" looks 
like. Line 220 is where all equations must be 
executed, so change line 220 to read: 

220 Z=CK-Y)^2 

When the line is changed, RUN the program. The 
screen will go black for several seconds while the 
computer calculates the plot coordinates of the 
graph. When these calculations are finished, the 
screen will come back on, and the graph will be 
drawn. It’s that simple. 

Ho^v it works. 

Line 80 — Set up the arrays needed to store 
the plot points. 

Line 120 — Turn off the system’s Direct 
Memory Access (DMA). This speeds up 
calculations considerably. The only unpleasant 
side effect is that the screen goes black until 
DMA is turned on again. 

Line 160 — Set the screen limits for the 
graphics clipping routine (see lines 600-720). 

Lines 210-230 — This is a FOR-NEXT loop 
for calculating the Z value for each point on the 
grid. Line 220 is where your equation should be 
placed. Just replace the existing equation with 


your own, starting with Z=. The program will 
do the rest. 

Lines 270-300 — After all the Z values have 
been calculated, this section changes them to 
plot coordinates so that they can be placed on 
the screen. 

Line 340 — This line turns DMA on again, 
so that we can see the graph. 

Line 380 — This line draws the ''zero 
reference” outline. This is simply the outline of 
the grid before the Z coordinates were 
calculated. It lets you know where zero is, 
relative to the rest of the points on the grid. 

Lines 420-430 — This section actually 
draws the grid on the screen using the data in the 
GX and GY arrays, which were built in lines 
270-300. It uses the graphics clipping routine in 
lines 600-720 just in case the lines run off the 
top or bottom of the screen. 

Lines 470-500 — These lines draw the 
vertical lines from the baseline to the corners of 
the graph. 

Line 540 — This line loops the program 
forever. Hit the break key to stop the program. 

Line 600-720 — This is a modified graphics 
clipping routine. (See A Graphics Clipping 
Routine, page 44). It is modified to only clip 
lines that extend beyond the top and bottom 
of the screen, not the sides. 

You can try any equation you like in line 220, 
just set Z to the result. Included below are a few 
interesting equations for you to try, along with 
the time required to generate the graphs. Simply 
replace line 220 with one of these equations. □ 

220 Z=SINC€X^Y-4J/4^3e}43e 
CRequires approx. 38 seconds) 


228 Z=SQR COBS CX-18.5) ^2*MS tY-5.5) a2) a 
1.7 

CRequires approx. 2.25 Minutes) 


228 Z= C1/5QR CSOR COBS CX-18.5) ^2^M5 CY-5 

.5)a 2)+4)A2)«Be8-5e 

CRequires approx. 2.75 Minutes) 


228 Z=78-SQR COBS CX-18.5)A2*nBS CY-5.5 )a 

2)ai.7 

CRequires approx. 2.3 Minutes) 


220 Z=C5INCX/10)-I^C0SCY/5))«3e 
CRequires approx. 48 seconds) 


220 Z=C5IKCX/ie)«51NCY/5))«30 
Crequires approx. 48 seconds) 

20 REM * 3-D R ft^^R0GRAH 

30 REM * 

40 REM ^ BY TOM HUDSON 

50 REK X^MKKKXKXKKKKKMl ff KKKMXKKK] 
60 REM 
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70 GRAPHICS 24;5ETC0L0R 2,0,O;COLOR 1 
80 DIM GKC21,113,GVC21,113 
90 REH 

100 REM DMA OFF *** 

110 REM 

120 POKE 559,0 
130 REM 

140 REM SET CLIPPING LIMITS 

150 REM 

160 XRr:319:XL=0; YT-0: YBrlSl 
170 REM 

180 REM YOUR FORMULA GOES 

190 REM INSIDE THIS LOOP 

200 REM 

210 FOR X=:l TO 21;F0R Yrl TO 11 
220 Z-CKTY)*3 

230 GYfX,Y)=Z;NEXT Y:NEXT X 
240 REM 

250 REM *** CALC. SCREEN COORDS. 

260 REM 

270 FOR Xn TO 21;F0R Yrl TO 11 
280 GX«X,Y)=(X-1)*1OT(Y-13*10 
290 GYCX, Y)=180-CY-13*10“GYCX, Y3 
300 NEXT YINEKT K 
310 REM 

320 REM DMA ON AGAIN 

330 REM 

340 POKE 559,34 
350 REM 

360 REM DRAM BASELINE 

370 REM 

380 PLOT 0,180:DRAMTO 200,180:DRAMTO 3 
6O,80:DRAMTO 160,80:DRAMTO 0,189 
390 REM 

400 REM plot the GRAPH 

410 REM 

420 FOR Krl TO 21:F0R Y-2 TO ll:XlzGX( 

K,Y-1) ; YlzGYCX, Y-13 :K2i:GXCX,VJ JYZ-GYCX 

,Y5;G0SUB 60O:NEHT YjNEXT K 

430 FOR Y = 1 TO lllFOR H“2 TO 21;K1::GX( 

K-1,Y3:Y1=GYCK-1,Y3:X2-GXCX,V);Y2=6YCX 

,Y3;G0SUB 6O0:NEKT K:NEXT Y 

440 REM 

450 REM DRAM UERTICAL LINES 

460 REM 

470 Xi=0;Yl = 180;H2-GXtl,l) ;Y2=GY(1,13 : 
GOSUB 600 

480 Xl=200:Ylrl8O;X2=GX{21,13:Y2=GYC21 
,13:GOSUB 600 

490 Kl3:380; Yl-80:K2:iGX(21,113 :Y2~GV(21 
,113:GOSUB 600 

500 Xi-100: Y1=80:X2=:GXC1,113 :Y2zGYCl,l 
1) :GOSUB 600 
510 REM 

520 REH LOOP FOREVER 

530 REM 

540 GOTO 540 

_____ 

570 REM » JGRAPHI CS CLIP ROUTINE * 

590 REM 

600 Tl:iO;T2-O;Bl::0:82=0:IF Y1<YT THEN 

Tl-l;GOTO 620 

610 IF V1>YB THEN Bl=l 

620 IF Y2<YT THEN T2=1:G0T0 649 

630 IF Y2>YB THEN 82“1 

640 IF Tl + T2::2 OR Bl+B2 = 2 THEN RETURN 

650 X3=Xl:Y3 = Yl:K4=:X2: Y4i:Y2:G0SUB 690 
660 Tl::T2 ;B1“B2;X1::KM: Yl::YM:K3rK2: Y3:iY 
2:X4=:X1; Y4i:Yl :GOSUB 690 

670 IF Y1<VT OR V1>Y8 OR YM<YT OR VM>V 
B THEN RETURN 

680 PLOT Kl,Yl:DRAMTO KM.YM:R£TURM 
690 IF Tl + Bl-O THEN XM=:X3 : VMi:Y3 : RETURN 
700 IF T1 THEN YM-YT:KM3K3+(X4-X33*CYT 
~Y3)/{Y4-Y33 : X3 = XM; Y3=:VM: RETURN 
710 IF B1 THEN YM=Y8: KM=:K3+CH4-K33* CYB 
“Y33/(Y4-Y33:X3=KM:Y3-YM:RETURN 
720 RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 587,293,21,12,595,261,273,936, 
267,649,77,777,83,421,89,5341 


160 DATA 657,95,338,245,76,34,990,837, 

88,515,94,52,420,841,520,5802 

310 DATA 81,562,87,3,93,546,99,883,185 

,830,83,323,366,92,349,4502 

460 DATA 98.734,303,480,855,85,726,91, 

723,97,368,494,374,109,536,6073 

610 DATA 188,353,198,823,482.869,545,4 

8,298,732,573,599,5708 

• 


Sphere Demo 


8 SIZ£ = 90:REN »IH(RADIUS^HH^ 

9 CX=16e:CY=96:REM *JtCEHTER»* 

10 DEG :1IWE-1 

20 GRAPHICS 24:SETC0L0R 2,0,8:SETCOLOR 
1,0,8:C0L0R 1 

25 PLOT CH+SIZE,CY:REM ***START*iHt 

30 FOR YZ90 TO 0 STEP -12 

40 FOR Xz:0 TO 360 STEP 12 

50 IF TIMEi:! THEN X2i:CK+SIZE*C05 CX3 : Y2 

=:CY- CSIZE»SIH tX3*SIM CY3 3 ; GOTO 68 

55 K2=CK-CSIZE*SIN(K3*SIN CY3 3:Y2=CY+SI 

ZE*C0SCX3 

60 DRAMTO K2,Y2:NEXT X:NEXT Y 
90 TIMEzTIt«+l:IF TIME=2 THEN PLOT CX, 
CY+5IZE:G0T0 38 

100 SIZE=20+RND (13*30 : CXi:SIZE+l+ CRND (1 
3*(318-(SIZE*23 3 3 :CY=SIZE + 1+(RND(13*(1 
90-(SIZE*2333:G05UB 1068:TII«=1:GOTO 2 
5 

910 REM *** ERASE HIDDEN LINES *** 

1000 COLOR 0;F0R X=0 TO 90 STEP 0.5 
1010 X2=SIZE*C0S(X3:Y2=SIZE*SIN(X3 
1020 PLOT CX+K2,CY+Y2:DRAMT0 CX-X2,CY+ 
Y2:PL0T CX+X2,CY-Y2:DRAMT0 CH-X2,CY-V2 
:NEXT X:COLOR IrRETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

8 DATA 365,712,880,195,686,399,350,614 
,380,298,205,106,520,297,673,6680 
1020 DATA 202,202 
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GRAPHIC VIOLENCE 


16K Cassette or Disk 


by Tom Hudson 


When writing game programs, many 
programmers automatically choose assembly 
language over BASIC because of the obvious speed 
advantage. This can sometimes be a mistake, since 
BASIC offers some functions (such as sine, square 
root, etc.) not easily written in assembler. One way 
to take advantage of the convenience of BASIC and 
the speed of assembler is to combine the two 
languages. ATARI BASIC allows the user to ^'call” 
machine-language subroutines, which can be many 
times faster than the same routine in BASIC. 

In order to assist those game programmers who 
would like to have dramatic explosion effects in their 
BASIC programs, I have developed Graphic 
Violence, a group of assembly-language subroutines. 
These routines allow BASIC to generate up to 20 
simultaneous explosions in GRAPHICS 7. They can 
optionally generate sound effects as well as ''cycle” 
the colors of the explosions for an interesting 
''radioactive glow” effect. 

The first half of this article is a non-technical 
explanation of how to use Graphic Violence. The 
second half is an in-depth discussion of the actual 
assembly language code for those interested in the 
inner workings of the subroutines. 

Using Graphic Violence* 

Listing 1 is the BASIC language code necessary to 
set up the Graphic Violence subroutine. This code 
should be placed in any program that is to use the 
explosion generator. After typing this program in, 
SAVE it immediately, BEFORE RUNNING IT! The 
routine has some safeguards against typing errors in 
the DATA statements, but if it is executed with bad 
DATA, the system may crash and it will be necessary 
to re-type the program. 

After the program is typed and SAVEd, RUN it. If 
it is typed correctly, the program will run for several 
seconds before anything happens. The screen colors 
will begin cycling quickly. If not, an error was made 
somewhere, and you should re-boot your system, 
load the SAVEd program, find the mistake, SAVE it 
and try again. 

If a message such as ''COORDI ERR” occurs, you 
have made a mistake typing in the DATA statements. 
''COORDI ERR” indicates that an error was made 


in the COORDI DATA, ''INIT ERR” is an error in 
the INITIALIZATION CODE, etc. Find the error, 
fix it and re-RUN the program. 

Once the computer starts cycling colors, press 
SYSTEM RESET before doing anything else. 
Whenever operating any program using the Graphic 
Violence subroutine, you MUST use the SYSTEM 
RESET key to terminate the program. The sub¬ 
routine automatically disables the BREAK key since 
typing commands in immediate mode while the 
subroutine is in operation will usually cause a system 
crash. Pressing SYSTEM RESET will correctly 
terminate the subroutine and avoid any problems. 

At this point, you should have a correctly 
operating Graphic Violence initialization sub¬ 
routine SAVEd on tape or disk. 

Program 1 Flow. 

Line 80 — GOSUBs to line 10000 to 
initialize the subroutine. 

Line 10010 — Dimensions the strings 
needed by Graphic Violence and RESTORES 
the DATA pointer. 

Line 1002040060 — READs DATA state¬ 
ments into the strings used by the subroutine. 

Line 10080 — POKEs graphics PLOT 
values into Graphic Violence. 

Line 101000 — Calls the machine- 

language initialization routine. It is of the form: 

A=USR CADR CINIT$),ADR CHAIN$),ADR(COORDI 
$},ADR(C00RD2$}^COLOR^SOUND) 

The COLOR value tells whether or not you want 
the color of the explosions to cycle. In the program 
listing, this value is set to 1, indicating that cycling is 
desired. If you do not want cycling, place a 0 here. 

The SOUND value tells whether or not you want 
the routine to generate sounds with the explosions. 
In the listing it is a 1, indicating that we want sound. 
If sound is not desired, place a 0 here. 

Line 10110 — This line simply returns from 

the subroutine to the main program 

A short demonstration. 

With Listing 1 in your computer, add Listing 2 
to the original program and RUN it. This is a short 
demonstration routine which simply places an 
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explosion at the center of the screen, then repeats. 

By looking at this short routine, you will notice 
the USR call in line 220. This is the command which 
starts an explosion. Once the Graphic Violence 
machine-code subroutine is set up, this short 
operation is all you need to generate explosions. 

Remember to stop the program by pressing 
SYSTEM RESET. 

Program 2 Flow. 

Line 190 — Set up a full-screen graphics 
mode 7. 

Line 220 — Call the explosion-starting 
machine language routine. This line actually 
starts the explosion. It is of the form: 

ftrU5R(ADRCEKPL$5Y) 

X and Y are the screen coordinates of the center of 
the explosion. In the Listing, X=80 and Y=48, 
placing the explosion at the center of the screen. 

This statement is the heart of the Graphic 
Violence routine. Once this statement is executed, it 
starts off an explosion while BASIC continues with 
whatever it is doing. In addition, the explosion 
handler can operate up to 20 explosions simultan¬ 
eously, while BASIC does its own processing! 

Line 240 — This line is a simple delay loop 
which allows an explosion to dissipate before 
generating another. 

Line 260 — This line goes to start a new 
explosion after the wait. 

In the previous example, we generated one 
explosion at the center of the screen, just to keep 
things simple. In the next example, we will see how 
the Graphic Violence routine will handle up to 20 
simultaneous explosions without the programmer 
having to worry about what’s going on inside the 
explosion handler! All the programmer needs to do 
is send the explosion coordinates to the routine via 
the USR command and let the computer do the rest. 
(What could be simpler?) 

With Listing 1 in your computer, add Listing 3 
to the original program and RUN it. The program 
will fill up most of the screen with graphics, then 
start dropping ''bombs” from the top of the screen. 
As they hit the graphics area, they will explode 
violently, "eating” away the graphics. As soon as one 
of the bombs falls off the bottom of the screen, an 
end message will be displayed and subsequently 
destroyed by a number of explosions. The program 
will run continuously and MUST be stopped by 
pressing SYSTEM RESET. 

Program 3 Flow. 

Line 190 — Sets up graphics mode 7 and sets 
COLOR #2 (the explosion color) to maximum 
brightness. 

Line 210 — Fills up the bottom section of 
the screen with COLOR 1 graphics. 

Line 230 — Makes sure any error will cause 


the program to continue at line 320 (the "THE 
END” routine). This TRAP statement will take 
effect when a bomb falls off the bottom of the 
screen. 

Line 250 — Gets the X and Y coordinates 
where the bomb will start its drop. 

Line 270 — Erases old bomb position (using 
COLOR 0) and increments Y position so that 
bomb will "fall” toward bottom of screen. 

Line 290 — Uses the LOCATE command 
to see if the bomb has hit anything. If the bomb 
hits color 1, an explosion is started at the X and 
Y coordinates and a new bomb is randomized. 

Line 310 — If no hit is detected, the bomb is 
plotted in color 2, the program waits a fraction 
of a second, then continues at line 270. 

Line 330 — When a bomb falls off the 
bottom of the screen, the error is TRAPped 
here. At this time, the computer sets up a new 
graphics 7 screen, sets the explosion brightness, 
and selects COLOR 1. 

Line 350 — This line RESTORES the 
DATA pointer to line 400 (THE END shape 
data), reads from-and-to plot data and draws 
the THE END message on the screen. 

Line 370 — This line sets off 200 
explosions, which destroy the THE END 
message. Note that the explosion USR call has 
random number functions for X and Y 
coordinates of the explosion center. There is 
also a 40 count delay after each explosion is 
started for a more interesting display. 

Line 390 — After all explosions are 
generated, wait a few seconds and GOTO line 
190 to re-run the demonstration continuously. 

Line 410-430 — These lines contain PLOT 
data for the words "THE END.” Each line in 
the letters is represented by 4 values, made up of 
2 sets of X and Y coordinates, the line 
endpoints. 

Summary. 

The Graphic Violence explosion generator 
subroutine will operate in almost any game using 
graphics 7. Explosions overlapping the edges of the 
screen are automatically "clipped,” but the program 
has minimal error-trapping. The user should take 
care to make sure that the coordinates supplied to 
the routine do not exceed the graphics 7 screen 
limits. The routine uses sound channel 1 when the 
sound generation option is requested. The 
Explosions use COLOR 3 (SETCOLOR 2), and will 
cycle the color only (not brightness) if color cycling 
is requested. Any program using the Graphic 
Violence routine must be terminated with SYS¬ 
TEM RESET to avoid a system crash. 

The following section contains a discussion of the 
assembly-language routines that make up Graphic 
Violence. This information is not necessary to use 
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the subroutine, but may assist those interested in 
assembly language and the inner workings of the 
ATARI computers. 

Background information. 

The Graphic Violence subroutine is made up of 
three program segments and two data tables. These 
five modules work together to provide a machine- 
language explosion generator for BASIC. 

The first assembly program (Listing 4) is the 
Graphic Violence initialization subroutine. It is 
stored in the BASIC string variable INIT$. Its 
function is to accept the locations of the main 
program module, and accept the color cycling and 
sound generation options. 

Remember that this is the routine called in the 
BASIC statement: 

ArUSRCODRCIHIT$5,ADR,0DRCC00RD1 

ADRCC00RD2$),COLOR,50UHD5 

Program 4 Flow. 

Line 230 — This line arbitrarily sets the 
location counter to $6000. Since this routine 
will be fully relocatable and stored in a BASIC 
string, this address does not matter. 

Line 240 — This PLA instruction pulls the 
first argument off of the stack. In a BASIC USR 
call, this argument is always the number of 
arguments passed to the machine language 
routine. We do not use it in this case, and it is 
discarded. 

Line 250-270 — This section zeroes out the 
explosion ready flag and the explosion counter. 

Line 280-330 — This section pulls the low 
and high bytes of the address of the main 
routine (ADR M AIN$), transfers them to the X 
and Y registers, then puts a 7 in the accumulator 
and jumps to the SETVBV subroutine. This 
tells the system that we are using a vertical blank 
interrupt. The 7 indicates that it is a "'deferred” 
vertical blank routine, that is, it operates after 
the system’s vertical blank operation. 

Line 340-410 — This section pulls the low 
and high bytes of the two sets of plot 
coordinates (COORDl$ and COORD2$, 4 
PLA s total) and stores them on page zero ($CB- 
$CE) for later use by the main module. 

Line 420-440 — This section pulls the color 
cycle indicator (COLOR) from the stack. Since 
this is a one-byte indicator and the system sends 
a two-byte argument, the first byte (high byte) is 
discarded and the second is stored in CYCFLG. 

Line 450-470 — This section is the same as 
lines 420-440, except that it stores the sound 
indicator (SOUND) in SNDFLG. 

Line 480 — This RTS (Return from 


Subroutine) returns control to your BASIC 
program after the initialization is complete. 

The second assembly language program (Listing 

5) is the explosion start routine. It is called by the 
BASIC statement: 

A=U5R(ADRCEKPL$3 

This routine simply accepts the coordinates of the 
explosion from BASIC. If there are 20 explosions 
active, it will ignore the request, otherwise it will 
send the coordinates to the main module, which is 
executing in the deferred vertical blank. 

Program 5 Flow. 

Line 200 — Once again, this Listing has its 
location counter set to $6000. It makes no 
difference, since this routine is fully relocatable. 

Line 210 — As in the previous Listings, 
this line discards the first item on the stack (the 
number of arguments passed to the assembly 
routine). 

Line 220-240 — These lines check the 
variable EXPCNT to make sure the new 
explosion can be started. If there are less than 
20, control is passed to FXPOK (explosion 
OK). 

Line 250-290 — These lines are used if 
there are already 20 explosions. The remaining 
4 bytes are pulled from the stack and discarded, 
and the program returns to BASIC. No 
explosion is generated. 

Line 300-350 — In a manner similar to the 
COLOR and SOUND parameters in Listing 
#4, this routine pulls the X and Y coordinates 
off of the stack and places the values in NEWX 
and NEWY for use by tl\e main module. 

Line 360-370 — This section places a 1 in 
READY flag, which tells the main interrupt 
routine that a new explosion is ready to start. 

Line 380 — This RTS instruction simply 
returns control to BASIC. In this way, the 
interrupt can start the explosion graphics while 
BASIC keeps running normally. 

The third assembly language routine (Listing 

6) is the vertical blank interrupt routine, stored in 
MA1N$. It does all the color cycling, sound, and 
graphics for the explosions. Since it is an interrupt- 
driven program, it operates independently of 
BASIC, allowing BASIC to continue processing 
normally while the vertical blank does all the 
explosion work. 

Since this program is stored in a BASIC string, any 
program editing or immediate mode operations in 
BASIC while the vertical blank routine is running 
will cause a system crash. This is due to the fact that 
BASIC moves its variables around in memory during 
editing of programs, and such movement of the 
interrupt routine will confuse the system. To help 
avoid such a problem, the Graphic Violence 
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interrupt routine disables the break key, making it 
necessary to press SYSTEM RESET to stop program 
execution. This is only a partial solution, however, 
since if the programmer allows his program to end 
with the READY prompt, then enters a program 
line, the crash will still occur. 

The interrupt routine performs several functions. 
First, it disables the BREAK key and cycles the color 
of playfield 2 if necessary. Next, it processes 
sound, if required, using sound channel 1. The last 
major function it performs is that of explosion 
graphics generation. 

Each explosion graphic is made up of 89 separate 
pixels. The routine uses the specified centerpoint of 
each explosion and adds X and Y offset values, which 
are stored in the BASIC string variables COORD 1$ 
and COORD2$. Each of the 89 pixels are first 
turned on, one pixel at a time, resulting in a 
''growing” appearance. After all 89 pixels are on, the 
routine turns off one pixel at a time, causing the 
explosion to dissipate. Each active explosion has a 
pixel either turned on or off each time the interrupt 
is performed. Since this happens 60 times a second, 
each explosion takes roughly 3 seconds to expand 
and dissipate [(89*2)760]. Explosions are 
independent of each other because of three tables. 
The X and Y coordinates of each explosion are 
stored in the XPOS and YPOS tables. The third 
table, CNT, holds the number of the pixel which will 
be turned on or off next for each explosion. This 
value ranges from 0 to 88 for "on” pixels, and 89 to 
177 for "off” pixels. If the CNT value for an 
explosion exceeds 177, the explosion has dissipated 
completely and its values are removed from the 
explosion tables by a "repack” operation. That is, if 
explosion number 2 is finished, explosion 3 will 
move back to 2, 4 to 3, etc. 

Program 6 Flow. 

Line 500 — Clears decimal mode. This 
instruction is vital when writing subroutines for 
BASIC that do any binary arithmetic. 

Line 510-540 — Disables the BREAK key 
by altering POKMSK and IRQEN, the interrupt 
request enable. This prevents the BREAK key 
from generating an interrupt. 

Line 550-640 — Cycles colors if CYCFLG 
is not zero. 

Line 650-770 — Processes explosion sound 
if SNDFLG is not zero. 

Line 780-940 — Monitors the READY flag 
to see if there is a new explosion. If not, the 
program checks for any old explosions at 
MAIN. If there is a new explosion, the routine 
sets up the XPOS, YPOS and CNT tables with 
the new information. 

Line 950 — Zeroes out COUNTR, the 
variable indicating which explosion is being 
processed. 


Line 960-1000 — Increments the explosion 
counter. If the counter is greater than the 
current number of explosions active 
(EXPCNT), the routine jumps to XITVBV, the 
vertical blank exit vector. Otherwise control is 
passed to INDEX. 

Line 1130-1350 — This section repacks the 
XPOS, YPOS and CNT tables to eliminate a 
"dead” explosion. It then branches back to 
RUNLP to handle the next explosion. 

Line 1360-2350 — This routine turns 
explosion pixels on or off, depending on the 
PLOTCLR setting. If the pixel is off the screen, 
the plot is abandoned by a branch to RUNLP. 

By expanding the XPOS, YPOS and CNT tables 
and altering the explosion call routine (Listing 5), 
advanced users can enable the Graphic Violence 
routine to handle many more explosions than it can 
now. However, 20 explosions are more than enough 
for most applications, and the routine should serve 
well as is. 

I hope that ATARI programmers will see by this 
example that it is not always necessary to write game 
programs completely in assembly language. Just use 
BASIC for complicated functions difficult to write 
in assembler, and use assembler for things BASIC is 
too slow to do. □ 


Listing 1 (BASIC) 

10 REM K X KMX M » |{ MM MX X M M 

20 REM * GRAPHIC VIOLENCE DEMO * 

30 REM * O.N.O.L.O.G. COMPUTING * 

40 REM * BY TOM HUDSON * 

50 REM KMKXXXMXMMX X J ie XlO t XMK - XMMXXMK 
60 REM 

70 REM INITIALIZE THE GRAPHIC VIOL 

ENCE SUBROUTINE XXX 
80 GOSUB 10010 
SO REM 

100 REM XMKXKXKXMXXMXXMXMNMKXXXMXXMXX 
110 REM XX your program GOES HERE! ** 
120 REM XXXXMXXXXXMXXXXXMMMXMICKMKKMXK 
130 GOTO 130 

10000 REM XXX INITIALIZATION SUBROUTIN 
E x n X 

10010 DIM IMIT$C411,EXPLSC293,MDIHSt35 
53,C00RD1S(89J,C00RD2SC893:RE5T0RE 119 
09 

10020 TOT=0;FOR H=1 TO 89:READ A:T0T=T 
OT+ft:COORDlStX,XJ=CHR5<A3:NEXT X;IF TO 
T09984 THEN ? "COORDl ERR": END 
10030 TOT=0:FOR X=1 TO 89:READ ft:T0T=T 
OTTO:COORD2$CX,X3=:CHRS(A3 :NEXT X ; IF TO 
T09984 THEN ? "C00RD2 ERR":END 
10040 TOT=:0:FOR X=1 TO 41:READ ft:T0T=T 
OT+AlINITS{X,X3=CHRStA3:NEXT X;IF T0T< 
>4237 THEN ? "INIT ERR":END 
10050 T0T=8:F0R X=1 TO 29:READ A:T0T=T 
0T4A:EHPLSCX.X3=CHRStA3:NEXT X:IF T0T< 
>2198 THEN ? "EXPL ERR":END 
10060 T0T=0;F0R H=1 TO 355:READ A:T0T= 
TOT+A:MAINS(X,X3=CHR$CA3:NEXT X:IF TOT 
036691 THEN ? "MAIN ERR";END 
10070 REM «*» SET UP PLOT BITS *** 
10080 POKE 1568,192:P0KE 1569,48:P0KE 
1570,12:POKE 1571,3 

10090 REM *** INITIALIZE GRAPHIC UIOLE 
NCE ROUTINE AND RETURN *** 

10100 A=USRCADR(INIT53,ADR<MAIN53,ADRC 
C00RD1S3,ADRCCOORD2$3,1,13 
10110 RETURN 
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11000 REM COORDl DATCi 

11010 DATft 0,1,255,0,255,0,255,2,1,1,0 

,254,255,1,0,1,254,254,2,0,1,255,2,2,2 

,255,254,1,253,3,3,4,252,253,254 

11020 DATA 255,254,2,3,3,253,0,0,0,4,4 

,252,255,2,0,3,2,1,253,254,254.252,253 

,3,253,252,251,251,252,4,3,4,255 

11030 D0TO 5,5,5,253,1,254,0,255,252,2 

53,251,253,252,3,4,3,1,255,1,2,4 

12000 REM *** C00RD2 DATA 

12010 D0TA 0,255,1,2,254,255,0,1,254,0 

,1,0,255,1,253,253,2,255,255,254,2,3,2 

,0,254,2,1,3,254.1.254,255,0,1,253 

12028 DOTA 253,254.3,2,0,3,252,4,3,6,2 

,2,4,4,5,3,253,252,0,3,4,254,252,252,2 

,1,1,0,255,254,255,1,251 

12030 DOT0 0,255,1,4,4,252,251,252,253 

,253,255,255,3,253,253,4,251,5,5,252,3 

13000 REM INITI0LIZOTION CODE 

13010 DATA 104,16^,6,141,0,6,141,1,6,1 

04,170,104.168,169,7 

13020 DATA 32,92,228,104,133,204,104,1 
33,283,104,133,206,104,133,205 
13036 DATA 164,104,141,11,6,104,104,14 
1,12,6,96 

14000 REM EKPL05I0N CALL CODE iHf* 

14010 DATA 104,173,1,6,261,20,48,5,104 

,104,104.104,96,104,104 

14020 DATA 141,2,6,104,104,141.3,6,169 

,1,141,0,6,96 

14990 REM MAIN INTERRUPT CODE 

15000 DATA 216,165,16,41,127,133,16,14 

1,14,210,173.11,6,240,20 

15010 DATA 173,14,6,24,105.16.141,14,6 

,173,198,2,41,15,13 

15020 DATA 14,6,141,198,2,173,12,6,248 
,22,173,13,6,240,17 

15030 DATA 56,233,1,141,13.6,74,74,74, 
141,1,210,169.40,141 

15040 DATA 0,210.173.0,6,240,31.238,1, 
6,174,1,6,173,2 

15050 DATA 6,157.64,6,173,3,6,157,65.6 
,169,127,141,13,6 

15060 DATA 169.0,157,106,6,141,0,6,141 
,5,6.238,5,6,173 

15070 DATA 1,6,205,5.6,16,3,76,98.228, 
174,5.6,169.0 

15080 DATA 141,4,6,189,106,6,201,89,48 
,51,238,4,6,56.233 

15098 DATA 89,281,89,48.41,138.168,232 
,236.1,6,246.2,16,21 

15100 DATA 189,64.6,153,64.6,189,85,6, 

153.85.6.189.166.6 

15116 OAtA 153,186,6,200,208.227,206.1 
,6,206,5.6,169,9,240 

15126 DATA 176.254,166,6,168,189,64,6, 
24,113,203,141,6,6.261 

15136 DATA 160,176,159,189,85,6,24,113 

,285,141,7,6,261,96,176 

15140 DATA 146,10,133,207,169,8,240,2, 

240,137,133,208.165,207,10 

15150 DATA 133,287,165,208,42,133,208, 

165.207.10.133.207.141.9.6 

15160 DATA 165.208,42,133,208,141,8,6, 

165,207,10,133,287,165.288 

15170 DATA 42,133,208,165,207,18,133,2 

07,165,268,42,133,208,165,207 

15180 DATA 24,109,9,6,133,207,165,208, 

109,8,6,133,208,165,88 

15190 DATA 24.101,207.133.207,165.89,1 

01,208,133,208,173,6,6,41 

15200 DATA 3,168,190,32.6,142,10,6,173 

,6,6,74,74,24,161 

15210 DATA 287,133,287,165,208,105,0,1 

33,208,160,0,173,4,6,208 

15220 DATA 11,173,10,6,81,287,145,287, 

169,0,246,132,173,10,6 

15230 DATA 73,255,49,207,145,287,169,0 
,240,241 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 280,324,225,872,288,261,725,83 
7,267,778,948,784,701,830,321,8441 
10020 DATA 807,814,299,322,416,442,758 
,706,200,43,332,901,920,385,338,7674 
12016 DATA 966,265,36,858,239,907,884, 
831,543,392,825,377,13,7,217,7360 
15040 DATA 450,996,743,441,863,301,958 
,239,326,614,853,887,899,169,370,9109 
15198 DATA 615,960,489,269,122,2375 


Listing 2. 


130 REM je yKKKMM -j ^ ^E-I CMKKKMICXMKKMMMKMXM 
140 REM * GRAPHIC VIOLENCE DEMO * 
150 REM » HUMBER 1 # 

160 REM X^XXXXXXXXXXXXXXXXXXXMX - XXXX 
170 REM 

180 REM 5ET UP GRAPHIC MODE 7 

190 GRAPHICS 7+16 

200 REM SET OFF AN EXPLOSION 

210 REM AT SCREEN CENTER 

220 A=USRtADRtEXPL$),80,48) 

230 REM WAIT A FEW SECONDS X+Ht 

240 FOR WAIT::! TO 2800: NEXT WAIT 
250 REM X*X DO EXPLOSION AGAIN XX* 
260 GOTO 220 


Listing 3. 


130 REM X X XXXXXXXXXMXX * K * XX*XXXXXXX 
140 REM X GRAPHIC VIOLENCE DEMO X 
150 REM X NUMBER 2 X 

160 REM * X X XKXXXXXMXK X MXXXXXX - XK - XXXX 
170 REM 

180 REM X*X SET UP GRAPHICS 7 FULL SCR 
EEN AND EXPLOSION COLOR XXX 
190 GRAPHICS 7+16;SETC0L0R 2,15,15 
200 REM X*X DRAW THE ‘GROUND* X*X 
210 COLOR llFOR Y-20 TO 95:PL0T 0,Y:DR 

AWT n IS*? V*NPKT V 

220 REM *** TRAP ANY ERRORS TO 'THE EN 
D' ROUTINE *iHf 
230 TRAP 320 

240 REM *** RANDOMIZE START POINT FOR 
DROPPING BOMBS K** 

250 K=5+RNDC0)*14S:Y=RND(OJ*3 

260 REM *** ADVANCE THE BOMB AS IT DRO 

PS 

270 COLOR 0;PLCT X,Y:V=Y+3 

280 REM *** IF THE BOMB HITS COLOR 1, 

SET OFF EKPLOSION 

290 LOCATE K,Y,Z:IF Z=1 THEN ArUSR(ADR 
(EHPLS),K,YJ;GOTO 25© 

300 REM *»» NO HIT, CONTINUE DROP **» 
310 COLOR 2;PL0T X,Y:FOR DELAY^l TO 10 
:NEKT DELAYlGOTO 270 
320 REM *»» "THE END' *** 

330 GRAPHICS 7+16:SETCOLOR 2,15,15:C0L 
OR 1 

340 REM **» PLOT 'THE END' »»» 

350 RESTORE 40©:FOR K=1 TO 22:READ FRX 
,FRY,TUK,TUY:PLOT FRK,FRY:DRAHTO TUK,T 
UY:NEKT K 

360 REM SET OFF 200 RANDOM EKPLOSI 

ONS *** 

370 FOR EKPLrl TO 200:A=USR (ADR (EXPL$) 
,4e+RND(e}K75,20+RND(e}«55} :FOR DELAYS 
1 TO 48:NEKT DELAY:NEXT EHPL 
380 REM *** LET EXPLOSIONS DIE, THEN R 
E-RUN THE DEMO 

390 FOR DELAYzl TO 20ee;NEXT DELAYlGOT 
0 190 

400 REM *** 'THE END' DATA **« 

410 DATA 50,25,67,25,59,25,59,45,72,25 
72,45,72,35,88,35,88,25,88,45,93,25,9 
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420 DATA 93,45,189,45,59,50,50,70,58.5 

0,67,50,50,60,67,60,50,70,67,70,72,70, 

72,50,72,50,88,70,88,70,80,50 

430 DATA 93,50,93,70,93,50,102,50,102, 

50,109,56,109,56,109,64,109,64,102,70, 

102,70,93,70 




CHECKSUM DATA 
(See pgs. 7-10) 

130 DATA 351,454,438,360,95,403,617,10 
0,539,885,711,340,552,331,470,6646 
280 DATA 421,589,835,842,98,463,638,15 
3,787,999,122,753,603,401,961,8665 
430 DATA 292,292 


Listing 4. 
GRAPHIC VIOLENCE 
A.N.A.L.O.G. CCHPUTING 
INITIALIZATION CODE 


9186 ; 

one ; 

0128 ; 

8136 ; 

8140 ; 

8150 ■ 

0148 READY = $688 
8178 EXPCNT = $681 
8138 CYCFLG = $688 
0198 SNDFLG = $68C 
0288 COORDl = $CB 
8218 C00RD2 = $CD 
0220 SET78V = $E45C 
0238 )= $6880 
0248 INIT PLA 
8250 LDA «8 
0260 3TA READY 
0278 STA EXPCNT 
0238 PLA 
8298 TAX 

8309 PLA 

8310 TAY 
0320 LDA #7 
8338 JSR SETVBV 
0340 PLA 

8350 STA COORDltl 

0368 PLA 

8370 STA COORDl 

0330 P!A 

8398 STA C00RD2+1 

0488 PLA 

8418 STA C00R02 

8420 PLA 

0438 PLA 

8448 STA CYCFLG 

8450 PLA 

0468 PLA 

8470 STA SNDFLG 

0430 RTS 

0498 .END 


jOISCARD 
jZERO OUT; 
jREADY FLAG 
•8 OF EXPL. 
iINTERRUPT HI 
•PUT IN X 
;INTERRUPT LO 
iPUT IN Y 
;OEFERRED UBI 
;SET IT! 
iCOORDl HI 
•SAVE IT 
•PULL COORDl LO 
jSAUE IT 
jPULL C00RD2 HI 
•SAVE IT 
jPlJLL C00RO2 LO 
■SAVE IT 
;DISCARD 

•,PULL COLOR CYCLE FLAG 

;SAVE IT 

;DISCARD 

;PULL SOUND FL6 

ISAVE IT 

iFINISHED! 


Listing 5. 

0100 ; GRAPHIC VIOLENCE 
8118 • 

0128 ! A.N.A.L.O.G. CCHPUTING #8 
0130 ' 

0148 • EXPLOSION CALL ROUTINE 
8158 ; 

8168 READY = $688 


0170 EXPCfTT = $681 
0130 NEUX = $602 
0190 NEUY = $683 
0200 *=$6008 
0218 PLA 
0228 LDA EXPCNT 
0238 CMP #28 
0248 BMI EXPOK 
0258 PLA 
0260 PLA 
0278 PLA 
0238 PLA 
0298 RTS 
8300 EXPOK PLA 
8310 PLA 
0320 STA NEUX 
0330 PLA 
8340 PLA 
0358 STA NEUY 
0360 LDA #1 
0370 STA READY 
0330 RTS 
8398 : 

0400 .END 


IDISCARD 
i# OF EXPL. 
•28 ACTIVE’ 
iNO, IT'S OK' 
;YES. DISCARD 
;80TH COORDS 


EXIT 

SOISCARD HIGH 
;GET X-COORD 
jSTORE IT 
;DISCARD HIGH 
;GET Y-COORO 
!STORE IT 
iTELL INTERRUPT 
jUE'RE READY' 
iAND EXIT BACK 
TO BASIC! 




Listing 6. 


8188 ! GRAPHIC VIOLENCE 
0118 - 

0128 ! A.N.A.L.O.G. COMPUTING 
8138 * 

0140 ■ V8LA14K INTERRUPT ROUTINE 
0158 • 

0168 READY = $680 
8178 EXPCNT = $681 
0180 NB4X = $602 
8198 NEUY = $603 
8200 PLOTCLR = $684 
0218 C01I4TR = $685 
0220 PLOTX = $606 
0238 PLOP/ = $687 
8248 HIHLD = $688 
0258 LOHLD = $699 
0268 PLOTSn = $68A 
0278 CYCFLG = $688 
0238 SNDFLG = $60C 
8290 SNDCf'lT = $68D 
0388 COLOR = $60E 
0318 PLOTBL = $620 
8320 XPOS = $640 
0338 YPOS = XPOS+21 
0348 CNT = YPOS+21 
0358 LO = $CF 


0368 Hi = $08 
8378 COORDl = $CB 
0338 C00RD2 = $CD 

0390 . 

0400 -SYSTEM EQUATES 
0416 ; 

0420 XITVBV = $E462 
0438 C0LPF2 = $2C6 
0440 AUDCl = $D201 
0458 AUDFl = $D200 
0460 SA>JMSC = $58 
8478 P0IC1SK = $18 
0438 IRQEN = $D20E 
0490 *=$6080 
0588 CLD 
8518 LDA POKMSK 
0528 AND #$7F 
8530 STA POKMSK 
0540 STA IRQEN 
0558 LDA CYCFLG 
0568 BEQ CONT 


jCLEAR DECIMAL 
•GET IRQ IITT. 
;N0 BREAK KEY 
(THE BREAK KEY 
;IS NOU OFF! 
jCYCLING COLOR’ 
;N0, CONTINUE 
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857» 

LDA COLOR 

iGET LAST COLOR 

1340 

LDA 40 

.•FORCE BR(¥CH 

8538 

CIC 

1 INCREMENT IT 

1356 

8E0 RUNLP 

:T0 NEXT EXPL. 

8598 

ADC «I6 

iBY 16 

1360 

DOPLOT INC CfTT.X :1NC COLITTER 

8.^88 

STA COLOR 

ifWD SA<7E it 

1376 

TAY 

;EXP PHASE IN Y 

8618 

LDA C0LPF2 

;GEf COLOR REG. 

1336 

LOA XPOS.X 

;GET X-COORD 

8628 

Af-ID «0F 

iGET BRIGHTNESS 

1390 

ClC 


8638 

ORA COLOR 

lADD THE COLOR 

1400 

AOC (COORD1),Y 

;ADD X OFFSET 

0648 

STA C0LPF2 

lAND SA<.'E IT* 

1410 

STA PLOTX 

iSTORE IT 

8650 CUT LDA SNDFLG ! 

iSOlWD E»1P 

1428 

CMP 4160 

{OFF SCREBi? 

8660 

BEQ 60 ; 

iNO, SKIP IT* 

1436 

BCS RBILP 

jYES.DOX'T PLOT 

8678 

LDA SNOCNT iMORE SOlfl!)’ 

1440 

LDA YPOS,X 

iGET Y-COORD 

8688 

BEQ 60 

NO, SKIP IT' 

DECREMENT THE 

1450 

CLC 


8690 

SEC 

1468 

AOC (C00R02),Y 

;ADD Y OFFSET 

0788 

SBC «1 

SOlilO COUNTER 

1470 

STA PLOTY 

{STORE IT 

8710 

STA I39DCNT 

AND STORE IT 

1438 

CMP 496 

jOFF 3CREBI? 
;YE3,DON'T PLOT 

0728 

LSR A 

SHIFT DOWI TO 

1498 

BCS RUNLP 

8730 

LSR A 

DERIUE UOLIHE 

1508 

• 

8740 

LSR A 

FRK1 COIUTTER 

1510 

;THE FOLLOWING SECTIdT IS A 

8758 

STA AUDCl 

SET UP SOIITD 

1526 

jOEDICATED MULTIPLY ROLUINE 

8760 

LOA H40 

CHAFMEL I... 

1530 

iWHICH MULTIPLIES THE A REGISTER 

8776 

STA AUDFl 

FINISHED' 

1540 

:BY 40. WITH RESULT IN LO & HI 

0788 60 LEW READY i 

NEW EXPLOSION^ 

1550 

ASL A 


0798 

BEQ miN 1 

NO, CWINUE 

1560 


0300 



1570 

STA LO 


8818 

:AT THIS POINT. THERE IS A 

1586 

LDA 46 


0828 

;NEU EYPL0SI!>1! 


1590 

BEQ X2 


0330 

1 


1686 

JRUNLP BEQ RWLP 

0348 

INC EXPCNT 

CITE MORE EXPL 

1610 

X2 STA HI 

{*2 

0858 

LDS EXPCfTT 

PUT IN INDEX 

1628 

LDA LO 


8868 

LDA NEt4X 

GET X-COORO, 

1638 

ASL A 


0370 

STA XP0S,X 

PUT IN table 

1648 

STA LO 


8830 

LOA NEWT 

GET Y-COORD, 

1650 

LDA HI 


8898 

STA YPOS.X 

HUT IM table 

1668 

ROL A 


0900 

LEW <1127 

INITIALIZE THE 

1678 

STa HI 

!*4 

8918 

STA SIDCITI 

SOlfID COLHTER 

1688 

LDA LO 


8?26 

LDA 48 

INIT COiMER 

1698 

ASL A 


0938 

STA CNT .K 

FOR EXPL IfttGF. 

1780 

STA LO 


0940 

STA READY 

AND ready FLAG 

1?!0 

STA LOHLO 


0958 MAIN STA COWTR i 

ZERO COWTER 

1728 

LDA HI 


0960 RUHLP INC COIMR 

NEXT EXPLOSION 

1736 

ROL A 


0976 

LDA EXPCNT 

GET 4 OF EXPL. 

1740 

STA HI 


0938 

CMP GjiMR 

ANY MORE E<PL- 

1750 

STA HIHLD 

I«8 

8998 

bpl index 

YES, COITTINUE 

1766 

LDA LO 

1808 

.JMP xim* 


1.970 

ASL A 


1818 

INDEX LOX COlfjfR 

GET INDEX 

1786 

STA LO 


1820 

LOA 40 

SET PLOTCLR 

1796 

Lte HI 


1838 

STA PlOTCLR 

6=PL!jT A Block 

1886 

ROL A 


1348 

LOA LNT,X 

GET COIMES 

1818 

STA HI 

i*16 

1858 


FOR ExPiOSTa-i 

1828 

LDA LO 

1068 

a-lP 439 

ALL ORAWT’’ 

1330 

ASL A 


1676 

mi DOOLOT 

NO, DO IT NOJ 

1846 

STA LO 


1038 

INC PLOTClR 

1=ERA3E SLOCK 

1358 

LOA HI 


1098 

SEC 

GET READY FOR 

1866 

ROL A 


1188 

sec 439 

ERASE CYCLE 

1370 

STA HI 

;*32 

me 

CMP #39 

ERASE D»IE’ 

1888 

LDA LO 


1128 

BTi DOPLOT 

no,e,rase block 

1890 

CLC 


1138 

TXA 

MOVE INDEX 

1966 

ADC LOHiD 


1148 

TAr 

TO Y REGISTER 

1918 

STA LO 


1158 

; 


1920 

LDA HI 


1166 

;THE FOLLOUING ROUTINE REPACKS 

1930 

AOC HIHLD 


1178 

;THE ExPLOSItfl TABLE TO GET RID 

1940 

STa hi 

i+»8=*40 

1130 

•OF EXPLOSiaiS THAT ARE D»TE. 

1950 



1196 

1 


1960 

;AT THIS POINT, 

THE HIXTIPLY BY 

1288 REF’ACK INX 

;NEX:T E.XPL0SIC4I 

1976 

;4e IS finished. we need to 

1216 

CPX EXPCNT 

iDONE^' 

1986 

iGET rfl OFFSET INTO THE SCREBl 

1228 

BEQ RPK2 

■NO,REPACK MORE 

1996 

•MEMORY 


1236 

SPL RPKEND 

lYES, EXIT' 

2806 



1240 

RPH2 LIW XPQS.X 

;N0, START RPK 

2016 

LDA SA'-.4iSC 

{ADD THE DISPLAY 

1256 

STA XPOS.Y ‘ 

;MOQE SACK X 

2828 

CLC 

{ADDRESS TO GET 

1268 

LDA YpOS.X 


2038 

ADC LO 

{THE ACTiJAL 

1278 

STa YPOS.y 

iHWE BACK Y 

2048 

STA LO 

{ADDRESS OF THE 

1288 

LDA CNT,X 


2058 

LOa ^.W'SC+l 

•BYTE THAT WILL 

1298 

STA aiT.Y 

iHOv'E BACK aiT 

2668 

ADC HI 

{BE ALTERED FOR: 

1380 

INY 

2078 

STA HI 

{THE P.OT. 

1318 

BIE REPACK 1 

INEXT repack 

2888 

LDA PLOTX 

{MASK PLOTX FOR 

1328 RPKEND DEC EXPCJff 

;DEC POINTERS 

2090 

AIRD 43 

{THE PLOT BITS. 

133IJ 

DEC COllTTR 

iDiiE TO REPACK 

2188 

TAY 

{PLACE IN Y...' 
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2110 

LDX 

PLOTBL.Y 

;G£T PLOT BITS, 

2120 

b r.x 

PL0TBY1 

jAND SAUE' 

2130 

LDA 

PLOTX 

;6ET PLOTX 

2140 

LSR 

A 

■DIVIDE 

2150 

LSR 

A 

;BY 4 

21 iC 

CLC 


•AND ADD TO 

2170 

ADC 

LO 

iPLOT ADDRESS 

2180 

STA 

LO 

jPOR FML PLOT 

2190 

LDA 

HI 

;ADDRESS. 

2208 

ADC 

00 


2210 

STA 

HI 


2220 

LOY 

08 

iZERO OUT Y REG. 

2230 

LDA 

PLOTCLR 

;ERASINi5? 

2240 

BNE 

CLEARIT 

;YES,GO CLEAR IT 

2258 

LOA 

PLOTBYT 

;GET PLOT BITS. 

2260 

EOR 

(LO),Y 

jALTER display; 

2270 

STA 

(LO),Y 

;AN0 plot IT! 

2280 

LDA 

08 

;FORCE BRANCH 


2290 JRIJNLP2 8EQ JRlflP \mi) EXIT! 
2300 CLEAR]! LDA PLOTBYT ;PL0T BITS 


2310 

EOR 0$FF 

jfLlP 'EM 

2328 

AND IL0),Y 

;ALTER DISPLAY 

2330 

STA (L0),Y 

;AND ERASE IT’ 

2348 

LDA 08 

i FORCE 8RWCH 

2350 

BEO JRUNLP2 

;AND EXIT' 

2360 

.END 


• 




Graphics 11 GTIA Demo 


le REM GRAPHICS 11 GTIA DEMO 
20 REM 

30 GRAPHICS 11 
40 CI=l:C=0:SETCOLOR 4,0,2 
50 FOR Y=0 TO 191 
60 FOR K-& TO 79 
70 C=C+l:IF C=16 THEN C=0 
80 COLOR C 
90 PLOT «,Y 
100 NEKT X 

110 LC=LC + l:IF LC=:16 THEN CI=-CI:LC=1 
120 C=C+CI:IF C=16 THEN C=0 
130 NEKT Y 
140 GOTO 140 


CHECKSUM DATA 
(See pgs, 7-10) 

10 DATA 990,253,995,374,128,296,319,77 
0,619,758,988,438,769,707,8404 
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ATARI 1020 PRINTER DEMO 


10 REN 

20 REM * ATARI 1020 PLOTTER « 

30 REM * SPHERE DEMONSTRATION * 

40 REM * BY TON HUDSON * 

50 REN MNKXKMMXMMMMMICMICMMNMMMMIC 
60 REM 

70 REM OPEN lOCB 1 TO PLOTTER *** 

80 REM 

90 OPEN »1,8,0,"'P:" 

100 REM 

110 REM SET SPHERE RADIUS 

120 REN 

130 SIZE-150 

140 REM 

150 REM INITIALIZE PLOTTER 

160 REM 

170 ? ttl;"*t\*H*I*MO,'*;-SIZE-20;"*!" 

180 REN 

190 REM *** SET SPHERE CENTER *** 

200 REN 

210 CX = 240:CYi:0 
220 REM 

230 REM *** START PLOTTING! *** 

240 REM 

250 DEG :TIME=1 

260 ? ttl;"M-';CH+SIZE;",";CY:REM *** ST 
ART THE PLOT *** 

278 FOR Y-SO TO 0 STEP -12 

280 FOR Xr0 TO 368 STEP 12 

290 IF TIME-1 THEN K2zCKTSIZE*C0SCXJ:Y 

2-CY-(SIZE*SIHCX3*SINCT)i:GuTu 34S 

300 X2=CX-CSIZE*SIN(X3*SIN(Y3):Y2=CY+S 

IZE*COS(X) 

310 REM 

320 REM *** DRAM LINE OF SPHERE *** 

330 REM 

340 ? ttl;"D";X2;",";Y2 
350 NEXT X:NEXT Y 
360 REN 

370 REM *** DO NEXT DIRECTION *** 

380 REM 

390 TIME-TItflE+l:IF TII«:=2 THEN ? HI; "M 
";CX;",";CY+5IZE:G0T0 270 
400 REN 

410 REM *** MOVE PAPER UP AT END *** 
420 REM 

430 ? HI;"H*MO,";-SIZE-20;"*!" 

440 CLOSE Hi:END 


CHECKSUM DATA 
(See pgs. T-IO) 


10 DATA 267,70,613,909,275,261,719,265 

,505,74,225,80,748,86,609,5706 

160 DATA 92,755,98,248,76,28,82,288,88 

,84,840,182,274,562,515,4212 

310 DATA 81,293,87,768,536,96,322,102, 

57,80,395,86,576,131,3610 


10 REM ***MX)(MK 9 CXXMXKMMiCMXXICM 
20 REM * ATARI 1020 PLOTTER * 

30 REM * "SQUARE-MEB" DEMO * 

40 REM * BY TON HUDSON * 

50 REM X^XXXXXXXXXXXKXXXXXXXX 
60 REM 

70 REM *** OPEN lOCB 1 TO PLOTTER *** 
80 REN 

90 OPEN H1,8,0,"P:" 

100 REN 

110 REM *** INITIALIZE PLOTTER *** 

120 REN 

130 ? HI;"t\*H*I*MO,-400*1" 

140 REM 

150 REM *** START PLOT LOOP *** 

160 REM 

170 FOR X=20 TO 380 STEP 20 
180 REN 


190 REM *** DRAM 4 LINES *** 

200 REM 

210 ? Hl;"M";X;",38O*D380,";4O0-X; 
400-X;",20;2O,";X;";";X;",38O" 

220 NEXT X 
230 REM 

240 REM *** ALL DONE! *** 

250 REN 
260 ? Hl;"H" 

278 CLOSE Hi:END 


CHECKSUM DATA 
(See pgs. T-IO) 


10 DATA 831,647,628,440,839,261,719,26 

5,505,74,597,80,923,86,212,7107 

160 DATA 92,302,98,591,76,229,766,85,1 

75,91,499,136,3140 





DISK UTILITIES 
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DISK FILES: 
USING NOTE & POINT 


32K Disk 
by Jerry White 


This is a demonstration program that creates a 100 
record inventory file and permits the user to update 
the file using random access. Random access allows 
immediate access to any given record in a file without 
reading each record again and again. 

The rest of this article assumes you have typed in 
the program. If there were no errors in typing, you 
should now have 3 options on the screen. First, we 
must create a data file, so type 1. This will send the 
program to line 100. We will now create a 100 record 
file to work with. Each record will contain a record 
number, an item count and an item description field. 
Each field is separated by a comma. As the file is 
created, it will be displayed on the screen. After 
record 100 is written the file is closed, and you will 
be returned to the 3 original options. 

Now type the number 2. In order to use random 
access updating, we must know exactly where each 
record begins on the diskette. Before updating, the 
program will create an index using an array in mem¬ 
ory. Once this is done, we can instantly find any re¬ 
cord using the POINT instruction. But first, we must 
NOTE the location by storing the sector number and 
byte in our arrays. We only have to do this once. 
Then we can inspect or change as many records as 
needed. 

The index is created using the routine starting at 
line 300 and ending at 420. Line 500 is the beginning 
of the random access routine. You should be able to 
follow the program listing, since the variables used 
will all be defined at the end of this article. At this 
time, I will only explain how the NOTE and POINT 
instructions are used. 

At line 310, we check a flag to see if an index has 
already been created. If so, we do not have to repeat 
this procedure and go to line 500. To create the in¬ 
dex, we read the datafile. Before reading each record, 
we NOTE the sector and byte position and put it into 
our SEC and BYT arrays. 

Once the array is complete, we are ready to display 
or update any record in the datafile using the POINT 
instruction to locate the record we want. Let’s start 
by displaying record 50. Type D and press RETURN. 
Then type 50 and press RETURN. At line 760, we 


POINT to the sector and byte of record 50. At line 
780, we INPUT that record, clear the screen, and 
display record 50 on the screen. 

Remember the number of items in this record, 
press any key, and you will be returned to the option 
routine at line 5000. Type 2 and this time we will 
change record 50. Type U and press RETURN, then 
type 50 and press RETURN. Record 50 will again be 
displayed, but now we have 3 new options. Let’s take 
them in order. Type 1, then press RETURN. To 
update the quantity, we merely add to it by typing 
the number of items to add, or subtract by typing a 
negative number. Remember that our quantity field 
is only 3 positions, so don’t increase it to more than 
999 items. 

After reading the record from the datafile, we 
store it in a string call REC$. The quantity field is 
updated in the string. It will be updated on the disk 
only when we choose option 3 to exit. Before we exit, 
let’s change the description field. Type 2 and press 
RETURN. Choose a new description and type it. 
Now type 3, and the record will be updated on the 
disk. 

To be sure that the record has been changed pro¬ 
perly, you can choose the display/update option 
then redisplay record 50. By now, you can see the 
advantages of random access updating. You don’t 
have to read the first 49 records to get to record 50. 
Once the arrays of the sectors and bytes contain the 
beginning of every record, we can locate any record 
instantly. □ 


20 REH INUENTORY TUTORIAL PROGRAM TO D 

EHONSTRATE RANDOM ACCESS UPDATING 

30 REM BY JERRY HHITE 

50 DIM SECClOO),BYTCieO),REC$C3e},DESS 

CIO),CHOICES €13:CI=e:GOTO 5000 

100 REM CREATE INITIAL DATA FILE * 

'IHC’ 

110 FOR BLANK=1 TO 38:REC$(BLANK,BLANK 
I=" "rNEXT BLANK 

120 CLOSE ttl:0PEN ttl,8,0,"D;DATAFILE" 
130 REC$(4,4J=",";RECS(8,30J=",ITE« DE 
SCRIPTION FIELD" 

140 FOR REC0RD=1 TO 100 

160 IF REC0RD<10 THEN REC$(1,2]="00":R 

EC$(3,3)=STR$(REC0RD]:GOTO 228 
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180 IF RECORD <100 THEM RECS <1,1) ::”0” : R 
EC$C2^3)=STR$(REC0RD}:GOTO 220 
200 REC$C1,3}=:STR$(REC0RD) 

220 REC$(5,7}=STR$CRNDCO}«10O^10O) 

240 PRINT ttl;REC$S? :? "RECORD ";RECOR 

D:? REC$:NEXT RECORD 

260 CLOSE Hi:GOTO 5080 

300 REM CREATE INDEX NN* 

310 IF CI=1 THEN REC0RD=101:GOTO 500 
320 TRAP 2008 .-CLOSE 112:OPEN tt2,4,0/'D: 
DATAFILE":TRAP 40000 

360 FOR ARRAy=l TO 160: NOTE St2, SECTOR, 
BYTE 

380 ? :? "RECORD ";ARRAV;" SECTOR ";S 
ECTOR;" BYTE ";BYTE 

400 SEC CARRAY)^SECTOR:BYT CARRAY)=BYTE: 
INPUT H2,REC$:NEXT ARRAY 
420 CLOSE »2:CLOSE tt3:CI=l 
500 REM RANDOM ACCESS DATAFILE 

520 CLOSE tU:OPEN tt4,12,8,"D:DATAFILE" 
540 ? CHR$C1253;? :? "TYPE D TO DISPLA 
Y A RECORD":? ;? "TYPE U TO UPDATE A R 
ECORD"- 

560 INPUT CHOICES:IF CHOICES-"D" THEM 
700 

580 IF CHOICES-"U" THEN S0O 

600 ? CHRSC253):GOTO 540 

700 ? :? "TYPE RECORD NUIffiER TO DISPLA 

Y";:TRAP 700:INPUT RN:TRAP 40000 

720 IF RN<ARRAY AND RN>0 AND RN^INTCRN 

} THEN 760 

740 ? CHRSC253):? "INUALID RECORD NUMB 
ER":G0T0 700 

760 POINT H4,SEC<RN3,BYT(RN} 

780 INPUT lt4,RECS:? CHRSC125J:? :? "RE 

rnnn 

800 ? :? "PRESS AMY KEY FOR OPTIONS:": 
POKE 764,255:CL0SE tt4 

820 IF PEEK €7643 0 255 OR PEEK C5327SJ <> 
7 THEN POKE 764,255 .“GOTO 5000 
840 GOTO 820 

900 ? :? "TYPE RECORD NUffiER TO BE UPD 
ATED";:TRAP 900:INPUT RN:TRAP 40000 
920 IF RN<ARRAY AND RN>0 AND RN=INTCRN 
) THEN 960 

940 ? CHRSC2533:? "INUALID RECORD NUMB 
ER":GOTO 900 

960 POINT H4,SECCRN),BYTCRN3 
980 INPUT H4,RECS:? CHRSC1253 
1000 ? :? "RECORD ";RN:? :? RECS 
1010 ? ;? "TYPE 1 TO UPDATE QUANTITY": 
? "TYPE 2 TO CHANGE DESCRIPTION":? "TY 
PE 3 TO EXIT" 

1020 TRAP 1060:INPUT CHOICE:TRAP 46000 
1040 IF CH0ICE<1 OR CH0ICE>3 OR CHOICE 
OINTCCH0ICE3 THEN ? CHRS €2533 :GOTO 10 
00 

1060 ON CHOICE GOTO 1100,1300,1080 
1080 POINT tM, SEC CRN} , BYT CRN) : PRINT tt4 
;REC$:CLOSE tt4;G0T0 5000 
1100 ? :? "TYPE POSITIVE NUHBER TO INC 
REASE ITEMS":? "TYPE NEGATIVE NUI«ER T 
0 DECREASE ITEMS" 

1140 TRAP 1100:INPUT NUi«ER:TRAP 40000 
1160 1TEMS=VALCREC$C5,7)):1TEMS=ITEMS+ 
NUMBER 

1180 IF ITEM5>S9S THEN ? CHR$C2S3):? " 
ITEMS CANNOT EXCEED 9SS":G0T0 1100 
1200 IF ITEM5<0 THEN ? CHR$C253):? "IT 
EMS CANNOT BE A LESS THAN ZERO":GOTO 1 
120 

1220 IF ITEMS<10 THEN RECSC5,6)="00":R 

Ec5C7,7)=STRSCITEMS):60T0 1000 

1240 IF ITEMS<iee THEN RECSf5,5)="0":R 

ECSC6,7)=STRSCITEMS)?GOTO lAAO 

1260 RECSCS,7)=STR$CITEMS):G0T0 1000 

1300 ? CHRS<125}:? :? "RECORD ";RN:? : 

? RECS 

1320 ? :? "TYPE NEH DESCRIPTION UP TO 
22 POSITIONS" 

1340 INPUT DES$:LD=LENCDES$) 

1360 IF LD>22 THEN ? CHRSC253):? "FIEL 
D TOO LONG, EXTRA IGNORED" 

1380 IF LD=22 THEN 1420 

1400 FOR BLANK=LD TO 22:DESSCLENCDESS) 

♦1)=" ":NEXT BLANK 


1420 RECSC9,30)=OESS:GOTO 1000 
2000 ? CHRSC253):? :? "DATAFILE NOT ON 
DISK:TRAP 40000" 

2010 FOR iMIT=l TO 500:NEXT WAIT:GOTO 
5000 

5000 REM *** INITIAL DISPLAY OF OPTION 

s xicic 

5010 GRAPHICS 18:? HO:? H6;" INUFNTORY 
OPTIONS:":? tt6:? tt6;" IZ CREATE FILE 

•I 

5020 ? He:? H6;" 2 Z DISPLAY/UPDATE":? 

116:? 116;" 3Z END PROGRAM" 

5040 CLOSE H5:0PEN lt5,4,0,"K:":GET tt5, 

GC:CLOSE H5:GCzGC-48 

5060 IF GC<1 OR GC>3 THEN 5000 

5080 GRAPHICS 0:P0KE 82,1:SETCOLOR 2,0 

,0:0N GC GOTO 180,308,6000 

6000 GRAPHICS e:POKE 82,2:END 


CHECKSUM DATA 
(See pgs. T-IO) 

20 DATA 161,467,887,260,998,773,777,82 

0,204,222,294,135,704,49,680,7431 

310 DATA 667,231,617,590,580,241,701,6 

58,461,208,528,24,420,307,305,6538 

760 DATA 887,785,571,427,729,704,315,3 

11,891,490,709,443,866,682,198,9008 

1080 DATA 743,395,936,860,817,197,63,8 

5,456,987,634,949,21,624,90,7857 

1420 DATA 626,794,547,747,299,492,995, 

631,886,917,6934 
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DISK DIRECTORY DUMP 


16K Disk 


by Tony Messina 


This utility is rather simple in nature, but can 
prove quite helpful when trying to remember what 
program is on which diskette. In order for this utility 
to work, you need the following items: 1) a disk 
drive, 2) a printer (40 or 80 column), 3) an ATARI 
computer with at least 16K of memory. The utility 
itself will give you a neat, formatted hardcopy of 
your disk directory (I told you it was simple!). The 
following article should also give you a general idea 
about lOCBs and the OPEN/CLOSE statements 
which are part of the BASIC repertoire. 

lOCBs. 

Many programs appearing in this book use OPEN 
and CLOSE statements to perform a particular func¬ 
tion. Pm sure such questions as '*What is being 
opened/closed,” ''How/Why is it being opened/ 
closed,” and ”How can I open/close my own 
things?” have crossed your mind, so now would be a 
good time to find out what it’s all about!! 

One of the most difficult things to do on any com¬ 
puter is INPUT/OUTPUT, or I/O for short. Would 
you like to write the program (commonly called a 
driver) to print to the printer or list to the disk or 
input a character from the keyboard? It really isn’t all 
that fun. Thanks to those great ATARI folks who 
designed our systems (the operating system in par¬ 
ticular), we don’t have to worry too much about the 
above-mentioned items. We can control out I/O 
through an lOCB or Input/Output Control Block. 

The operating system has eight lOCBs. Each 
lOCB contains information as to the nature of the 
device we want to communicate with, where the 
driver for the device is located, where the buffer for 
the device is located, the length of the buffer, the 
command we are trying to execute on the device 
(OPNE, CLOSE, PUT CHARACTER, GET CHAR¬ 
ACTER, etc.), timeout values (i.e., how long do we 
try to execute a command before we decide to give 
up), etc. This information is used by the Central 


Input/Output (CIO) portion of the operating sys¬ 
tem when communicating with the device on the 
lOCB specified. 

Now that we know something about lOCBs, let’s 
look at how we set them up. 

OPEN and CLOSE. 

The OPEN command allows us to communicate 
with a device using the CIO facility. We don’t have 
to know machine language to access a device. . .we 
can use BASIC instead! OPEN just dedicates an 
lOCB to perform our command. We can think of it 
as opening a hotline to our device. The line will stay 
open until we hang up or CLOSE it. The form of the 
OPEN command is as follows: 

OPEN #I0CB,I/0 CODE, SPECIAL, DEVICE 

Parameters can take on the following values: 

lOCB — Any number from 0-7. Usually only 1-5 
is best, since the operating system uses lOCB 0 for 
the screen/editor, 6 for any graphics window (I’m 
sure you all have used a PRINT #6 statement), and 7 
for LPRINT and Cassette I/O. 

I/O CODE — 4=INPUT, 8=OUTPUT, 12= 
INPUT and OUTPUT, 6=DISK DIRECTORY IN¬ 
PUT and 9=OUTPUT (APPEND TO END OF 
FILE). 

SPECIAL — Is usually 0 but can be filled in based 
on the device you are using. If you are opening a 
screen mode other than GR.O, you would need to 
put the GR. mode number in the SPECIAL para¬ 
meter. If you have a sideways printing printer (say 
that 10 times quickly), you could get it to print side¬ 
ways by putting 83 as the SPECIAL parameter. 
When in doubt, use 0. 

DEVICE — Devices which we can control and 
which BASIC knows about are the KEYBOARD 
”K:”, GRAPHICS WINDOW ”S:”, PRINTER 
”P:”, CASSETTE ”C:”, DISK FILE ”D:fiIename. 
ext”, SCREEN EDITOR ”E:” and RS232 PORTS 
”R:”. 
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When opening a device, we must make sure that 
the parameters make sense. We wouldn’t want to 
open a printer for INPUT and OUTPUT, since most 
printers only allow OUTPUT It also wouldn’t make 
sense to open the graphics window for DISK DIREC¬ 
TORY INPUT See. . .it’s not all that complicated. 

Once we have opened a device, there are many 
things which can be done. Commands such as PUT 
#, GET #, PRINT #, etc. can be executed by BASIC 
directly to the device we have opened. The only thing 
we have to remember is not to use an invalid com¬ 
mand for the I/O CODE selected. If we opened the 
GRAPHICS WINDOW for OUTPUT, for example, 
then we could not use the GET command. Experi¬ 
ment using OPEN with its associated commands and 
you’ll soon become proficient in the mysterious 
world of ATARI I/O. 

How DDD uses lOCBs. 

This utility opens 2 lOCBs. lOCB 1 is opened for 
output to the printer in LINE 220, and lOCB 2 is 
opened for disk directory input in LINE 230. The 
filename to get has been set to '*D:**”, since we want 
to see all of the files. DEV$ is simply set to 'T:” for 
the printer. I also set all my codes to constants for 
easier reading. The values can be found in LINES 
115-125. 

With these two lOCBs open, the rest of the utility 
is a snap. We input a file name in LINE 380 and 
output it to the printer. A nice thing about the direc¬ 
tory input command is that it also returns the num¬ 
ber of FREE SECTORS after the last filename has 
been input. LINE 385 checks for this and routes us 
to LINE 420 when we are done. Another item to 
note is that the printer now recognizes 'V’ and so 
that we can format our output. LPRINT, under cer¬ 
tain circumstances, will recognize these two charac¬ 
ters, but it’s best to open a channel to the printer and 
do a PRINT # instead. 

The remainder of the utility performs error checks 
and issues prompts for the user. All of the major 
sections have been block commented and should 
present no major problems when you try and figure 
out what is being done. 

How to use it. 

Type in the listing and save it to your disk. You can 
now RUN the program. If you forget to turn on your 
printer or disk, you will be razzed until you do. Just 
follow the prompts and you’ll soon have a listing of 
all your directories. You can even print a title (18 
characters max) for each of your directories to help 
jog your memory. 

One last note. If your printer doesn’t support the 
expanded print mode, then you must change LINE 
305 by deleting the ESC/ESC/CNTL N sequence 
and also deleting the '**2)” from the centering cal¬ 
culation. If you have an EPSON printer, just change 
the code for expanded print to the appropriate 
code. □ 


10 REH KKMKXMMKKMKKMKlCXXKICICXMXMMICKMXi e 

15 REM * UTILITY tt4 * 

20 REM * DISKCftT UER.l * 

25 REM * BY TONY MESSINft * 

30 REM « FOR A.N.A.L.O.G. COMPUTING * 
35 REM XXXXXMXKXXXXMKXXXXMKXXXXXXXXXK 
40 REM ^ 

45 REM XXXKXXXXXKXXXXXMXXX - X » 

50 REM * MAKE SCREEN TITLE * 

55 REM XXXXXMMMMXXXXXXXXXKI HI 
60 REM « 

65 GRAPHICS 2:STARTzPEEKC560)+PEEKC561 
J*256:P0KE START+S,6;P0KE START110,6:P 
OKE START111,5 



tt6:? ns;' 


zzzuzz** ■ 

80 ? 1*6 
iM- 


right 


85 ? tl6;* 




90 REM * 

95 REM XXXXKXXXXXXXXKXNX 


100 REM « VARIABLE INIT « 
105 REM XXXXMXXXXXXMXXXMX 


110 REM * 

115 DIM DEU$C2):DIM TAB$C40):DIM DIREC 
T0RY$C5):DIM FILENAMESC19):DIM ANS$Cl) 
120 DIRECTORYS="D:*.*":TAB$=- 


125 DISKZ2 S PRNTERrl:DIRTAB-10:C0LMID=4 
0:0UTPUT=8:NULL=0:DIRIN=6:C0UNT=3:SPAC 
E=3 

130 REM * 

135 REM MXXMXXXXXXXMXXXXMM 
140 REM * GET USER INPUT N 
145 REM XXXXXXXXXXXMMXXXXM 


COLUMN NIDTH 


150 REM * 

155 ? "N" 

160 DEU$i:»P ;»;TRAP 505:? 

mamihMiiiM **:: input width 

165 IF MIDTH<>40 AND MIDTHO80 THEN GO 
TO 160 

170 IF MIDTH=80 THEN COLMIDrMIDTH:GOTO 
215 

175 DIRTAB=l:C0UNT=2:SPACEz2 
180 ? 

185 REM * 

190 REM XXXXXXXMMXXXKXX N X X I Ht 
195 REM * OPEN DEVICES FOR * 

200 REM * INPUT/OUTPUT * 

205 REM XMNXX N NNMXXXMXXXX ^ XK X 
210 REM * 

215 TRAP 495;LPRINT 

220 OPEN ttPRNTER,OUTPUT,NULL,DEVS 

225 TRAP 500 

230 OPEN ttDISK,DIRIN,NULL,DIRECTORYS 
235 REM * 

240 REM XXNXXNX 9 (XXXXXMXMXNXXXNX 
245 REM « ASK FOR HEADER NAME « 

250 REM MXXXXXKXXXMMXXXXXXXXXXN 

255 REM *_ 

260 ? : : INPUT FILEN 

AMES 

265 IF FILENAMESr""* THEN FILENAMESz"-D 
EFAULT NAME-" 

270 REM * 

275 REM XXXXXXMXXXXXXXKXXXX 
280 REM * PRINT TITLE OUT * 

285 REM XXXXXXXXMXXXXXXXXXX 


290 REM * 

295 IF LENCFILENAMES)>18 THEN GOTO 510 
300 TRAP 510 

305 PRINT tlPRNTER;TABSCl.INTCCCOLMID-( 
LEN CFILENAMES)*2))/2));"4.":FILENAMES 
310 ? UPRNTER:? NPRNTER;TABS Cl,DIRTAB) 


315 REM * 

320 REM XXXXXMXXKXXXXXXXKXX 
325 REM * PRINT COLUMN ID * 

330 REM KXXXXXXXXXMXXXXXXMX 
335 REM * 

340 FOR HEADCNT=1 TO COUNT:? ItPRNTER;" 
FILNAME/EXT LEN";TABS Cl,SPACE); :NEXT 
HEADCNT:? IIPRNTER 

345 ? IIPRNTER:? IIPRNTER; TABS Cl, DIRTAB) 
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350 REM * 

355 REM 

360 REM * GET FILEH<iME5 OND PRINT * 

365 REM XXX»X X XXXXXXXXX » X^X^XXXXX X X 
370 REM * 

375 FOR X=1 TO COUNT 
380 INPUT ttDISK,FILEHOME$ 

385 IF LENCFILEN0ME$)<17 THEN ? ItPRNTE 
R!? ttPRNTER;TOB$(l,C(COLMID-16)/2)“D; 
FILEN0ME$:G0T0 420 

330 ? ttPRNTER;FILENAHES;T0B$(l,5PftCE); 
:NEKT X:G0T0 345 
335 REM * 

400 REM XXXXX JH CXXXXXXXXXXNX ^ X - XX 3 C ^ 

405 REM X CK IF USER WONTS MORE « 

410 REM XXXXX X XXXXXXXXXXXXXXXXXXX 
415 REM X 

420 CLO SE ttPlSK;CLOSE ttPRNTER 

425 ? : INPUT 0NS$ 

430 IF ONSS • OND 0NS$<>“N'* THEN GO 

TO 420 _ _ 

435 IF ONS$=-*N‘* THEN ? " OUlMaJUii:!*! ": 

GOTO 460_ 

440 ? i ; IN 

PUT ONS$ 

445 IF ONS$<>"Y'* OND ONS$<>"N“ THEN GO 
TO 440 

450 IF ONS$='*Y'‘ THEN GOSUB 430:GOTO 22 
0 

455 GOSUB 430:RUN 
460 END 
465 REM X 

470 REM XXXXXXXXXXXXXXXKKXKXXX X X 
475 REM X ERROR TROPS FOLLOW X 
480 REM XXXXXX ^ XXXXXXXXXXXXXX XX X 
485 REM X 
430 ? 

□BHB";;I NPUT 0NS5;RETURN _ 

435 ? ; G 

OTO 160 

500 ? : CLOS 


HINSERT NEW DISK OND HIT <RETUR1 


□PgnnrE^DOE^I^j^ESPO^^ IISiH 

FrlWiliiiMtiTiMiM——M 

INPUT ERROR CONLV NUMBERS PLE6I 

ifN ft ME T 


18":G0T0 260 


CHECKSUM DATA 
(See pgs. 7-10) 


10 DOTO 771,6,123,386,373,730,73,36,35 

7,38,77,571,36,783,414,6100 

85 DOTO 336,83,555,565,775,274,620,478 

,181,280,600,328,603,286,382,6406 

160 DOTO 831,741,331,154,303,300,43,34 

0,821,23,276,732,876,711,271,8631 

235 DOTO 287,288,220,231,233,173,615,2 

34,811,633,814,300,828,705,370,6388 

310 DOTO 166,283,733,563,736,283,603,1 

80,230,366,580,363,236,778,660,7012 

385 DOTO 23,135,307,233,438,236,285,36 

5,318,322,55,17,334,135,534,4457 

460 DOTO 50,300,117,84,120,306,488,404 

,838,373,580,4326 


Rainbow Demo 


5 SETCOLOR 2,0,0:P0KE 752,1;PRINT CHR$ 
1125) 

10 DIM C$C24) 

20 FOR 1=1 TO 24 
30 REOD D 

40 C$ (I,I)=CHR$CD) 

50 NEXT I 
60 D=USRCODRfC$)) 

70 END 

100 DOTO 162,0,173,11,212,201,32,208,2 
43,141 

110 DOTO 10,212,142,24,208,232,232,208 
,246,142 

120 DOTO 24,208,240,232 


CHECKSUM DATA 
(See pgs* 7-10) 


5 DOTO 557,836,230,324,306,380,233,255 
,645,111,533,4476 
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16K Disk 

by Charles Bachand 


Over the years, we have all run across diskettes 
that just would not format. This was probably due to 
a scratch or dent on the disk surface, and even 
though the ATARI 810 disk drive returns the 
addresses of bad sectors to the computer (Huh, 1 
didn’t know that!), the disk operating system makes 
no use of them. Well, how would you like to be able 
to use those disks that up until now you have been 
feeding to the trash? 

BURP (Basic Unusable^disk Reclaimer PrO' 
gram), is a machine language program that patches 
itself into DOS’s disk formatting routine. Being an 
AUTORUN.SYS file, it is loaded when the 
computer is first powered on and is essentially 
transparent to the user. The only programming 
limitation is that no other program can reside within 
the address space $600'$694. 

There are a couple of limitations involved in using 
BURP: 

1) The program will still return a bad sector error 
and abort if any bad sector is in the space taken up by 
the disk directory (sectors 360-368) or the disk boot 
(sectors 1-4). 

2) Do not save DOS out to a disk after BURP has 
run without also saving a copy of the 
AUTORUN.SYS file containing BURP to the same 
disk. The DOS will have been patched into BURP, 
and without BURP itself loaded into memory any 
attempt to format a disk will end with DOS dying a 
terrible death! (In other words, it bytes the dust.) 

BURP is divided into three sections. The first is a 
group of patches that load into the exisiting DOS. 
These patches wedge BURP into the Disk Operating 
System, and reduce the error retry count to allow 
the OS to say 'T give up!” a lot sooner. 

Next follows the main section of the program that 
converts the bad sector numbers returned by the 810 
disk drive into the corresponding bits of the disk 
directory’s Volume Table Of Contents (VTOC). 
The VTOC has a bit for every sector on the disk. If a 
bit is on (1), this tells DOS that it may store data in 


that sector; no other file is currently using it. It also 
follows that if the bit is off (0), the sector is currently 
in use and should not he touched. 

We next compare these hits with those of a freshly 
formatted disk. If the bit is on then BURP will shut it 
off to mark it as being in use. However, if it was in use 
to begin with, then we are in trouble and BURP will 
produce a bad sector error. 

The last part of the program will check the number 
of sector errors on the disk. If there were no errors 
encountered, the program merely writes the first 
directory sector. Otherwise, we build a fake file entry 
with the name ”Bad Sectors” and a length of the 
number of bad sectors. This entry is used as a flag to 
identify which of your disks caused problems. 

The completely documented Macro Assembler 
listing follows, as well as a BASIC program to 
generate BURP. 

There are two more limitations of this program 
that have surfaced. The larger of the two problems is 
the fact that it will not work with Percom disk drives. 
This is due to the fact that the Percom drive does not 
return bad sector numbers to the operating system if 
it cannot format a disk. The second problem shows 
up if you try to duplicate a disk using DOS option 
”J.” DOS 2.OS copies all sectors whose correspond¬ 
ing bit in the VTOC is set, it will try to copy the had 
sectors which it cannot do. It will instead issue an 
error message. A way around this would be to copy 
individually every tile on the disk. 

To generate the BURP program and have it 
SAVEd to a file, run the BURP maker program 
written in BASIC. The.object program will he stored 
on file DrAUTORUN.SYS, which will automatically 
load the program after DOS is loaded. 

If you want the option of using BURP or not using 
it, simply change the file name specified in the 
opening statement to something other than 
DrAUTORUN.SYS. To run BURP now, it will be 
necessary to call up the DOS Menu and perform a 
binary load from your chosen new file. □ 
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BASIC Listing. 


Patches to DOS 2.88 


100 REM ♦++ BURP ♦++ 

110 REM BASIC UNU5EABLE-DISK 
120 REM RECLAIMER PROGRAM 
110 REM 

140 OPEN ttl,8,0,"D:AUTORUN.5YS" 

150 TRAP 170 

160 READ ASPUT ttl,A:GOTO 160 
170 CLOSE ttl:END 

200 DATA 255,255,140,7,141,7,169,0 
210 DATA 76,13,78,13,76,82,13,142 
220 DATA 13,144,13,32,8,6,165,13 
230 DATA 169,13,208,248,32,101,6,0 
240 DATA 6,144,6,169,0,141,148,6 
250 DATA 141,147,6,172,147,6,177,71 
260 DATA 141,145,6,208,177,71,141,146 
270 DATA 6,200,201,255,208,8,205,145 
280 DATA 6,208,3,76,149,16,140,147 
290 DATA 6,169,0,160,3,78,146,6 
300 DATA 110,145,6,106,136,208,246,42 
310 DATA 42,42,42,168,169,0,56,106 
320 DATA 136,16,252,170,173,145,6,105 
330 DATA 10,168,138,49,69,208,5,104 
348 DATA 104,76,181,18,138,81,69,145 
350 DATA 69,160,3,177,69,56,233,1 
360 DATA 145,69,238,148,6,76,8,6 
370 DATA 172,148,6,240,21,162,10,189 
388 DATA 134,6,9,128,157,6,20,282 
390 DATA 16,245,169,96,141,1,20,140 
400 DATA 2,28,32,113,16,76,25,18 
410 DATA 96,66,97,100,32,83,181,99 
420 DATA 116,111,114,115,224,2,225,2 
430 DATA 133,6 


CHECKSUM DATA 
(See pgs. 7-10) 

108 DATA 347,105,821,83,280,726,842,13 
4,963,782,486,970,524,825,266,8154 
270 DATA 5,7,697,221,975,239,813,55,76 
1,548,9,748,798,505,21,6402 
420 DATA 948,740,1688 


Assembly listing. 


BUtP - Bad Disk Reciainer Progran 

Written by Charles Bachand 

This progran patches itself into 
ATARI‘'s DOS 2.0S to alioM for the 
fomatting of physically dwaged 
and previously unuseable diskettes 

Note: 

This progran will not allow 
the fomatting of a disk 
with danaged disk boot sectors, 
or damaged directory sec tews. 
Sorry. 


t 

J 

VTC 

Systeffl 

Equates 

$45 

;direct«'y''s VTOC pointer 

BAD 

= 

$47 

;bad sector buffer pointer 

URTDIR 

= 

$1071 

jirite directory sector 

WRVTC 

= 

$1075 

;iirite volume table of contents 
;set no DOS 

DELDOS 

= 

$1219 

ERDBAD 

= 

*12B5 

jnomal bad disk sector exit 

DIR 


$1401 

;file directory buffer 


ORG 

LDA 

$07K 

00 

;no retry on errors 

ORG 

JW 

$8D4C 

$0052 

; bypass bad sectiH' errors 

ORG 

JSR 

$0D8E 

BDS 

;patch new errir handler 

ORG 

BNE 

JSR 

$0DA5 

$0D9F 

URTD0 

;do all but first sector 
;irite first directory sector 


Routine to nark bad sectors as toing 
in use on the disk‘'s VTK. Patched into 
the DOS at address MDSE. 



ORG 

$0600 

«)5 

LDA 

00 


STA 

BADCNT 


STA 

rospT 

BD5LP 

LDY 

BDSPT 


LDA 

(BAO),Y 


STA 

BSNUH 


INY 



LDA 

(BAD) ,Y 


STA 

BSNlfHl 


INY 



OP 

0$FF 


BNE 

BDCONT 


OP 

BSNm 


BNE 

BDCONT 


JMP 

WRVTC 

BOCONT 

STY 

BDSPT 


LDA 

00 


LDY 

03 

BSl 

ISR 

mnti 


ROR 

BSNUH 


ROR 

A 


DEY 



BNE 

BSl 


RU. 

A 


ROL 

A 


ROL 

A 


ROL 

A 


TAY 



LDA 

00 


SEC 


BS3 

ROR 

A 


DEY 



BPL 

BS3 


TAX 



LDA 

BSNUH 


ADC 

018 


TAY 



TXA 



AND 

(VTC>,Y 


BNE 

BS4 


PLA 



PLi^ 



JMP 

ERDBAD 

BS4 

TXA 



EOR 

(VTC),Y 


STA 

(VTC) ,Y 


LDY 

03 


LDA 

(VTC),Y 


SEC 



SBC 

01 


STA 

INC 

(VTO.Y 

BADCNT 


JMP 

B05LP 


;we had to put it soieplace! 

initialize 
bad sector cminter 
and bad sector index 
load index 

get bad sector (low) 
stwe it for later 
increnent pointer 
get bad sector (high) 
store it too 
increnent pointer again 
end of data? 

No. not yet 
is low byte iFF? 

No. not at end yet. 

Yes. Write VTOC 
save index 
Zero accumulator 
shift sector nuidier 
3 bits to the ri^t 
through high and low bytes 
ren goes in A as XXX80660 
decreiKnt count 
Done 3 tines? No. 

Yes. rotate a left 4 
tines, so that it will 
have data in low bits 
and look like 00000X)(X 
use value as cranter 
Zero accunulatcH' 
set carry flag 
rotate carry through Acc 
decrement counter 
At Y'th position? No. 

Yes. save bit nask in X 

get byte nunber 

add offset to sector nap 

use as VTOC index 

get bit nask back 

Mwith vrrc 

Bad sector in use? No. 

YES! We are in trouble! 
pull return stack address 
and report error condition 
get bit nask again 
invert allocation bit 
and store it back in VTK 
point to free sectors 
byte in VTOC 
set carry for subtract 
decrement nunber by one 
save it out again 
increnent bad sector count 
loop back and do it again. 


If no bad sector errors, then just write 
out the first directory sector to disk. 
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H there are errors, we will put a -file 
entry into the directory telling how many 
sectors are bad and then write it to disk. 


URTD0 

LDY 

BADCNT 

;Qet bad sector count 


BEQ 

NOERRS 

;Bad sectors’ NO. 


LDX 

#18 

iYes. File name to entry 

MWFN 

LDft 

BADFN,X 

;Frais BADFN 


ORA 

#«88 

jinverse video, WOW! 


STA 

DIR+5,X 

jto directory buFFer area 


DEX 


jdecrement counter 


BPL 

MOVFN 

;Done 11 bytes’ No. 


LOA 

mi 

;mark File as locked 


STA 

DIR 

;and in use 


STY 

OlR+i 

;store bad sector count 

NOERRS 

JSR 

URTDIR 

jwrite sector to disk 


JMP 

DELDOS 

;mark disk with no DOS 

RETURN 

RTS 


jreturn aFter patching 

BADFN 

D6 

'Bad S' 

;Fi1e name used to mark 


DB 

'ectors' 

';the disk as damaged. 


DS 

2 

;bad sector number. 

BDSPT 

DS 

T 

;bad sector pointer 

BADDIT 

DS 

1 

jbad sector count 


END 

RETURtt 

;Just return aFter loading 


Swirl Demo 


10 C=0:Q=1:SETCOLOR 1,5,5:DEG 

20 KI=8e:YI=5e:GRAPHIC5 23 

30 PLOT XI,VI 

40 FOR 1=1 TO 1000 STEP 5 

50 Q=Q+1:IF Q>3.5 THEM 0=1 

60 COLOR Q:R=I/10:T=I 

70 K=R»C05CT);Y=R»SIMtTJ 

80 IF Y+YI<0 THEM 140 

90 PLOT X+KI,Y+YI 

100 X=CI+CJ/16»CO5CI+C+90) 

110 Y=CI+CJ/16»SIM(I+C+90} 

120 DRAHTO K+HI,Y+YI 
130 MEXT I 

140 5ETC0L0R 2,8,2:SETCOLOR 1,8,5 
150 SETCOLOR 0,8,8:G0SUB 210 
160 SETCOLOR 0,8,2:SETCOLOR 2,8,5 
170 SETCOLOR 1,8,8:G0SUB 218 
188 SETCOLOR 1,8,2:SETCOLOR 8,8,5 
190 SETCOLOR 2,8,8;G0SUB 210 
280 GOTO 140 

210 FOR K=1 TO 13:MEXT K:RETURM 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 977,537,75,330,279,7,362,850,4 

82,117,132,836,737,370,877,6968 

160 DATA 373,886,376,895,697,163,3390 
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THE BLACK RABBIT 

2.0 


48K Disk 


by Brian Moriarty 


Let’s face it. Backing up disks with a single drive is 
a dull and time-consuming chore. Even with a 48K 
system, ATARI DOS will make you swap at least 
three times to copy a reasonably full disk. And then 
there are those disks DOS won’t copy — boot-load 
programs, Letter Perfect files, FORTH screens, 
anything recorded with a non-DOS file structure. 

One day I got sick of disk-swapping and decided to 
write a more efficient disk backup system. I wanted 
to be able to duplicate all 720 sectors of a disk with 
no more than two read/write passes. To accomplish 
this,I had to find a way to cram 360 sectors worth of 
data into RAM at once — 46080 bytes! 

A 48K ATARI contains 49152 bytes of user 
RAM. But the first four pages (1024 bytes) are 
reserved for use by the operating system ROM 
routines. A graphics mode 0 screen anci display list 
require an additional 993 bytes. This leaves a 
maximum of 1055 bytes for the disk copier. 

The Black Rabbit fits into this cramped space with 
room to spare. Version 2.0 features simple one- 
button operation with audio/visual prompting, 
automatic formatting of the destination disk and a 
"Visible VTOC’’ (Volume Table of Contents) that 
lets you check the distribution of data on the source 
disk and monitor the progress of the copy. It "skips 
over’’ empty sectors and will not crash if it 
encounters an unreadable sector. 

Typing it in. 

Listing 1 is an ATARI BASIC program that will 
create an auto-booting image of the Black Rabbit on 
any disk. Listing 2 is the assembly-language source 
code, created with the MAC/65 Macro Assembler 
by OSS. This listing is only provided to show you 
how the program works; you do NOT have to type it 
in to use the Rabbit. 

Enter each line of the BASIC program carefully. 
Be especially careful with the DATA statements in 


lines 1000-1290. When you’re finished, LIST the 
program out to disk and use D:CHECK2 (see page 
9) to verify the accuracy of your typing. Use the 
following procedure to write your copy of Black 
Rabbit 2.0: 

1. Load the BASIC program into memory and type 
RUN. The line numbers between 1000-1290 will be 
displayed as each DATA statement is checked. If bad 
data is encountered, the program will list the line 
containing the error and stop so that you can correct 
it. Re-RUN the program until all data lines are 
thoroughly debugged. 

2. You will next be prompted to insert a blank disk 
into drive //1. Make sure this disk contains no imjxntant 
jnojj^rams or data, because it is about to be coin/detely 
erased. 

3. Press the START key. The destination disk will 
be formatted and a copy of the Black Rabbit will be 
written out to the first six sectors. An error message 
will result if the disk is write-protected or cannot be 
formatted. 

4. The prompt "Rabbit disk okay’’ means success! 
Remove the Rabbit disk from the drive, replace it 
with one of your regular DOS disks and SAVE the 
BASIC program. You can use it to make extra back¬ 
up copies of the Rabbit. 

Rabbit, Run. 

Now it’s time to test the Black Rabbit. Re-insert 
the Rabbit disk in drive #1, turn off your computer, 
let it rest for a moment and turn it back on. 

If you see "Remove cartridge; requires 48K 
RAM’’ on your screen, you forgot to remc:)ve the 
BASIC cartridge. The Black Rabbit needs every byte 
your computer can spare, and the cartridge de¬ 
selects an 8K block of RAM. So pull the cartridge 
out and power-up again. You should now he looking 
at the Rabbit’s title screen (Figure 1). 
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Figure 1 

The 18x40 dot matrix on the bottom half of the 
screen is the Rabbit’s '^Visible VTOC.” Each dot 
represents one of the 720 sectors on a standard 
ATARI disk. 

Put the disk you want to copy into drive #1 
and press the START key. The drive will begin 
spinning and you will hear the familiar beep-beep- 
beep of sectors being read into memory. As each 
sector is read, the corresponding dot in the Visible 
VTOC will change to a different character: 

□ indicates a data sector 
0 indicates an empty sector 
? indicates an unreadable sector. 

The Rabbit will beep again when his memory 
buffer is full. Remove the source disk, insert a blank 
copy disk and press START. Your copy disk will be 
formatted and the source data will be written out, 
one sector at a time. Each written sector will change 
its corresponding dot in the VTOC to an inverse dot 
character. Note that the Rabbit always uses the write- 
with-verify function of the 810 disk drive. It’s slower 
than writing without verify, but more reliable. 

The prompt *Tnsert source disk, press START” 
will re-appear at the end of the first read/write pass. 
Repeat the procedure outlined above. At the end of 
the final read/write pass, the Rabbit will offer to 
make another copy. Press START to re-run the 
Rabbit or press OPTION to boot the copy disk. 

Empty and/or unreadable source sectors do not 
take up any memory in the Rabbit’s disk buffer. So if 
the source disk has lots of empty or bad sectors, the 
Rabbit may be able to duplicate the whole thing with 
a single read/write pass. In any case, it will never take 
more than two swaps to copy an entire disk. □ 

Listing L 

lit REH i ^^BLaCKIT ^ 2KER 
120 REH * BY HORTARTV « 

133 REH 

159 REM 

160 CLR iOIM ByF$C7633:F0R I-l 
TO djRE^D BYTE:ML$fI5::CHR$CBYTE) iHIEHT 
liPOKE 752;1 


170 SUF$ f 13 :BllrS BUF$ (23 " 

BIJFS;? Tying DATA lines. 

eading Line 

160 B:i9iTOTnL::B:LI^Ezg30jRESTORE tOOO? 
TROP 259 

160 LTNEi:LINE^i9 
200 P05TTI0H 15,3;^ LIME 
210 FOR I-i TO 25;8::BT1 jRFOO BVTEjTOTP 
LuTOTnL + BYTE JBUF$CB,B3-eHR$ (BYTE) :NEXT 
I 

220 IF PEEK(1833+256^PEEKCi643OLINE T 
HEN ? **4Line ”;LINEr»«i55ing.*UEN0 
230 REOD CHECKSUM;IF CHECKSUM=TOT0L TH 
FN 160 

240 GOTO 360 

250 POKE 752.9; IF PcEKM653 <>6 THEN 36 
0 

260 ? ’*40nT0 lines verified.*':? ’'4Tnse 
rt a blank disk in Drive »1.‘* 

270 ? ”4Press 131331 to write disk.2” 

280 IF PEEK (532763 <>6 THEN 280 

269 POKE 766,l:P0KE 770.33;^? ‘UForpi^att 

ing di5k.**;K::USR(A0R(ML$35 

300 IF PEEK (7713 01 THEN ? "!S4Forwat e 

rrorH';? ”Rewove wrste-protect tab or" 

:? "replace disk.";G0T0 279 

310 ? "iMritinq data.";P0KE 7?0.87;POK 

E 776,0;8[JFFER = ODRCBUF$3 

320 FOR SECTOR::! TO 6 

330 POKE 773.5ECT0R:P0KE 773,INTC8UFFE 
R/2563 SPOKE 772,BUFFER-C255*PEEKC7733 3 
;X::USR(0DR(ML$)3 

340 BUFFERi:8UFFER+i28;MEHT SECTOR 

350 ^ "4Rabbit disk Okay.”;EHD 

360 ^ "Bad data at line □";LINE;LIST L 

INEiENO 

370 OOTO 104,76.83,228 
380 REM * M/L S>0Tft 

1900 POTO 8.6,128,4.134,4.166,0.168,14 

5.64.32.77.6.185.105.201.162.176.12.15 
6,158.133,134,166.2582 

1910 i>PT0 6,32,131,6.76,157,4,162,0,14 

2.168.2.134.126.134.131.142.68.2.232.1 
34,128,134,130,134,5130 

1920 DPTg 6,142.1,3.134,144,24.165,88. 

105.236.133.136.133.138.165.86.195.9.1 
33,137,133,136,32,77,7734 

1930 DCjT^ 6,166.162.133.134,166.6.32, I 
31,6,24,165,38/195.122.133,140,144.2,2 
30.141.230,138,298.2.10584 
1040 DPTP 239,136.162,2,158.0.166.14,1 
45,138,200.162,240.298,246.24,165,138. 
195,240,133.138,144,2,239,14151 
1050 OPTO 136.202,16,231,32,143,6,24.1 
65,138,101,123,133,133,165,137,101.126 
, 133,136,166,228,133.134,166,17330' 

1069 POTO 6,32,131,6.32,61.6.166,82,14 
1,2,3,165,123,141,18,3,165,126.141,11, 
3,32,83,228,16320 

1070 OPTO 173,3,3.16,4,166.31.203.15,1 

60.127.177.132.208.7.136.16.246.169.16 
,208,2,166,128,133.21676 

1089 DPTP 143.160.9,132,77,145.138.230 
,138,298,2,239.136.230.128.208,2.230,1 
26,165.126,201,2.208,6.25356 
1060 PPTP 165,128.201.206.240.31,185.1 
43,201,123.283,131.24,173.4.3,105.128. 
141,4,3,133,132,173.5,2338? 

1100 DPTP 3,105.0.141.5,3,133,133,201, 
183,208.156,24,165,136,181.138,133,138 
, 165,137.101.131,133.136.31266 
1110 DPTP 169,4.133.134. 156,7.32.131.6 
,32,61,8,168,144.298.32,32.56.6.166.33 
,141,2,3,32.33276 

1120 DPTP 33.223.173,3.3,201,1.240.14. 
166,72,133,134,166.7,32.131,6.32.61,5, 
240,224,32,143,35843 

1139 DPTP 6,166,87.141,2,3,155,130,141 
,10,3.165,131,141,11.3,150,0,132,77,17 
7,138,133,143,201,38312 

1140 DPTP 128,208,5,32,83.223.48,251,1 
66.142.168,0.145.138,230.138.288,2.230 
,136,230,130.208,2,230,41766 

1150 DPTP 131,165,131.201,2.203,6,155, 
130,201,206,240,30,165,143,201.128.208 
,163,24,173,4.3,105,128,45060 
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1160 DftTft 141,4,3,173.5,3,105,0,141,5, 
3,201.188,208,172,76,1,5,169,38,133,13 
4,169,7,32,47206 

1170 5>fiT0 131,6,173,31,208,281.6.240.1 
0,201,3,208,245,32,123,6,76,119,228,32 
,123,6,76,160,4,49854 

1180 DfiTft 169.0.141,4,3.169,4.141.5,3. 
96,24,165,88.105.42.133,140,165,89,105 
,0,133,141,96,52015 

1190 D0T0 169,100,141.0.218,169,170,14 

1,1.210,169,8.133,20,165,20,201,15,288 

,250,169,0,141,1.210.55028 

1200 D0T0 173,31,208,281,6,208,249,173 

,31,208,201,7,208,249,96,133,135,160,3 

3.177.134.145,140,136.16,58486 

1210 &0TCI 249,96,169,128,133,132,141,4 

,3,169,7,133,133,141,5,3,96,58,101,109 

,111,118,101,0,99,6091? 

1220 D0T0 97.114,116,114,105,100,103,1 

01,27,0,114,101,113,117,185,114,181,11 

5,0,20,24,43,8,50,33,62344 

1230 DfiTO 45,162,236,225,227,235,128,1 

78,225,226,226,233,244,128,146,142,144 

,0,98,121,0,34,114,105,97,66563 

1240 DfiTfi 110,8,45.111,114,185,97,114, 

116,121,41,110,115,101,114,116,0,51,47 

,53,50,35,37,8,180,68466 

1250 DflTO 105,115,107,12,8,112,114,181 

,115,115,0,179,180,161,178,180,0,0,0,4 

1,110,115,101,114,116,70837 

1260 O0T0 0,35,47,48,57,8,100,105,115, 

107,12,8,112,114,101,115,115,0.179,180 

,161,178,180,0,0,72893 

1270 0AT0 0,0.0,179.180,161,178,180,0, 

116,111,0,114,101,13,114,117,110,12,0, 

175,176,180,169,175,75459 

1280 DfiTft 174.0,116,111,0,98,111,111,1 

16,0,0,0,50,101,112,108,97,99,101,0,98 

,97,100,8,35,77294 

1290 DCTfl 47,48,57,6,100,105,115,107,1 
2,0,112,114,181,115,115,0,179,180,161, 
178,180,0,0,0,0.79320 




CHECKSUM DATA 
(See pgs. 7-10) 


500 DOTfl 539,353,257,477,551,89,898,13 
3,283,432,225,174,837,123,719,6096 
250 DATfi 919,811,216,854,128,274,351,7 
88,597,782.905,252,816,404,37,8126 
1010 0010 166.300,388,886,148,586,481, 
553,689,946,564,821,75,559,705,7787 
1160 00 Th 357.84.666,352,37,172,294,89 
0,262,573,939,204,656,993,6479 




Listing 2. 


0108 ; *«*««*««*«*«**«**«« 

0110 ; < Black Rabbit 2.8 « 

0120 ; «««**«**»*««*«* 9 «»*< 

0136 ; 

0146 ; Highspeed sector copier 
0156 : -for single-drive systems 
0166 ; 

0170 i by Brian Moriarty 

0186 I ANALOG Compendium l7olume 1 

8196 ; 

0266 ; OS disk handler equates 
0210 ■ 

8226 OPvNUM = $8381 
0230 DCOWD = $0302 
0246 OSTATS = $0383 
0256 DBUFLO = $6304 
0266 DBUFHl = $6305 
8276 SECTLO = $030A 


0286 

0290 

0366 

0316 

0326 

0336 

0340 

0350 

0366 

0376 

0386 

0390 

0466 

0416 

0426 

0436 

0446 

0456 

0466 

8478 

0486 

8496 

0566 

0516 

0528 

0530 

0546 

0550 

0566 

0570 

0586 

0596 

0666 

0616 

0628 

0636 

0640 

0656 

0666 

0670 

0686 

8690 

0766 

0716 

8728 

0730 

0746 

0750 

0766 

0770 

0788 

8790 

0866 

0816 

0826 

6836 

0846 

0856 

0866 

0876 

6886 

0890 

0966 

6918 

0920 

0938 

0940 

0950 

0968 

0970 

8986 

0998 

1066 

1016 

1626 

1630 

1046 


SECTHl = $030B 
DMSTAT = $02EB 
DISKIO = $E453 

; Disk handler commands 

I 

^EAO= $52 
WRITE = $57 

FORtWT = $21 
• 

; Mi sc. system equates 

dOLDST = $8244 
BOOT? = $89 
SAI,WSC = $58 
C0L0R2 = $82C6 
OLOADR = $5E 
CONSOL = $D01F 
IWtfTOP = $6A 
AUDFl = $0208 
AUDC! = $D201 
RTCLOK = $14 
ATRACT = $4D 
COLDSU = $E477 

; Internal program equates 
■ 

^TOTAL = $88 
WTOTAL = $82 
BPOIMT = $84 
PPOINT = $86 
SCREEN = $88 
yTOC= $8A 
LINE = $8C 
SAOEY = $8E 
SBYTE = $8F 
FFLAG = $98 

; Characters -for “Oisible VTOC 

DOT = $0E 

DATA = $86 
BAD = $1F 

WRITTEN = $8E 
NOTHING = $16 

n 

j Memory usage 

DIHIY = $6400 ; Ouimy buf-fer 

ORIGIN = $8488 ; Program start 
BUFFER = $0788 ; Data butter 

’ *= ORIGIN 

% 

; 6 bytes to control boot-up 

’ .BYTE $08,$86 ; # boot sects 
.BYTE 0RlGlNj(255,0RIGIN/256 
.BYTE ENTRY&255,OTRY/256 

^RY 

% 

; Init screen Iine pointer 

’ LCA «6 
TAY 

STA (0LDADR),Y ; Kill cursor 
JSR TOPLINE 

• Check tor 48K RAM 

I 

’ LDA Rf6tT0P 

CMP #$C0 ; $C8 = 48K 

BCS RABBIT ; ) OR = 48K 

; Print RAM warning 
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1858 

1868 

1878 

1888 

1898 

1188 

1118 

1128 

1138 

1148 

1158 

1168 

1178 

1188 

1198 

1288 

1218 

1228 

1238 

1246 

1258 

1266 

1278 

1288 

1298 

1388 

1318 

1328 

1338 

1348 

1358 

1368 

1378 

1388 

1398 

1488 

1418 

1428 

1438 

1448 

1458 

1468 

1478 

1488 

1498 

1588 

1518 

1528 

1538 

1548 

1558 

1568 

1578 

1588 

1598 

1688 

1618 

1628 

1638 

1648 

1658 

1666 

1678 

1688 

1698 

1788 

1718 

1728 

1738 

1748 

1758 

1768 

1778 

1788 

1798 

1888 

1818 


LOA iUARNIN68i255 
STA PPOINT 
LDA )tUARNlN6/256 
JSP MESSAGE 

Freeze 

JMP FREEZE I InFinite loop 

■ 

; ♦ Initialize R/U * 

^BBIT 


Initialize important things 


LDX te ; 
SIX C0L0R2 ; 
STX RTOTAL+1 
STX UTOTAL+l 
STX COLDST 
INX 

STX RTOTAL 
STX UTOTAL 
STX BOOT? 

STX DEWUM 
STX FFLAG 


Black 

Background 
; Clear MSB 
I Ditto 

Coldstart flag 

X = 1 

LS6 

Ditto 

Boot flag 

Drive il 

Format enable 


Setup VTOC screen pointer 


CLC 

LDA SALRiSC ; 
ADC 1239 ; 

STA SCREEN 
STA VTOC 
LDA SALWSCH 
ADC 18 
STA SCREEN+1 
STA VTOC+1 


Addr of screen 
6 lines down 


Print title 


JSR TOPLINE 
LDA 8TITLE&255 
STA PPOINT 
LDA #TITLE/256 
JSR MESSAGE 

« 

j Reset screen pointer 

’ CLC 

LDA SAWSC 

ADC #122 i X=2, Y=3 
STA LINE 
BCC DODOTS 
INC LINE+1 


; Init VTOC display matrix 

SOOOTS 
INC iJTOC 
BNE IWTRIX 
INC VTOC+1 
mTRlX 
LDX 12 
LOOPl 
LDY 18 
LEA #D0T 
L00P2 

STA (UTOC).Y 
INY 

CPY #248 
BNE L00P2 

CLP 

LDA VTOC 
ADC 8248 
STA VTOC 


1838 

1348 

1858 

1868 

1878 

1888 

1898 

1988 

1918 

1928 

1938 

1948 

1958 

1968 

1978 

1988 

1998 


BLt nUKt 

INC VTOC+1 


MORE 

DEX 

BPL LOOPl 

<«<«««<«««<*«««« 

» READ Routine « 


^B^DER 


2818 

2628 

2838 

2848 

2858 

2868 

2878 

2888 

2898 

2188 

2118 

2128 

2136 

2148 

2158 

2168 

2178 

2188 

2198 

2288 

2218 

2228 

2238 

2248 

2258 

2266 

2278 

2288 

2298 

2388 

2318 

2328 

2338 

2348 

2358 

2368 

2378 

2388 

2398 

2488 

2418 

2428 

2438 

2448 

2458 

2460 

2470 

2480 

2490 

2580 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 


Reset buffer addr pointers 
JSR REPOINT 
Update VTOC pointer 
CLC 

LDA SCREEN 
ADC RTOTAL 
STA VTOC 
LDA SCREEN+1 
ADC RTOTAL+1 
STA VTOC+1 

Print READ prompt 

LDA iRPR0t1PT4255 
STA PPOINT 
LOA iRPROMPT/256 
JSR MESSAGE 


JSR WAIT 

LDA «READ 
STA DCOWO 


START key 


Set READ mode 


* Start of READ loop » 
^LOOP 

Update sector # 

LDA RTOTAL 
STA SECTLO 
LDA RTOTAL+1 
STA SECTHI 

JSR 01SKI 0 ; 

LDA DSTATS ; 

BPL SECSTAT ; 

LDA #BAD 
BNE SHOUSTAT 


Fetch sector 
Check status 
Branch if okay 


; Check sector data for status 
% 

^ECSTAT 
LDY #$7F 
NEXTBYTE 

LDA <BPOINT),Y 
DATAID 
DEY 

BPL NEXTBYTE 
LDA UNOTHING 
BNE SHOWSTAT 
DATAID 

LOA kOATA 
SHOWSTAT 
STA SBYTE 
LDY #0 

STY ATRACT ; Attract oH 
STA (i/r(}C),Y 

; Update ^OC addr pointer 
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2680 

INC VTOC 

3388 

; Check for okay format 

2618 

M UPCOUNT 

3398 

i 

2620 

INC VTOC+1 

3480 

’ LDA DSTATS 

2638 

UPCOLNT 

3410 

CMP #1 

2648 

INC RTOTAL 

3420 

BEQ NOFORM 

2658 

ENE SECTfttX 

3430 

S 

2668 

INC RTOTAL+1 

3440 

; Print bad format warning 

2670 

4 

3450 

a 

1 

2688 

; End erf disk’ 

3468 

LDA #BA0F0RM«i255 

2698 

kcTmx 

3478 

STA PPOINT 

2700 

3488 

LDA #BA0F0RM/256 

2710 

LOA RTOTAL+1 

3490 

JSR MESSAGE 

2728 

CMP #$02 

3500 

JSR WAIT 

2738 

ENE DATACHECK 

3510 

BEQ ERASE 

2748 

LDA RTOTAL 

3528 


2758 

CMP #$D1 

3538 

^OFORM 

2768 

BEQ WRITER 

3548 

. 

2778 

? 

3558 

’ JSR REPOINT ; Reset pntrs 

2780 

; Check -for data sector 

3568 

2790 

2800 

^TACHECK 

3570 

3580 

’ LDA #WRITE 

STA DCOMfO ; WRITE coiiniand 

2818 

LDA SBYTE 

3598 

a 

y 

2820 

CMP #I)ATA 

3600 


2830 

ENE RLOOP 

3610 

; ♦ start of WRITE loop » 

2840 


3620 


2858 

; Add 128 to buffer pointers 

j 

3638 


2860 

3640 

WLOOP 

2878 

CLC 

3658 

a 

2880 

lDA obuflo 

3668 

; Update setor # 

2890 

ADC #$80 

3678 

• 

2908 

S^A OBUFLO 

3680 

LDA WTOTAL 

2918 

STA 8P01NT 

3690 

STA SECTLO 

2920 

LDA OBUFHl 

3708 

LDA WTOTALH 

2930 

ADC #0 

3718 

STA SECTHl 

2940 

STA OBUFHl 

3728 


2950 

STA BPOINT+1 

3738 

1 Get status of next read 

2960 

4 

3748 

. 

2970 

; Check i-f buffer full 

3758 

’ LDY #8 

2980 

% 

n 

3760 

STY ATRACT 

2990 

CMP #$BC ) Top of buffer'’ 

3778 

LDA (VTOO.Y 

3088 

94E RLOOP ; No; keep going 
i 

3780 

STA SBYTE 

3818 

3798 

• 

3820 


3388 

j Branch depending on status 

t 

3030 

; i WRITE Routine 

3810 

3040 


3320 

CMP #DATA 

3050 

j 

3830 

BNE SKIPSECT ; If no data 

3060 

WRITER 

3840 

• 

3070 

I 

% 

3858 

i5urite 

3080 

\ Init */T0C pointer 

4 

3368 

JSR OISKIO ; Write sector 

3090 

3878 

ail owrite 

3100 

CLC 

3880 


3110 

LDA SCREEN 

3390 

; Display write status 

3120 

ADC UTOTAL 

3900 

^kipsect 

3138 

STA '7T0C 

3910 

3148 

LDA SCREEN+1 

3920 

LDA #WRrrTEN 

3158 

ADC WTOTAL+l 

3930 

LDY #0 

3160 

STA 'vTOCtl 

3948 

STA (VTOC),Y 

3170 

4 

3958 

e 

3180 

; Print WRITE prompt 

3960 

; Update VTOC, IJTOTAL 

e 

3198 

4 

3978 

3208 

LDA #WPR(S1PT&255 

3988 

INC VTOC 

3210 

STA PPOINT 

3990 

aiE WRUP 

3228 

LDA #WPR0MPT/256 

4000 

INC 'JTOC+1 

3230 

JSR MESSAGE 

4010 

WRUP 

3240 

J 

4028 

INC WTOTAL 

3250 

JSR WAIT ; START key 

4030 

aiE WSECTMAX 

3260 

’ DEC FFLAG 

4840 

INC WTOTAL+1 

3270 

4058 

WSECTmX 

3230 

BNE NOFORM ; Skip if Pass 2 

4860 

LDA WTOTAL+1 

3298 


4078 

CMP #$02 

3308 

; Format disk 

4038 

BNE 8UFL00K 

3310 

ERASE 

4890 

LDA WTOTAL 

3320 

4108 

CMP #$01 

3330 

JSR DUMPOINT ; buffer addr 

4110 

BEQ FINISHED 

3340 

LOA #F0RmT 

4128 


3350 

STA DCdffD ; format cmnd 

4130 

; Should buffer addr be updated? 

3360 

JSR DISKIO ; Do it' 

4140 

3370 

4 
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4156 BUFLOOK 
4!(18 LDA SBYTE 

4170 C«P IDATA ; Update buFadp'> 

4180 Bt€ WLOOP ; No; next sect 

4196 ; 

4206 ; Update bufter address 
4216 ; 

ri r 

4230 LDA DBUFLO 

4246 ADC iliSe 

4256 STA DBUFLO 

42(50 LDA DBUFHI 

4278 ADC #6 

4288 STA DBUFHI 

4296 ; 

4306 ■ BuFFer Full’ 

4316 ; 

4328 FULBUF 

4338 CMP #$BC 

4348 Bt€ WLOOP 

4358 JMP READER ; Next pass 

4346 ; 

4370 ; **»***»*****««*** 

4386 ; * End routine * 

4396 ; a**************** 

4496 : 

4416 finished 

4426 LDA #CaFPLETE6255 

4436 STA PPOINT 

4448 LDA #C0MPLETE/25(5 

4456 JSR MESSAGE 

4448 DECIDE 

4476 LDA CONSOL 

4480 CMP #4 ; START press’ 

4496 BEQ RERUN 

4506 CMP #3 ; OPTION’ 

4516 BNE DECIDE 

4526 JSR LETGO 

4530 JMP COLDSV ; Cold boot 

4540 RERW 

4558 JSR LETGO 

4546 JMP RABBIT ; Re-run Rabbit 

4576 ; 

4586 ; aaaaaaaaaa******* 

4596 ; * Subroutines * 

4466 ; aaaaaaaaaaaaaaaaa 
4416 ; 

4426 ; Point to dummy buFFer 
4436 ; 

4448 OIMPOINT 
4458 LDA #DUmY4-255 

4446 STA DBUFLO 

4476 LDA #DUftr['/254 

4486 STA DBUFHI 

4490 RTS 

4786 ; 

4718 ; Point to top screen line 
4728 • 

4736 foPLINE 

4746 CLC 

4756 LDA SAi^SC 

4748 ADC #42 ; X=2, Y=1 

4776 STA LINE 

4788 LDA SFWMSC+I 

4796 ADC #6 

4888 STA LlNE+1 

4816 RTS 

4826 ; 

4836 : Beep and wait For START key 
4846 ; 

4858 l-jftlT 

4340 LDA #106 ; Freq = 100 

4870 STA AUDFl 

4880 LDA #$^ ; D <( 0 = 18 

4896 STA aUDCI 

4986 LDA #6 

4916 STA RTCLOK ; Clear count 


4926 BEEP 

4936 LDA RTCLOK 

4946 CMP #15 ; 1/4 sec 

4950 BNE BEEP 

4946 LDA #6 

4976 STA AUDCI ; Silence' 

4988 ; 

4990 ■ Check key 
5006 : 

5010 HOLDIT 
5828 LDA CONSOL 

5836 CMP #4 

5046 BNE HOLDIT ; Pressed’ 

5850 LETGO 

5046 LDA CONSOL 

5078 CMP 117 

5088 BNE LETGO ; Ti11 released 
5098 RTS 

5166 ; 

5110 ; Print text messaoes 
5126 ; 

5136 MESSAGE 

5146 STA PPOlNT+1 

5156 LDY #33 

5140 NEXTPRINT 

5170 LDA (PPOINT),Y 

5188 STA (LINE),Y 

5196 DEY 

5206 BPL NEXTPRINT 

5216 RTS 

5'?20 * 

5236 ; Set buFFer pointers 
5248 ; 

5250 REPOINT 

5246 LDA #BUFFER«(255 

5276 STA BPOINT 

5286 STA DBUFLO 

5298 LDA #BUFFER/254 

5300 STA BPOINTH 

5318 STA DBUFHI 

5320 RTS 

5336 ; 

5340 ; *a»**a«******»*«**« 

5356 ; » Message texts * 

5340 ; aaaaaaaaaaaaaaaaaaa 
5370 i 

5386 WARNING 

5398 .SB'flE "Remoue cartridge; requires 48K RAH" 
5400 ; 

5416 TITLE 

5426 .SBYTE ‘Black Rabbit 2.0 by Brian Moriarty* 
5430 : 

5440 RPROlPT 

5456 .SBYTE ‘Insert SOURCE disk, press START ‘ 
5446 ; 

5476 WPRmPT 

5486 .SBYTE ‘Insert COPY disk, press START 
5496 : 

5508 COMPLETE 

5510 .SB'YTE ‘START to re-run, OPTION to boot ‘ 
5520 ; 

5536 BADFORM 

5546 .SBYTE 'Replace bad COPY disk, press START’ 

5556 ; 

5548 .END 
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OISKTOOL REV. 3 


32K Disk 
by Tony Messina 


Disk Tool is designed to work with an ATARI 
400/800/1200 with at least 32K of memory and up 
to 4 single-density disk drives. The key is SINGLE 
density. PERCOM, RANA, MICRO¬ 
MAINFRAME and other double density drives can 
run Disk Tool, but only in the single-density mode. 
Sorry, but Disk Tool was designed and written back 
in the olden days BD (before double density), and 
would require a complete overhaul in every aspect. 

Disk Tool history. 

My need for a disk utility made its appearance 
shortly after my disk drive arrived in March, 1981. I 
was plagued with disk link errors and crashed files all 
over the place. To put it mildly, '*Boy, was I really 
mad!” It was then I decided to write a program that 
would allow me to access any sector on the disk. To 
make a long story short, I got a copy of the DOS 1 
source listing and ATARI Tech Manual. I then 
locked myself in the den and proceeded to work. 50 
gallons of coffee, two power outages and 5 billion 
phone calls to ATARI later, I emerged victorious. I 
had actually managed to READ and WRITE to a 
disk sector without using the File Management 
System (FMS) or Utility Code in DOS 1. Yaaayyi! 

When DOS 2 arrived on the scene, I converted the 
Tool. Some letter I had received prompted me to 
organize the Tool and publish it as a 2-part article in 
A.N.A.L.O.G. Computing. Response to the pro¬ 
gram and the article was outrageous. When A.N.A.¬ 
L.O.G. editor Lee Pappas mumbled something 
about a Compendium, I saw the opportunity not 
only to improve the article and documentation, but 
also the method by which I could include the most 
requested enhancements to the Tool. So here it is, 
everything you ever wanted to know about disk 
structures and Disk Tool. And away we go. . . 

Disk sector structure. 

The ATARI 810 disk drive, in conjunction with 
the File Management System (FMS), organizes data 
on a diskette into blocks called sectors. There are 


720 sectors (numbered from 0-719) on each diskette 
after it is formatted by the Disk Operating System. 
The sectors are laid out in what are known as tracks. 
There are 40 tracks per diskette, each containing 18 
sectors. To clarify the last two statements, I have my 
patented "formatted diskettes are like onions” dog 
and pony show. Next time you cut an onion in half 
(when you make onion rings, mushrooms and 
onions, etc.), lop off a hunk in the middle about 
1/4 inch wide. Now turn the onion so that the big 
round part faces you. Each individual ring of that 
onion is exactly similar to a track on the diskette. Go 
ahead, pull off the outer ring. Now, if you cut that 
ring into 18 equal pieces, each piece would repre¬ 
sent a sector. The outer ring is track 0. As you move 
inward, the next ring is track 1 and so forth until you 
reach track 39. Each track would contain 18 sectors. 
Track 0 contains sectors 0-17, track 1 has sectors 18- 
35, etc. 

Now you have an idea of how a diskette is organ¬ 
ized. Disk Tool is designed to work at the sector 
level. Although there are 720 sectors on each 
diskette, not all sectors are available to you, the user. 

You’ve just formatted a diskette. Ahhh, the feeling 
of power, 720 sectors to store all of your programs. 
You hit the A OPTION in DOS (just to see that 
magic number 719). Upon hitting RETURN, the 
number 707 appears when using DOS 2 and 709 
appears when using DOS 1. What! What happened? 
Well, it’s quite simple, friends. Although there are 
720 sectors, only 707 are available for your use with 
DOS 2 and 709 sectors with DOS 1. The other 
sectors are reserved for use by DOS. The disk direc¬ 
tory steals 8 sectors starting at sector 361 and 
running to 368. One sector (360) is allocated for the 
VTOC (Volume Table of Contents, pronounced 
"Vee-Talk”). The boot portion of FMS also 
occupies 3 sectors (1,2,3) for DOS 2, only 1 sector 
for DOS 1. That’s what happened to your 12 missing 
sectors for DOS 2 and 10 missing sectors for DOS 1, 
so don’t be alarmed. 
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With that out of the way, it’s time to discuss the 
different types of sectors. Yes, I know it sounds con¬ 
fusing. . . after all, isn’t a sector a sector? The answer 
is yes. Each sector is capable of holding 128 bytes of 
data. The manner in which the data is structured on a 
sector is dependent on a particular sector’s purpose 
or type. I like to define sectors as being of 4 types: 

1. )Data Sector: Containing program 
information, text files, etc. 

2. ) Boot Sector: Containing ML program 
data. 

3. ) Directory Sector: Containing program 
names and associated data. 

4. )VTOC Sector: Sector containing free 
count and disk bit map. 

Let’s take a look at the differences and similarities 
of each type of sector. 

Data sectors* 

This is the most common type of sector on your 
disk. Technically, all the sectors are data sectors. I 
use this name only to distinguish its format from 
other types of sectors. 

Whenever you use the commands SAVE 
’’DiXXX”, LIST ^^D:XXX” or invoke the Binary 
Save option from DOS, the actual programs are 
written to the disk in data sector format. The format 
is quite simple. Bytes 0-124 contain actual program 
data. Bytes 125-127 contain sector identity data or 
*dink data.” Figure 1 illustrates this type of format. 


Notice that the lower two bits of byte 125 and all 
of byte 126 combined point to the next physical 
sector of this file. A zero (0) indicates that this is the 
last sector of a file. 

One variation in data sector format occurs when 
the Binary Save option is used to save an area of 
memory to the disk. The variation occurs with the 
first 6 bytes of the first sector of the binary file. 
Those 6 bytes are commonly referred to as the 
^binary file header.” The header is formatted as per 
Figure 4. 


Byte ^ 

1 

2 

3 

4 

5 



LSB 

MSB 

LSB 

MSB 

FF 

FF 

Start 

Start 

End 

End 



addr 

addr 

addr 

addr 


Figure 4. 

If, for example, you answer the Binary Save Prompt 
DOS with ”MLPROG,0600,065F,” then the first 6 
bytes of the first sector of disk storage for this pro¬ 
gram would look like Figure 5* 


Byte Q 

1 

2 

3 

4 

5 

FF 

FF 

00 

06 

5F 

06 


Binary file Start addr End addr 

definition bytes LSB/MSB LSM/MSB 

Figure 5* 

Binary program save example. 


0 


124 125 127 


125 Bytes of Program Data 


Link 

Data 


Figure 1. 

Data Sector Format. 

The link data for DOS 2 is formatted as in Figure 
2, while link data for DOS 1 is as per Figure 3. 

Byte 125 Byte 126 Byte 127 

File // ^ ^ I ^ n I ! n I // of actual program 

this sector |l |ol7|/ib|4| "ih’lllol bytes (0-7D) in 

belongs to _ \ \ m I I I I I I I I _ this sector 

10 Bits 

Next sector of this file 

Figure 2. 

DOS 2 link structure. 


Byte 125 Byte 126 Byte 127 


File // 1 1 

this sector |l |0 

7 

6 

5 

4 

3 

2 

1 

0 

Sector Sequence 
number 

belongs to | | 





_ 




0-X* 


10 Bits 


Next sector of this file 

*The first sector of a file contains 0, the second 1 etc... the last sector of 
a file is unique however. The value in Byte 127 will contain (# of actual 
bytes used + 1) + $80 for the last sector of a file. 

Figure 3. 

DOS 1 link structure. 


Directory sectors. 

There are 8 directory sectors starting at sector 361 
and running sequentially to sector 368. The 
directory contains the names of all the programs on 
the diskette along with the other information about 
the program. Each directory entry uses 16 Bytes. 
There is enough room to hold 8 program names (and 
associated data) on 1 sector. (16 Bytes * 8 names 4- 
128 Bytes or 1 sector.) Therefore with 8 sectors 
available, we can have (8 sectors *8 names per sec¬ 
tor) = 64 possible file names total. On a directory 
read, DOS starts at sector 361 and keeps reading 
sectors until there are no more names. Directory 
entries have the following format: 



Figure 6. 
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NOTE: Bits set (+1) indicate condition listed. 

Bit 6 set indicates the file is in use. 

Bits can be combined for multiple status. 

Example: Bits 1,5 and 6 set would mean file was 
created by DOS 2, it is locked and in use. 

Here is a quick reference to the possible status 
values. 

$00=File is never used. 

$01=File open for output. 

$02=File created by DOS 2 (if bit not set, 

assume DOS 1). 

$20=File locked. 

$40=File in use. 

$80=Entry deleted. 

How does DOS use the information we have dis¬ 
cussed so far? In simple terms, when you type LOAD 
'*D:XXX” in BASIC, the FMS opens the directory 
for input, reads in the directory sectors starting at 
sector 361 and searches for a match. It it finds an 
entry that matches the program name you asked for, 
FMS extracts the starting sector from bytes 3 and 4 
of the entry and also the length from bytes 1 and 2. 
FMS then positions the read/write head of the disk 
drive at that sector, reads in the sector, extracts the 
link information (to find the next sector) and checks 
to see if this sector actually belongs to the file you 
wanted. If it does, then FMS checks to see if this is 
the last sector to load. (Remember, the next sector to 
load is in the link bytes.) FMS keeps loading until the 
next sector to load is 0. 

If, during this process, the file number of the 
sector just loaded does not match the one you are 
looking for, a file number mismatch error (#164) 
occurs. This usually means that either the disk link 
information of the previous sector was incorrect, or 
possibly the link data of the current sector is 
incorrect. We’ll discuss how to fix this later. 

Boot sectors. 

I use the term '*boot sector format” when referr¬ 
ing to files which start at sector 1 and run 
contiguously to sector X, where sector X is the 
ending sector. These files do not need any language 
cartridges or DOS. They are completely self- 
contained programs which load and execute upon 
powering up the computer. Do not confuse these 
with AUTORUN.SYS files. 

Remember the header bytes for binary files saved 
using the Binary Save Option of DOS? Well, boot 
sectors have a similar structure. Sector 1 of the disk 
contains the magic header information which is 
structured as per Figure 7. 


0 by 
tradition 

// of 

sectors 

to load 

LSB 

Load 

addr 

MSB 

Load 

addr 

LSB 

Init addr 

MSB 

Init addr 


Boot sector header (sector 1) 


Figure 7. 


Whenever you turn on your computer, a check is 
made to verify if any cartridges are present. If a car¬ 
tridge is present, the ” Allow Disk Boot Bit” (BitO of 
location $BFFD) is checked. If it is zero (as it would 
be if no cartridge were present) then the ROM boot 
routine is invoked. This routine goes out to sector 1 
of the disk, reads in the data contained there and 
interprets it. Byte 1 tells the system how many 
sectors to read. Bytes 2 and 3 tell the system where to 
load the data, and bytes 4 and 5 tell the system where 
to start executing the ML program once it is loaded. 

Boot sectors do not have any link data. 
Consequently, each boot-type sector can contain 
128 bytes of program information. I said ”can” 
because the last sector may he a short sector con¬ 
taining less than 128 bytes. The FMS for DOS 2 
contains 3 boot sectors worth of program data, while 
the FMS for DOS 1 has only 1 boot sector. 

VTOC sector structure. 

Sector 360 contains the VTOC or Volume Table 
of Contents. The purpose of the VTOC is to keep 
track of which sectors on the disk are or are not being 
used. 

There are basically two important parts of the 
VTOC: the miscellaneous portion (bytes 0-4) and 
the sector use map (also called sector bit map). Bytes 
0-4 are used as follows: 

Byte 0=^Use byte (2 for DOS 2, 1 for DOS 

1 ). 

Bytes 1 &L 2=Total # of sectors (LO/HI 
format). 

Bytes 3 & 4=Free sector count (LO/HI 
format). 

The sector use map begins at byte $0 A and runs to 
byte $63. Each bit of each byte represents one sector 
on the disk. If the bit is zero, then that sector is being 
used. If the bit is 1, then that sector is available for 
free. Bit 7 of byte $0A represents sector 0, which 
does not exist (see experiment 5 for explanation). Bit 
6 of byte $0A represents sector 1, etc., all the way 
down to bit 1 of byte $63 which represents sector 
719. Use Disk Tool to examine the maps of your 
own diskettes. 

Well, that about wraps up our discussion on disk 
data structures. I realize I’ve clobbered you with 
many new concepts and material. The best way to 
digest this information is to use the Disk Tool 
experiments which follow. 

Disk Tool structure. 

You may have noticed that Disk Tool consists of 3 
programs: an AUTORUN.SYS creator program, a 
machine language loader and the actual BASIC code. 
Why 3? Well, the original intent was to make Disk 
Tool fit into a 16K disk system. That was when the 
Tool was small. Now it’s so huge that it won’t all fit, 
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so I kept it at three programs. Disk Tool sets itself up 
as follows: 

1. ) Protect 3000 bytes of low end memory 
and disable the break key (via AUTORUN. 
SYS); 

2. ) Load the ML portion of Disk Tool into 
the protected area, and load the Disk Tool 
BASIC program; 

3. ) Execute Disk Tool from BASIC. 

Since I believe it is more important to know how 
to use this utility, I won’t get into a long-winded 
dissertation about how it works (as 1 haven’t been 
long-winded already in this article). If you study the 
listings along with the documentation, you should be 
able to get a very good understanding of what is going 
on. 

Warnings* 

Disk Tool will happily allow you to wipe out your 
directory, the VTOC, DOS boot sectors or any 
other sector on your disk. It will ask you to verify 
prior to writing, but once a sector has been written, it 
may be too late. You don’t need to be an advanced 
systems programmer to use Disk Tool — only a 
careful programmer. It is suggested that you read the 
descriptions of each function as presented, and then 
perform all of the experiments in order to become 
familiar with Disk Tool and its capabilities. 

OK, warnings are behind us. Let’s move on. 

Getting things together. 

The first thing to do is to get a new diskette, format 
it and write out DOS 2 to the diskette. Type the list¬ 
ings in order from program 1 to 3. SAVE the three 
programs to your new disk. Suggested filenames 
follow: 

1. ) AUTORUN.SYS maker-MAK- 
AUTO.UTL 

2. ) ML loader-DSKTOOL.PTl 

3. ) Disk Tool BASIC-DSKTOOL.PT2 
These are only suggestions. If you decide to 

rename the BASIC Disk Tool portion, you must 
change the RUN command in the ML Loader so that 
you don’t get a file not found error. Run the AUTO¬ 
RUN.SYS maker first so it can create the AUTO¬ 
RUN.SYS file. Power down, power up with the same 
disk and type RUN ^'D:DSKTOOL.PTl.” 

A note on typing. 

The program listings for Disk Tool are fairly large 
(that’s an understatement). Suffice it to say if any 
data is missing or erroneously typed in, the Tool will 
not work correctly. I suggest that you purchase the 
disk version of this Coml^endiwn. You’ll not only 
save yourself hours of typing, but you will be assured 
that all programs will work correctly. I have spent 
over 200 hours debugging, testing and ensuring that 
the listings presented here are exact duplicates of my 
working copy of Disk Tool. It really does work! And 
now back to our regularly scheduled Disk Tool. 


Using Disk Tool (finally!). 

I know everyone has Disk Tool running. (Those 
of you who don’t keep trying.) The first thing you 
will see is the Command Menu and a 'UOMMAND 
OR SECTOR NUMBER” prompt. To examine any 
sector, just type in the number and hit RETURN. 
Only sectors 1-720 can be examined. Any number 
< 1 or > 720 will generate an error message. Sector 
numbers can be entered in either decimal or hex (if 
preceded by a $). Let’s try it out. Put in any of your 
program diskettes. 

Experiment #1: 

Look at Directory Sector. 

Answer the prompt with 361 and hit RETURN. 
You will see the first sector of the directory. Com¬ 
pare each entry with the format of Figure 5. Once 
you feel comfortable with the format of the direc¬ 
tory, move on to the next experiment. 

Experiment #2: 

Look at Formatted Directory Output 
with ^^D” Command. 

Answer the COMMAND OR SECTOR 
NUMBER prompt with a D and hit RETURN. A 
formatted display should appear. All numbers 
appear in hex notation. This option displays 2 
sectors worth of directory data (16 program names). 
The sector number is the actual sector at which that 
directory entry resides. FILENAME is self- 
explanatory. START is the first disk sector which 
contains data pertaining to that program. LEN is the 
length or number of sectors that file contains. FIL# is 
the entry number in the directory for that file; and 
STAT is the file status in human readable form 
where: 

'^=File locked. 

U= in use. 

D=File has been deleted. 

l = File created by DOS 1. 

2=created by DOS 2. 

To examine more directory sectors, hit and 
press RETURN. The new sectors will appear. To 
abort the directory format, just hit RETURN and 
our friend '^COMMAND OR SECTOR 
NUMBER” will appear. 

Experiment #3: 

Trace/Examine a File. 

Now find a file you want to examine from the 
directory listing. (Try one other than DOS.SYS or 
DUP.SYS.) Find the start sector number for that file 
under the START column. Since the start number is 
in hex, type $ followed by the number. You don’t 
need to type in leading zeros. If the start number was 
OOBF, then type $BF, for OICD type $1CD, etc. 
Then hit RETURN. The sector will appear in 
HEX/ATASCII format along with the sector num¬ 
ber, next sector and file information. SECTOR 
NUMBER indicates the current sector number being 
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displayed. NEXT SECTOR points to the next sector 
containing data for this file. FILE NUK4BER is the 
file number to which this sector belongs. The next 
sector does not have to be the current sector number 
+ 1 (more on this later). 

When you’re ready to look at the next sector, you 
can enter the number and hit RETURN. If the next 
sector happens to be the current sector -hi, just hit 
RETURN or and RETURN. If you want to 
look at the current sector'1, type '*-”and RETURN. 
Trace your file, examining the format of the data, etc. 
Remember Figure 1. Try to look at all types of files: 
Binary, SAVE files, ASCII files, etc., and compare 
these with the appropriate figures. When you hit the 
end of a file, you’ll see that the next sector pointer 
will equal zero. 

Experiment #4: 

Change Bytes with ^’C” Command. 

Call up sector 720 on the disk. If it is all zeroes 
then you can use it. If it isn’t, type and hit 
RETURN until a sector is displayed with all zeros. 
At the prompt COMMAND OR SECTOR 
NUMBER, type in C and hit RETURN. The screen 
should change to yellow and a prompt should 
appear. Move the cursor (CTRL up, down, left, 
right, arrow, etc.) to the 1st hex value in byte 00 line. 
Replace the 00 values with the following: 

44 49 53 4B 54 4F 4F 4C 

Then hit RETURN. Make sure you overwrite each 
value of 00 and space between each byte. If you have 
done everything correctly, you should see a '"secret 
message.” 

The C function only changes memory locations. 
Nothing has been written to the disk. You can only 
change one display line at a time. RETURN must he 
hit after your line changes are satisfactory. If you 
wish to change more data on the sector, simply hit C 
again, make your change, hit RETURN, etc. 

Experiment #4A: 

Change Bytes (ATASCII method). 

Follow the procedure in Experiment #4. To 
change bytes, move the cursor over to the hex para^ 
meter to change. Hit the space bar to blank out the 
first parameter of the hex number. Now type the 
ATASCII letter or number you want. Continue with 
the rest of the line, always remembering to precede 
the character you want with a space. Hit return and 
check your work. 

Experiment #5: 

Writing to Disk with '"W” Command. 

As I mentioned previously, writing to the disk can 
be dangerous. Be careful! Sector 720 should be safe. 
Why? Well, there is a bug in DOS. DOS can only 
handle sector numbers from 0 to 719. The disk 
drive, however, will only accept commands for 


sectors U720. Some software developers have taken 
advantage of this useful quirk to protect their disks. 
So don’t write to 720 if something was there. If all 
was OK and you did Experiment #4, hit RETURN. 
Now type W and hit RETURN again. The screen 
will turn red and a verify prompt will appear. Answer 
Y to the prompt if you are sure you want to write to 
the disk. When the write is complete, the screen will 
turn green again and we’re back to the COMMAND 
OR SECTOR NUMBER prompt. Recall sector 720 
just to check what was written. 

Experiment #6: 

Trace File with Command. 

Now that you’ve traced a file the hard way (if you 
didn’t do Experiment #3, then shame on you), we’ll 
do it using the T command. Call up the directory and 
pick a file (any file). Note the file number in the FIL# 
column. Hit T and RETURN. Enter the selected file 
number (hex or decimal) and hit RETURN. The 
computer should be busily grinding away, spewing 
out hexidecimal numbers along with the filename 
and start sector. When done, the word END should 
appear. This function shows you exactly which 
sectors on the disk the file you selected occupies. 

Trace will scream if it encounters any file number 
mismatch errors or short file errors. A short file 
error means that the length of the file in the direc¬ 
tory does not match the number of sectors traced. If 
this happens for every file you trace, then a possible 
typing error exists in the ML Loader portion of Disk 
Tool. 

Experiment #7: 

Set Drive Number with ’’S” Command. 

This straightforward command was a heavily re¬ 
quested addition to Disk Tool. At the COMMAND 
OR SECTOR NUMBER prompt, type ”S” and hit 
RETURN. The current working drive number will 
appear as well as a prompt for the new drive number. 
Drive numbers 1-4 will be accepted and processed; 
anything else will produce a RAZZ and an error 
message. If you change to a drive that does not exist, 
trying to execute a command will again cause the 
infamous RAZZ/error message combination. 

Experiment #8: 

Print Screen with 'T” Command. 

Another straightforward command. If you don’t 
have a printer, you may skip to the next experiment. 
If you do have a printer, then pick a screen which you 
would like a hard copy of and answer the 
COMMAND OR SECTOR NUMBER prompt 
with a "P” and RETURN. The message PRINTING 
SCREEN will appear and the screen will be dumped. 
If you fail to turn on your printer or interface, you 
will obtain an error message. 

You cannot print the HELP screen as the dump 
routine is only set up to dump Graphics 0. If you try 
to dump the HELP screen, you will get an IM¬ 
PROPER SCREEN CONDITION error message. 
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Experiment #9: 

Modify links with Command. 

The modify links command is very powerful and 
one should exercise EXTREME CAUTION in its 
use. Improper use could cause you to destroy the 
integrity of a file or files and is guaranteed to make 
you exclaim that famous all-American expression 
''Awww Jeepers!” if used incorrectly. Since you 
have your experiment disk loaded, it won’t matter if 
we mess up a file and then fix it using the Tool. 

Find a nice, long file on your experiment disk by 
scanning the directory. Aha!, there’s one. OK, go to 
the starting sector of the file (indicated under the 
START column). Manually trace the file for about 4 
or 5 sectors and stop. REMEMBER this sector 
number. Answer the COMMAND OR SECTOR 
NUMBER prompt with M and RETURN. When 
the next prompt appears, type in the sector number 
which you remembered. The sector will be read in 
and the file number and next sector will be displayed. 
A prompt asking you for the new file number will 
appear. Type in a number other than what is dis¬ 
played but REMEMBER the old file number. 
Another prompt will appear asking you for the new 
next sector pointer. Type in a number which is 1 
more than the number being displayed but REMEM¬ 
BER the old number. Boy, we really messed up this 
file, huh? 

A message indicating the new links and a prompt 
to write the sector to the disk if correct will appear. 
We will now destroy your disk! No, only kidding. 
Hit W and RETURN. The screen will turn RED and 
the verify prompts will appear. Answer Y and write 
out the sector. Now, if you still remember the file 
number, hit T and RETURN. Enter the file number 
at the prompt and watch Trace in action. You should 
get an error message which indicates a FILE MIS¬ 
MATCH ERROR AT SECTOR $XXX where X is 
the sector number of the sector which you clob¬ 
bered. If you didn’t, then you probably typed in the 
wrong file number. OK. Let’s fix the error. 

Experiment #9A: 

Fix error from last experiment. 

Hit M and RETURN and recall the sector you 
clobbered. Change the file number back to what it 
was. Do NOT fix the next sector number yet. Type in 
the same number when prompted for the new sector 
pointer. After all the messages come up, write this 
sector back out again. Trace the same file. Every¬ 
thing will seem to be fine until the trace realizes that 
there are some sectors (1 sector in our case) missing. 
Trace will tell you how many sectors there should be 
as well as how many it found. The number of 
''should be” sectors minus the number of "found” 
sectors should equal the number of missing sectors. 
Fix the error by recalling that same messed-up sector 
and replacing the next sector pointer with the origi¬ 
nal value. Write it back out and re-trace. 


Experiment #10: 

Recover a deleted file with Command. 

Recovering a deleted file is no simple task using 
manual methods. This was the most requested func¬ 
tion to be added to Disk Tool, so here are the steps. 

Find a deleted file entry by scanning the directory. 
Answer the COMMAND OR SECTOR NUMBER 
prompt with R and RETURN. Answer the next 
prompt with the file number (hex or decimal) you 
want to recover and hit RETURN. Disk Tool will 
now be busy recovering the file. It will keep you in¬ 
formed with messages as it proceeds. Soon you will 
see the FILENAME.EXT RECOVERED message. 
Magic, huh? Now, before you go scrambling for 
those diskettes with deleted files, I must say that 
there are certain file conditions which must exist or 
RECOVER will not work — as a matter of fact, 
NOTHING will work! Let me explain. 

Recover file restrictions. 

In order for a file to be recovered, it cannot have 
any sectors which have been written on by other 
saves. When a file is deleted, DOS sets the file 
deleted flag in the file status byte of the directory 
sector where the name resides. It then traces that file 
to obtain the sector numbers which that file occu¬ 
pied. DOS sets the bits in the VTOC bit map, thus 
marking the sectors occupied by the file being 
deleted as now being available. On any subsequent 
saves to the disk, DOS first searches for an empty file 
entry in the directory sectors and places the new 
name and file status in that slot. DOS then examines 
the VTOC bit map searching for sectors which can 
be allocated to the new file being saved. If the sectors 
that it finds available are the same sectors belonging 
to a previously deleted file, DOS doesn’t care and the 
data belonging to the new file will overlay the deleted 
filed data. Once this is done, there is no way that the 
deleted file can be recovered. 

Now that the explanation is out of the way (did it 
make any sense?), let me just say that the recover 
function of Disk Tool makes extensive checks for file 
integrity, proper link structure and available sectors. 
If anything in the file being recovered is goofy, the 
message FILENAME.EXT CANNOT BE RE¬ 
COVERED, along with the appropriate reason will 
be displayed. The recover function will work with 
both DOS 1 and DOS 2 files, so that some of those 
oldies but goodies can possibly be rescued from obli¬ 
vion. 

The listings. 

Listing 1 — contains the data statements 
needed to create the AUTORUN.SYS file for 
Disk Tool. 

Listing 2 — is the assembly language source 
code listing for the AUTORUN.SYS file. This 
does NOT need to be typed in for Disk Tool to 
work. The AUTORUN.SYS creator (Listing 
1) will create the appropriate file. Listing 2 is 
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there for reference only. This should give you a 
pretty good idea of how to reserve some low^ 
end memory, and also how to disable the break 
key prior to BASIC gaining control of the 
system. 

Listing 3 — is the ML loader program for 
Disk Tool. This program loads in all of the 
machine language instructions needed by the 
Disk Tool BASIC program. 

Listing 4 — (the huge one!) is the assembly 
language source code for Disk Tool utility. In it, 
you will find how to put a character on the 
screen, how to convert binary numbers to hex 
and hex to binary, how to display messages on 
the screen, how to go crazy trying to read an 
assembly listing and other common routines. I 
must say that this code is not the most efficient. 
Things can be done to improve it, so feel free. I 
will be glad to answer any questions or 
comments about it. My address is at the top of 
the listing (please send a SASE if you write). 

Listing 5 — is the Disk Tool BASIC code. I 
have completely overhauled the code and 
commented it like a maniac. The documenta^ 
tion following Listing 5 gives all the addresses, 
label names and a complete cross-reference to 
the BASIC code. There is also a memory map 
which is valid only after Disk Tool has been 
loaded. 


pointer to the missing sector and write out the sector 
using the W command. 

This sounds like an involved process, and in some 
extreme cases it may be, but it sure beats retyping the 
original file. 

Other uses. 

CHANGING HEADER BYTES ON ML OB¬ 
JECT FILES: You have a relocatable ML file which 
you assembled on page 6. You now want to move it 
someplace else. The old procedure would be to load 
in the assembler, load in the source file, change the 
origin of the file, re-assemble, save the object code. 
Bah-Humbug to that. With Disk Tool simply call up 
the directory and find the start of the object file. Call 
up that sector and change the header information as 
per Figure 4. Re-write the sector and your file will 
now be loaded at the new address. 

The uses for Disk Tool are left to your imagina¬ 
tion. It’s saved me a lot of time by allowing me direct 
access to the disk sectors and the information on 
them. I’ve patched ML programs directly, added 
code and allocated new sectors for that code, 
changed file names that refused to be changed by 
DOS and recovered many valuable files that were 
crashed. Let your imagination run wild. □ 


Listing 1. 


Hints on using Disk Tool. 

In these modern times, with DOS 2 being avail¬ 
able and all that, it is very rare to come up with link 
errors and crashed files. Some errors occur, how¬ 
ever, when you try to copy DOS 1 files using DOS 2, 
or you may e-'en run across an old program by some 
obscure out-of-business company that is loaded with 
crashed sectors (probably why they are out of busi¬ 
ness). Whatever the reason, if you have run into 
Error 164 here is one procedure to follow. 

1. Isolate the file causing the problem. It this 
isn’t obvious, call up the directory and trace each file 
(using the T function) until the culprit is caught. 
Dump the trace to the printer. 

2. Remember the file number. Go to the sector 
previous to the one in error. This is where some 
detective skills will pay off. Examine the sectors 
from your current location to current sector +10, 
noting which file they belong to. You will probably 
find your missing sector within this range. I have not 
failed yet. This usually works on diskettes that have 
not had too much disk activity; i.e., a lot of file dele¬ 
tions and new file saves. If you run into a toughy, 
don’t give up! You WILL find your missing sector. 

3. Once found, note the sector number and the 
next sector number. Manually trace it to verify the 
integrity of the file. 

4. Call up the original sector which had the incor¬ 
rect pointer using the M command. Change the 


10 

15 

20 

25 

30 

35 

40 

45 

50 


GR0PMIC52±16 


He;* 

It6;' 

tie;' 

tie;' 

tt6;' 

ner 

tt6;' 

tt6; 


ANALOG 400/800 S'* 
y *' 
:: 


D5KT00L.RU3 
autorun.sgs 


"■CREATOR PROG 
■Jlfor dosliil 
+ + + ■!■ ++ + + + + + ++ + + + + + 




hit any key to":? US;" ere 
ate AUTORlIH.SYS":^ tt6;" file" 

60 OPEN 
65 GET lll,A 
70 CLOSE «1 
75 ? tt6;" 

80 OPEN ttl,8,0,"D;AUT0RIJN.SY5" 

85 PUT ltl,255:REN HEADER $FF 

SO PUT 111,255: REN HEADER $FF 

100 PUT «tl,0:REM LOAD START LSB $00 

105 PUT ttl,6:REM LOAD START MSB $06 

110 PUT m,74:REN LOAD END LSB $4A 

115 PUT lll,6:REN LOAD END MSB $06 

120 READ A:IF AzSSS THEN GOTO 140 

123 REM N* NOM PUT OUT REST OF PROG ** 

125 PUT 111, A 

130 GOTO 120 

140 CLOSE nx 

160 POSITION 3,10;? »6;" FILE WRITTEN" 
170 GOTO 170 


1000 DATA 
, 2.173 
1002 DATA 
,133 
1004 
2 

1006 
1008 
,2 

1010 
,76 
1012 


DATA 

DATA 

DATA 

DATA 


DATA 


16,141 


24,173,231,2,105,184,141,231 

232,2,105,11,141,232,2,169,0 

8,32,27,6,76,0,160,120,173,2 

2,141,60,6,173,23,2,141,61,6 

169,52,141,22,2,169,6,141,23 

88,96,72,173,14,210,16,4,104 

59,6,169,127,141,14,210,165, 
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1014 DATA 14,210,104,64,0,226,2 
1016 DATA 227,2,0,6,224,2,225,2,0,6 
1018 DATA 333 
1020 REN 

1022 REN * END AUTORUN.5Y5* 

1024 REN * LOADER PROG « 

1026 REN MMXMKICIIMICICMKMICMI t l He 


INOM PUT OUR IRQ HANDLER ADDRESS **• 
!*•« INTO THE SYSTEM VECTOR LOCATION 
I 

LDA »L,OURIRQ I GET AD 

8TA VMIRQ I STORE 

LDA tlH.QURIRQ I GET AD 

3TA VMIRQi-l » STORE 

CLI I NOW AL 

RTS I AND RE 

I 


CHECKSUM DATA 
(See pgs. 7-10) 


le DATA 442,342,782,4,723,347,422,348, 

971,480,388,584,332,40,762,6887 

98 DATA 749,325,357,489,116,197,986,59 

4,698,647,891,725,587,482,235,7918 

1886 DATA 54,497,359,628,586,782,885,7 

89,726,285,801,6312 


Listing 2. 


AUTORUN.SYS SOURCE CODE 
FOR D8KTOOL UTILITY RV3 
by: TONY MESSINA 
48 DUDLEY AVE 
NEHPORT.Rl 02840 


THIS FILE RESERVES 3000 
BYTES OF RAM BY MOVING THE 
MEMLO POINTER UP BEFORE 
THE BASIC OR ASSEMBLER CART 
GETS CONTROL OF THE SYSTEM. 


THIS CODE ALSO DISABLES THE 
BREAK KEY TO PREVENT ANY 
POSSIBLE USER ERRORS FROM 
HAPPENING. 


PROGRAM BASED ON IDEAS 
PRESENTED IN DE RE ATARI 
P89 a-ll L 8-13 


• EQUATES • 


0140 

MEMLOL 

. DE 

• 02E7 

1 LO BYTE MEMLO 

014S 

MEMLOH 

. DE 

«02Ee 

1 HI BYTE MEMLO 

01S0 

WARMST 

. DE 

40008 

1 MAR8TART FLAG 

0133 

CARVEC 

. DE 

4A000 

1 CART START VECTOR 

0160 

8AVBYT 

. DI 

3000 

» • OF BYTES TO RESE 

0163 

POKMSK 

. DE 

40010 

f POKEY IRQ MASK 

0170 

IRQEN 

. DE 

4D20E 

1 IRQ ENABLE BITS 

0173 

IRQST 

. DE 

IRQEN 

1 IRQ STATUS 

0180 

VMIRQ 

. DE 

40216 

1 SYSTEM IRQ VECTOR 

0183 

1 




0 190 


**♦ 



0193 

« * CONTROL 

« 



0200 


•*»* 



0203 


. BA 

40600 

1 ORIGIN 40600 

0210 


. L8 


1 GIMME LISTING 

0213 


. OS 


1 OBJ CODE TO MEM 

0220 

1 




0223 


«»• 



0230 

1« PROGRAM 

1 • 



0233 


• »* 



0240 

f*«*» RESERVE 3000 BYTES **** 


0245 

1 




0230 

STRES 

CLC 


» CLEAR FOR ADD 

0233 


LDA 

MEMLOL 

1 GET CURRENT MEMLO 

0260 


ADC 

#L,SAVBYT 

1 ADD 3000 LO 

0263 


STA 

MEMLOL 

I STORE 

0270 


LDA 

MEMLOH 

» GET CURRENT MEMLO 


0273 


ADC 

•H,SAVBYT 

1 ADD 3000 HI 


0280 


STA 

MEMLOH 

1 STORE IT 


0283 


LDA 

«00 

1 WARM3TART RESET 

0290 


STA 

♦WARMST 

1 STORE 


0293 


JSR 

3WAPEM 

1 DO BREAK KEY 

STUFF 

0300 


JMP 

CARVEC 

1 JUMP THROUGH 

CART 

0303 

1 





0310 

1 *< 





0313 

1 * 

SWAP IRQ VEC ROUTINE * 



0320 

1 • 

TO POINT TO 

OUR OWN • 



0323 

I * 

ROUTINE. WE 

WILL IG- * 




I GET ADDR LO 
I STORE AS SYS VEC 
I GET ADDR HI 
» STORE IT TOO 
I NOW ALLOW INTERUPTS 
I AND RETURN 


I* THIS IS THE ACTUAL IRQ * 
I* SERVICE ROUTINE. ALL WE * 
I* DO IS CHECK FOR A BREAK * 
|« KEY. IF BREAK IS HIT, WE * 
I* CAUSE THE SYSTEM TO JUST * 
»• IGNORE IT AND THEN RETURN* 

I 

□URIRQ PHA 

LDA IRQST 
BPL TISBRK 
PLA 

SY8IRQ JMP SY8IRQ 


I SAVE A 

t WAS THIS A BREAK?? 
i YES IT IS!! 

I NO SO PULL A 
I AND CALL SYSTEM ROUTINE 


)*•• BREAK KEY HIT 30 SQUASH *** 
tTHIS MAMA & STOP DOOM!! *** 


LDA 007F 
STA IRQST 
LDA ♦POKMSK 
STA IRQEN 
PLA 
RTI 


I WIPE BRK BIT 
I PUT IN STATUS 
I GET POKEY MASK 
I AND STUFF 
I PULL A 

I AND RETURN FROM INTERUPT 


I * END PROB 

I«••»«•»»•** 


I THE END 


Listing 3. 


10 GRAPHICS 2+16SPGKE 712,14:P0KE 709, 
102:POKE 708,202 


by" 

TOHV HESSINA' 


15 ? tie;" eaxmMiHiHiag: *- 

20 ? tt6;" yANALOG 400/8800" 

25 ^ tt6;" y presents !!" 

30 ^ tt6;" 5 u tili t o tt3 !!" 

45 ? #6;" by" 

50 ? 1*6;" TOMV MESSI NA" 

55 ? «6;" 

60 AREA=7420;REM *»ML SAVEAREA ** 

65 POKE 711,14:READ X;IF K=999 THEN PO 
KE 755,2:GOTO 75 

70 POKE 711,8:P0KE AREA,X:AREA=AREAtl: 
GOTO 65 

75 ? tt6;" loading dsktool.utl":RUN "D: 
DSKT00L.PT2" 

SD^DATA 32,83,228,48,51,173,130,29,208 

85 DATA 32,133,29,32,38,30,173,22,30,3 
2 

90 DATA 15,30,32,175,29,162,0,160,0,18 


95 DATA 253,3,32,243,29,32,222,29,32,2 

4 


NORE THE BREAK KEY. 


I*** 1ST PUT SYS IRQ IN OUR STUFF *** 


SEI 

LDA VMIRQ 
STA SYSIRQ+l 
LDA VMIRQt-l 
STA SY9IRQ-»-2 


STOP IRQ'S FOR NOW 
GET SYSTEM IRQ LO ADDR 
MODIFY JMP LO 
GET SYS IRQ HI ADDR 
MODIFY JMP HI 


100 DATA 30,32,178,29,32,31,30,200,192 
, 8 

105 DATA 240,17,232,76,25,29,140,126,2 
3 32 

110 DATA 16,32,160,0,140,22,30,104,96, 
J.42 

115 DATA 23,30,138,56,233,7,170,238,23 
, 30 

120 DATA 189,253,3,32,195,29,142,129,2 
3 32 

125 DATA 57,35,174,129,29,232,236,23,3 
0,208 

130 DATA 235,169,155,32,57,35,174,23,3 
0,224 

135 DATA 128,176,202,32,38,30,32,6,30, 

140 DATA 175,29,160,0,174,23,30,76,25, 
29 

145 DATA 0,0,0,0,0,0,0,162,0,189 
150 DATA 154,29,240,13,142,127,29,32,5 
7,35 

155 DATA 174,127,29,232,56,176,238,96, 
125,66 
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166 D6TA 
127 

165 DATA 
2 

176 D6T6 
15 

175 D6T0 
61 

186 DATA 

128.144 
185 DATA 
,4,261 
136 DATA 
173 

135 DATA 
,57 

266 DATA 

265 DATA 
4,32 

216 DATA 
6,24 

215 DATA 
222 

226 DATA 
23 

225 DATA 
63,62 
236 DATA 
04 

235 DATA 
,177,265 
246 DATA 

3.23 

245 DATA 
8,5,266 
256 DATA 
53,3 

255 DATA 

6.23 

266 DATA 
7 

265 DATA 
41,166 
276 DATA 
13 

275 DATA 
32 

286 DATA 
3,253 
285 DATA 
62,6 

236 DATA 

4.11.144 
235 DATA 
266,177 
366 DATA 
1,234,31 

365 DATA 
7,265,141 
316 DATA 
141 

315 DATA 
,141 

326 DATA 
,163 

325 DATA 
,246 

336 DATA 
,163 

335 DATA 
,3 

346 DATA 
2 

345 DATA 
,36 

356 DATA 
44 

355 DATA 
30 

366 DATA 

32 

365 DATA 

78.23 
376 DATA 
,173 

375 DATA 
,43 


83,84,63,35,127,127,72,63,88, 

127,65,84,65,83,67,73,155,0,3 

178,23,163,32,32,57,35,36,41, 

261.10.48.2.185.6.165.48.36.2 
32,144,26,261,125,144,18,201, 
12,201,155,144,10,201,166,144 
253,144,2,163,46,36,32,24,36, 

242,23,32,57,35,173,241,23,32 

35,32,31,30,36,6,0,72,74,74 

74.74.32.184.23.141.242.23.10 

184.23.141.241.23.36.173.22.3 
105,8,141,22,30,32,243,23,32, 
23,36,0,0,142,127,23,140,128, 

36.174.127.23.172.128.23.36.1 

32.57.35.163.36.32.57.35.36.1 

164.133.206.104.133.265.160.2 
32,111,30,176,24,165,8,141,12 
200,206,260,177,205,261,32,26 

177.205.208.3.32.111.30.157.2 
232,236,123,23,144,231,72,76, 
0,56,233,48,201,16,144,2,233, 

36.72.200.177.205.32.161.30.1 
30,104,32,101,36,16,16,10,16, 
100,30,36,76,52,23,32,243,23, 

222.23.36.32.83.228.48.241.16 

133.205.163.3.133.206.160.5.1 
177,205,157,221,31,200,232,22 
245,160,0,177,265,141,236,31, 

265,141,235,31,200,177,265,14 

206.177.285.141.233.31.266.17 
232,31,44,236,31,16,8,163,68, 
237,31,76,254,36,80,37,163,85 
237,31,163,32,44,236,31,240,5 

42.141.233.31.163.2.44.236.31 

8.163.50.141.238.31.76.254.36 

43.141.238.31.32.43.36.173.11 

32.47.35.173.10.3.32.136.30.3 
178,23,162,6,183,221,31,32,24 

32.57.35.32.31.36.232.224.8.1 
233,32,24,36,32,178,23,32,31, 
183,221,31,32,24,30,32,57,35, 

31.30.232.224.11.144.233.32.1 

32.43.30.173.232.31.32.136.36 

233.31.32.136.36.32.178.23.32 


386 DATA 
35,31 
385 DATA 
173 

336 DATA 
2,2 

335 DATA 
32 

466 DATA 
6,236 
405 DATA 
05,242 
416 DATA 

33.205 
415 DATA 

5.32 

420 DATA 
7,35 

425 DATA 
4 

436 DATA 

73 

435 DATA 
43,30 
446 DATA 
208,250 
445 DATA 
456 DATA 
455 DATA 
466 DATA 
465 DATA 
13 

470 DATA 
,122 

475 DATA 
4 

486 DATA 
4,104 
485 DATA 
1,113 

436 DATA 
4,133 
435 DATA 

43.31.32 
506 DATA 
160 

505 DATA 
,268,247 
516 DATA 
141,16 
515 DATA 

177.205 
520 DATA 
,3,76 
525 DATA 
,31,44 
530 DATA 
6,23 

535 DATA 
,111 

540 DATA 
0,76 

545 DATA 

3.32 

556 DATA 
33,173 
555 DATA 
566 DATA 
32,57 
565 DATA 
,16 

576 DATA 
34 

575 DATA 
,243 

586 DATA 
,246 

585 DATA 
34 

536 DATA 
3,34 

535 DATA 
,204 

606 DATA 
,43 

605 DATA 


36,173,234,31,32,136,30,173,2 

32,136,30,32,175,23,32,43,38, 

243.31.32.136.30.32.175.23.16 
183,237,31,32,24,30,32,57,35, 

31.30.163.32.157.237.31.202.1 

238.243.31.238.242.31.163.8.2 

31.240.22.165.205.24.105.16.1 

144.2.230.286.163.155.32.57.3 
204,31,76,156,30,163,155,32,5 

173.10.3.24.105.1.141.10.3.14 
3,238,11,3,162,0,142,242,31,1 

241.31.208.17.238.241.31.76.1 

162,11,163,32,157,221,31,202, 

36,266,241,31,76,63,23,0,6,0 
0 , 6 , 0 , 0 , 6 , 0 , 0 , 0 , 0,0 
0,0,32,32,32,32,32,0,9,9 

32.83.228.16.3.76.52.23.32.16 
32,76,63,23,173,132,23,42,42, 

131,23,141,122,4,76,63,23,173 

4,72,41,3,141,131,23,104,74,7 

141,132,23,36,173,254,34,240, 

76.183.32.104.104.141.11.3.14 
35,104,141,10,3,141,118,35,10 

206.104.133.205.104.104.141.2 
83,228,16,3,76,221,34,162,11, 
15,177,205,157,220,31,136,262 
177,265,141,11,3,136,177,205, 
3,136,177,265,141,235,31,136, 
141,234,31,136,173,117,35,240 
252,35,177,205,240,20,141,236 

236,31,16,28,32,212,33,142,12 
32,213,34,76,64,29,162,34,166 

32.159.33.173.243.31.32.136.3 

42.33.162.33.160.232.32.159.3 

212,33,162,33,160,239,32,159, 

11,3,32,47,35,173,10,3,32,136 

30,166,16,146,249,34,169,155, 

35,162,7,142,248,34,32,83,228 

3,76,221,34,32,16,32,238,255, 

268,3,238,0,35,173,132,29,265 

31,208,35,173,123,4,13,131,29 

81,32,199,33,32,1,35,206,248, 

16,216,169,1,141,46,35,206,24 

16.190.141.254.34.76.64.29.32 

31.162.34.160.20.32.159.33.32 

30.173.11.3.32.47.35.173.10.3 
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6ie DATA 
9,33 

615 DATA 
9,8 

620 DATA 
5,76 

625 DATA 
8,31 

639 DATA 
,255 


635 

DOTA 

,153 

640 

DATA 

47 


645 

DATA 

73,235 

656 

DATA 

6,30 

655 

DATA 

0,35 

660 

DATA 

0,162 

665 

DATA 

1,255 

670 

DATA 

23 


675 

DATA 

,34 

,140 

680 

DATA 

73, 

250 

685 

DATA 

137 

,23 

630 

DATA 

131 

,23 

635 

DATA 

6 


700 

DATA 

57 


705 

DATA 

3,36 

710 

DATA 

715 

DATA 

720 

DATA 

725 

DATA 

730 

DATA 

,32 


735 

DATA 

746 

DATA 

745 

DATA 

750 

DATA 

755 

DATA 

760 

DATA 

53 


765 

DATA 

770 

DATA 

775 

DATA 

3 


780 

DATA 

785 

DATA 

730 

DATA 

735 

DATA 

806 

DATA 

805 

DATA 

810 

DATA 

815 

DATA 

820 

DATA 

825 

DATA 

160 


830 

DATA 

32 


835 

DATA 

10 


840 

DATA 

76 


845 

DATA 

850 

DATA 

855 

DATA 

5 


860 

DATA 

131 


865 

DATA 

30 


870 

DATA 

3 


875 

DATA 

,32 



32.136.38.162.34.160.54.32.15 

169.1.141.126.29.141.46.35.16 
141,255,34,141,254,34,141,0,3 
64,29,173,234,31,77,255,34,20 
173,235,31,77,0,35,208,23,141 
34,141,0,35,162,34,160,134,32 
33,169,155,32,57,35,169,1,76, 

33.162.34.160.139.32.159.33.1 
31,32,136,30,173,234,31,32,13 

162.34.160.165.32.159.33.173, 
32,136,30,173,255,34,32,136,3 
34,160,191,32,159,33,169,0,14 
34,141,0,35,76,42,33,173,136, 
141,250,34,173,137,29,141,251 

136.29.142.137.29.32.133.29.1 
34,141,136,29,173,251,34,141, 

174.252.34.172.253.34.96.173, 
141,11,3,173,123,4,141,10,3,9 
162,0,189,221,31,32,24,30,32, 
35,32,31,30,232,224,11,144,23 

70,73,76,69,58,32,0,32,32,32 

32.32.83.84.65.82.84.32.83.69 
67,84,79,82,58,36,0,32,73,83 
32,68,69,76,69,84,69,68,33,33 
253,253,155,0,155,70,73,76,69 

78.85.77.66.69.82.32.77.73.83 

77.65.84.67.72.32.65.84.32.83 
69,67,84,79,82,27,31,0,155,67 
72,69,67,75,32,80,82,69,86,73 

79.85.83.32.83.69.67.84.79.82 

32.76.73.78.75.83.33.33.253.2 

0,67,65,78,78,79,84,32,82,69 

65,68,32,83,69,67,84,79,82,58 

27,31,36,253,0,155,78,79,32,6 

78.84.82.89.32.70.79.82.32.70 
73,76,69,27,31,36,253,0,32,69 
78,68,0,155,79,82,73,71,73,78 
65,76,32,83,69,67,84,79,82,32 
67,79,85,78,84,27,31,36,0,155 
65,67,84,85,65,76,32,83,69,67 
84,79,82,83,32,76,79,65,68,69 
68,27,31,36,0,155,83,72,79,82 

84.32.70.73.76.69.32.69.82.82 
79,82,33,33,253,155,0,162,34, 

3,32,159,33,96,162,34,160,87, 

159.33.173.11.3.32.47.35.173, 

3,32,136,30,169,155,32,57,35, 

42,33,0,0,0,0,0,0,0,0 
0,32,24,30,173,46,35,240,6,32 

43.30.76.28.35.169.27.32.57.3 

169.31.32.57.35.32.43.30.173, 
29,32,47,35,173,123,4,32,136, 
169,0,141,46,35,96,1,32,243,2 
32,231,29,96,69,58,155,162,64 


880 DATA 86,228,96,162,64,169,12,157,6 
6,3 

885 DATA 32,86,228,162,64,169,3,157,66 

,3 

890 DATA 169,54,157,68,3,169,35,157,69 

895 DATA 169,8,157,74,3,32,86,228,162, 
64 

900 DATA 169,11,157,66,3,169,0,157,72, 

905 DATA 157,73,3,104,96,0,8,0,0,0 

918 DATA 0,0,0,0,8,0,0,0,0,0 

915 DATA 0,0,0,0,0,0,0,0,0,0 

920 DATA 0,0,0,0,0,0,0,0,0,0 

925 DATA 0,0,0,0,0,0,0,0,8,0 

930 DATA 0,0,0,0,0,0,0,0,0,0 

935 DATA 0,8,0,0,0,0,0,8,0,0 

940 DATA 0,8,0,0,0,0,0,0,0,0 

945 DATA 0,0,0,0,0,8,0,0,0,0 

958 DATA 0,0,0,0,0,0,0,0,0,0 

955 DATA 0,0,0,0,0,0,0,0,0,0 

960 DATA 0,0,0,0,0,0,0,0,0,0 

965 DATA 0,0,0,0,0,0,0,0,0,0 

970 DATA 0,0,0,0,0,0,0,0,0,0 

975 DATA 0,0,140,253,34,173,11,3,141,1 

980 DATA 35,173,10,3,141,115,35,162,35 
, 160 

985 DATA 120,142,5,3,148,4,3,162,104,1 
60 

990 DATA 1,140,11,3,142,10,3,32,83,228 
995 DATA 16,13,162,38,160,251,32,159,3 
3,32 

1000 DATA 204,31,76,221,34,32,218,37,1 
72,253 

1005 DATA 34,177,205,208,3,76,144,32,1 
41,236 

1010 DATA 31,44,236,31,16,73,162,38,16 
0,34 

lOlS^DATA 32,159,33,173,116,35,141,11, 

lep DATA 115,35,141,10,3,32,83,228,16 

i025 DATA 32,212,33,32,204,31,162,39,1 
60,19 

1030 DATA 32,159,33,76,221,34,32,16,32 
, 238 

1035 DATA 255,34,208,3,238,0,35,173,13 
2,29 

I 04 O 3 OATA 205,243,31,208,27,173,123,4, 

1045 DATA 29,240,84,32,199,33,76,89,36 
, 32 

1050 DATA 212,33,162,38,160,68,32,159, 

33 76 • r • 

1055 DATA 42,33,162,34,160,20,32,159,3 
3,32 

1060 DATA 43,30,173,11,3,32,47,35,173, 

1065 DATA 3,32,136,30,169,155,32,57,35 
,162 

1070 DATA 33,160,232,32,159,33,32,212, 

33.162 

1075 DATA 38,160,88,32,159,33,32,204,3 
1,240 

1080 DATA 204,32,212,33,32,204,31,162, 
38,160 

1085 DATA 88,32,159,33,76,103,33,173,2 

1090 DATA 77,255,34,208,232,173,235,31 
, 77,0 

1095 DATA 35,208,224,141,255,34,141,0, 

35.162 

1100 DATA 38,160,114,32,159,33,173,118 
,35,141 

1105 DATA 10,3,173,119,35,141,11,3,32, 
83 

1110 DATA 228,16,13,162,39,160,38,32,1 
59,33 

1115 DATA 32,204,31,76,42,33,160,0,173 

,120 

1120 DATA 35,201,2,208,4,169,66,208,2, 
169 

1125 DATA 64,145,205,169,87,141,2,3,32 
, 83 

1130 DATA 228,16,35,32,218,37,32,204,3 

1.162 
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1135 

DATA 

,32 


1140 

DATA 

,39 


1145 

DATA 

,218 


1150 

DATA 

162,38 

1155 

DATA 

,141, 

10 

1160 

DATA 

228 


1165 

DATA 

3,32 


1170 

DATA 

2,16 


1175 

DATA 

,32 


1180 

DATA 

120,142 

1185 

DATA 

2 


1190 

DATA 

1195 

DATA 

27,32 

1200 

DATA 

,218 


1205 

DATA 

32,159 

1210 

DATA 

4,29 


1215 

DATA 

3 


1220 

DATA 

3 


1225 

DATA 

,246 


1230 

DATA 

9,0,56 

1235 

DATA 

05,10 

1240 

DATA 

,206, 

123 

1245 

DATA 

206,124 

1250 

DATA 

45 


1255 

DATA 

2 


1260 

DATA 

3 


1265 

DATA 

2 


1270 

DATA 

9 


1275 

DATA 

65 


1280 

DATA 

9 


1285 

DATA 

53 


1290 

DATA 

4 


1295 

DATA 

,50 


1300 

DATA 

2 


1305 

DATA 

0 


1310 

DATA 

2 


1315 

DATA 

9 


1320 

DATA 

5 


1325 

DATA 

4 


1330 

DATA 

3 


1335 

DATA 

9 


1340 

DATA 

9 


1345 

DATA 

82 


1350 

DATA 


7 


39.160.62.32.159.33.173.11.3 
47,35,173,10,3,32,136,30,162 

160.86.32.159.33.76.42.33.32 
37,162,38,160,152,32,159,33, 

160.174.32.159.33.173.115.35 
3,173,116,35,141,11,3,32,83, 

16.13.162.39.160.19.32.159.3 

204.31.76.221.34.32.234.37.3 

32.173.123.4.13.131.29.240.6 
199,33,76,115,37,162,35,160, 
5,3,140,4,3,162,104,160,1,14 

10.3.140.11.3.169.87.141.2.3 

32.83.228.16.13.162.38.160.2 

159.33.32.218.37.76.42.33.32 
37,32,212,33,162,38,160,204, 

33.32.204.31.142.117.35.76.6 
162,3,160,253,142,5,3,140,4, 
162,82,142,2,3,96,169,0,160, 
78,11,3,110,10,3,106,136,208 
160,5,106,136,208,252,168,16 

106.136.16.252.72.173.10.3.1 

168.104.89.120.35.153.120.35 
35,173,123,35,201,255,208,3, 
35,96,127,80,65,83,83,49,32, 

32.67.72.69.67.75.73.78.71.3 

70.73.76.69.32.67.79.78.68.7 
84,73,79,78,155,0,32,73,83,3 

78.79.84.32.68.69.76.69.84.6 
68,33,33,155,253,0,44,32,67, 

78.78.79.84.32.66.69.32.82.6 

67.79.86.69.82.69.68.33.33.2 
155,0,70,73,76,69,32,73,78,8 
65,67,84,155,127,80,65,83,83 

32.45.32.82.69.67.79.86.69.8 
73,78,71,32,70,73,76,69,155, 

68.73.82.69.67.84.79.82.89.3 

69.78.84.82.89.32.68.79.78.6 
155,0,82,69,65,76,76,79,67,6 

84.73.78.71.32.68.69.76.69.8 

69.68.32.83.69.67.84.79.82.8 
155,0,32,72,65,83,32,66,69,6 

78.32.82.69.67.79.86.69.82.6 
68,33,253,155,0,69,82,82,79, 

32.73.78.32.86.84.79.67.32.8 


82,73,84,69,33,33,253,155,0, 

82.82.79.82.32.73.78.32.86.8 

79,67,32,82,69,65,68,32,33,3 
253,155,0,70,73,76,69,32,82, 

65.68.32.69.82.82.79.82.33.2 
155,0,68,73,82,69,67,84,79,8 

89.32.82.69.65.68.32.69.82.8 
79,82,33,253,155,0,68,73,82, 

67.84.79.82.89.32.87.82.73.8 

69.32.69.82.82.79.82.33.27.3 
253,155,0,0,0,999 


CHECKSUM DATA 
(See pgs. 7-10) 

10 D0T0 601,859,577,173,880,415,850,35 
0,194,519,564,841,903,755,385,8866 
85 D0T0 282,260,264,536,556,358,379,58 
8,885,892,537,507,433,580,758,7815 
160 D0T0 489,349,537,548,888,644,367,4 
44,23,629,624,352,589,908,609,8000 
235 D0T0 128,561,845,578,617,261,677,4 
32,564,898,576,144,882,99,938,8200 
310 D0TA 357,618,605,607,626,532,321,3 
90,571,519,493,851,600,415,841,8346 
385 D0T0 371,405,520,844,677,652,617,6 
09,278,533,853,894,224,256,637,8370 
460 D0T0 169,591,579,294,844,885,823,1 
06,379,157,678,908,831,694,564,8502 
535 D0T0 588,615,608,668,62,871,436,57 
3,621,597,599,602,695,379,113,8027 
610 DOTft 592,419,577,640,578,619,573,7 
22,595,606,865,893,617,898,718,9912 
685 D0T0 744,741,285,497,611,301,219,3 
45,283,469,285,240,246,263,298,5827 
760 DATA 677,264,299,389,251,231,264,2 
84,230,275,289,211,232,420,581,4897 
835 D0T0 524,546,336,99,383,396,598,34 
1,466,480,643,632,647,271,936,7298 
910 DOTft 254,259,257,262,260,265,263,2 
68,266,271,269,274,272,549,633,4622 
985 D0T0 535,68,639,595,641,524,747,30 
4,755,539,537,580,410,799,518,8191 
1060 DfiTO 435,593,594,789,581,802,819, 
608,840,460,797,480,322,360,779,9259 
1135 D0T0 332,300,577,631,844,307,546, 
511,335,835,214,15,816,574,639,7476 
1210 O0T0 521,199,194,530,640,771,92,8 
38,478,327,339,303,356,485,339,6412 
1285 D0T0 590,303,432,322,301,349,369, 
316,353,349,292,354,503,327,550,5710 
1360 DOT0 339,311,471,584,326,346,518, 
373,303,82,3653 


1355 

DATA 

69 


1360 

DATA 

4 


1365 

DATA 

3 


1370 

DATA 

69 


1375 

DATA 

53 


1380 

DATA 

2 


1385 

DATA 

2 


1390 

DATA 

69 


1395 

DATA 

4 


1400 

DATA 

1 


1405 

DATA 

• 
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Listing 4. 




0200 

DMPASC 

STX HIADR 

1 SAVE COUNT 







0202 


TXA 

y GET THIS COUNT 

0«06 



** 



0204 


SEC 


0008 

!• THIS FILE 19 

THE CONTROL 

* 



0206 


SBC 07 

1 SET START FOR DUMP 

0010 

I* FILE USED TO ASSEMBLE ALL 

* 



0208 


TAX 

y PUT IN X 

0012 

|» PARTS OF THE ML PORTION OF 

» 



0210 


INC HIADR 

y INC FOR COMPARE 

0014 

|» THE DISK TOOL UTILITY. IT 

• 



0212 

QETIT 

LDA CASBUF,X 

y GET WHOLE BYTE 

0016 

!• IS EXECUTED 

BY TYPINa THE 

* 



0214 


JSR CKDOOM 

y STOP TROUBLE 

0018 

1* ASM -D;DMPUNIV.CTL" 

* 



«0216 


STX CHRCNT 

y SAVE THIS COUNT 

0020 

1• COMMAND FROM 

THE MAE EDITOR* 



0218 


JSR PUTCHR 

S CHARACTER TO SCREEN 

0022 



** 



0220 


LDX CHRCNT 

1 RESTORE X 

0024 

.CT 





0222 


INX 

1 AND INCREMENT 

0023 

. L3 





0224 


CPX HIADR 

y LIMIT REACHED? 

0026 

.FI 

-D:DMPUNIV.SRC 

" 



0226 


BNE QETIT 

y NO..NEXT CHAR 







0228 


LDA 0CR 

y YES..80 







0230 


JSR PUTCHR 

y SKIP A LINE 

D:DHPUNIV.SRC 





0232 


LDX HIADR 

I CK LIMITS 







0234 


CPX 0128 

1 DONE SECTOR? 

0002 






0236 


BCS EXIT 

1 YES..GOODBYE 

0004 

1* » DSKTOOL 

MLLI8T » * 




0238 


JSR PREFIX 

y PUT UP >0 

0006 






0240 


JSR UPDATE 

y UPDATE BYTE CNT 

0008 

1• • a Aua 

1981 * * 




0242 


JSR SPACE2 

y SKIP 2 SPACES 

0010 

1* *REV6 13 

JUL 1983* * 




0244 


LDY 00 

y ZERO Y COUNTER 

0012 

I* » TONY MESSINA • » 




0246 


LDX HIADR 

y GET OLD X COUNT 

0014 

|« » 48 DUDLEY AVE » » 




0248 


JMP D9PHEX 

y AND GET MO STUFF 

0016 

l» * NEWPORT,RI • • 




0230 

• 



0018 

I* » 02840 • • 




0232 




0020 

1••«•*••»•••»»• 





0234 

I* VARIABLES • 


0022 

1 





0236 




0024 






0238 

1 



0026 

1 * EQUATES * 





0260 

ERRFLG 

. DS 1 

1 ERROR FLAG 

0028 

1•••»•»•»*••»• 





0262 

SAVEX 

. DS 1 

1 X SAVE 

0030 

1 





0264 

SAVEY 

. DS 1 

y Y SAVE 

0032 

DSKVEC .DE 

tE433 


y 

READ/WRITE DISK 

0266 

CHRCNT 

. DS 1 

1 STQREABE 

0034 

CASBUF .DI 

• 03FO 


y 

128 BYTE BUFFER 

0268 

MFLAQ 

. 08 1 

y WRITE FLAG 

0036 

PERIOD .DI 

02E 


1 

ASCII PERIOD 

0270 

T0P8EC 

. DS 1 


0038 

CR . DI 

09B 


y 

CARRIGE RETURN 

0272 

FILNUM 

. DS 1 


0040 

SP . DI 

020 


y 

ASCII SPACE 

0274 

1 



0042 

CLS .DI 

07D 


y 

CLEAR SCREEN 

0276 




0044 

TAB .DI 

07F 


y 

TAB SPACE 

0278 

I* SUBROUTINES* 


0046 

NULL .DI 

000 


y 

END OF TEXT DELIMETER 

0280 




0048 

PASE0 .DI 

000CD 


y 

PG 0 WORK LOCATION 

0282 

1 



0030 

LOCKED .DI 

020 


y 

FILE LOCKED MASK 

0284 

1*** WRITE 

HEADER *** 


0032 

DOSM8K .DI 

002 


y 

DOS 2 MASK 

0286 

I*** SUBROUTINE *** 


0034 

DAUXl .DE 

0030A 




0288 

1 



0036 

DAUX2 .DE 

0030B 




0290 

MSS 

LDX 00 

y START AT ZERO 

0038 

ESC .DI 

000 IB 


y 

ESC/ESC SEQ 

0292 

DISMSG 

LDA HEADER,X 

y GET BYTE 

0060 

BELL .DI 

0FD 


y 

RING BUZZER 

0294 


BEQ ENDMSG 

y IF ZERO SCRAM 

0062 

RAR .DI 

0001F 


y 

RIGHT ARROW 

0296 


STX SAVEX 

y SAVEX 

0064 

y 





0298 


JSR PUTCHR 

y DISPLAY CHAR 

0066 






0300 


LDX SAVEX 

1 RESTORE X 

0068 

1 * CONTROL * 





0302 


INX 

y ADD 1 

0070 






0304 


SEC 


0072 

y* NOTE; * 





0306 


BCS DISMSG 

y ALWAYS BRANCH!! 

0074 

y• ORO D0S2* • 





0308 

ENDMSG 

RTS 

y ADIOS'! 

0076 

y* 01CFC •• 


* * 



0310 

HEADER 

.BY CLS 'BYTE0' 


0078 

y» ANY OTHER OR0 WILL REQUIRE 

* 







0080 

y» CHANQES TO THE BASIC PART 

* 



0312 


.BY TAB TAB 'HEX' 

TAB TAB 'ATA8CI* CR NULL 

0082 

y* OF THIS UTILITY..BEWARE!!! 

• * 



0316 

l*»* WRITE 

SPACES *** 


0004 

!• RUN ONLY UNDER UNMODIFIED 

* 



0318 

|*»* SUBROUTINE *** 


0086 

y* D032 (I.E. DOS2 THAT DOES 

* 



0320 

1 



0088 

y* NOT SAVE SPACE BY DROPPIN0 

* 



0322 

BPACE2 

JSR SPACE 1 

y 60 HERE FOR 2 SPACES 

0090 

y* NON-EXISTINS DRIVES'!! 

* 



0324 

8PACE1 

LDA 08P 

1 LOAD A SPACE 

0092 



• • 



0326 


JSR PUTCHR 

y AND DISPLAY 

0094 

y 





0328 


RTS 

y THEN RETURN 

0096 

. PR 

“ORIGIN OF HEXDMP 

- 

y ASK ORO 

0330 

1 



0098 

ASTART .IN 

ASTART 


y 

USER INPUT 

0332 

!•*• CONVERT ASCI ««* 


0100 

. BA 

ASTART 


y 

ASSIGN ORG 

0334 

•*** SUBROUTINE *** 


0102 

. OS 



y 

STORE OBJ CODE IN MEM 

0 336 

1 



0104 

. MC 

0A900 


y 

BUT PUT AT 0A900 

0338 

CONABC 

AND 000F 

I CLEAR TOP NY8LE 

0106 

. PR 

"ORIGIN AT INPUT" 



0340 


CMP 000A 

I IS A REQ>9?? 

0108 

. PR 

-OBJ STORE AT 

0A900" 

0342 


BMI LT9 

y NO..ONLY ADD 430 

0110 

y 





0344 


ADC 06 

y YES.ADD 6 

01 12 






0346 

LT9 

ADC 0030 

y ADD 030 

01 14 

y • PROeRAM • 





0348 


RTS 

y AND RETURN 

01 16 






0330 

1 



0118 

y 





0332 

I*** CHECK 

GARBAGE **• 


0120 

START J8R 

DSKVEC 



DO READ OR WRITE 

0334 

y*** SUBROUTINE *** 


0122 

BMI 

DERR 



IF ERROR BRANCH 

0336 

1 



0124 

LDA 

WFLAG 



MAS IT A WRITE? 

0338 

CKDOQM 

CMP 0020 

y A < SPACE*? 

0126 

BNE 

EXIT2 



YES..KEEP DISPLAY! 

0360 


BCC SUBPER 

y YES SUB PERIOD 

0128 

ME8A0E JSR 

MSG 



PUT UP HEADER 

0362 


CMP 007D 

y NO < 707? 

0130 

JSR 

PREFIX 



PUT UP >0 

0364 


BCC OUT 

y YES PRINT 

0132 

LDA 

LOADR 



GET LOADR 

0366 


CMP 0080 

1 NO..HOW ABOUT <080 

0134 

JSR 

AROUND 



PUT UP 00 

0368 


BCC SUBPER 

y YES..SUB PERIOD 

0136 

JSR 

8PACE2 



2 SPACES 

0370 


CMP 0CR 

y < 09B 77 

0138 

y*** SECTOR IS 

IN, HEADER UP, 

DUMP HEX **• 

0372 


BCC OUT 

y YES..SCRAM 

0140 

y 





0374 


CMP 00A0 

y N0..< 0A07? 

0142 

LDX 

00 



BYTE COUNTER 

0376 


BCC SUBPER 

y YES..SUB PERIOD 

0144 

LDY 

00 



COUNT a HEX BYTES 

0378 


CMP 00FD 

y N0..HOW BOUT 0FD 

0146 

D8PHEX LDA 

CASBUF,X 



GET A BYTE 

0380 


BCC OUT 

y YES..ELSE 

0148 

JSR 

CONVERT 



BREAK INTO NYBLE8 

0382 

SlIBPER 

LDA 0PERIOD 

y LOAD A PERIOD 

0130 

JSR 

DI3PLY 



AND DISPLAY 

0384 

OUT 

RTS 

y THEN RETURN 

0132 

JSR 

SAVXY 



SAVE Xt<Y REGS 

0386 

1 



0134 

JSR 

SPACE 1 



NOW SP 1 

0388 

»*** DISPLAY HEX BYTES *** 


0136 

JSR 

RE8XY 



RESTORE X0Y REGS 

0390 

I*** SUBROUTINE *** 


0138 

INY 




INC COUNT 

0392 

1 



0160 

CPY 

08 



TIME TO DUMP ASCI 177 

0394 

DISPLY 

JSR SAVXY 

y SAVE Xlr Y REOS 

0162 

BEQ 

OMPASC 



YES..GO DO IT 

0396 


LDA HIHEX 

y GET HI BYTE 

0164 

INX 




NO..INC BYTE COUNT 

0398 


JSR PUTCHR 

y PUT ON SCREEN 

0166 

JMP 

D8PHEX 



NO..NEXT77 

0400 

ONEBYE 

LDA LOHEX 

y GET LO BYTE 

0168 

y 





0402 


JSR PUTCHR 

y AND DISPLAY IT TOO 

0170 

1••»•••••••»»«« 





0404 


JSR RESXY 

y RESTORE X««Y REGS 

0172 

y« D8K ERRORS « 





0406 


RTS 

y THEN RETURN 

0174 





0408 

LOHEX 

. DS 1 

y LO HEX STORE 

0176 

y 





0410 

HI HEX 

. DS 1 

y HI HEX STORE 

0178 

DERR STY 

ERRFLe 



INFORM BASIC OF ERROR 

0412 

1 



0180 

EXIT JSR 

WEIRD 



BREAK UP WEIRD BYTE 

0414 

y*** CONVERT BIN BYTE TO 2 HEX DIGITS *** 

0182 

LDY 

00 



ZERO Y 

0416 

1 *•* 

SUBROUTINE *** 


0184 

STY 

LOADR 



ZERO LOADR 

0418 

y 



0186 

EXIT2 PLA 




CLEAN UP STACK 

0420 

CONVERT 

PHA 

y 13T SAVE A 

0188 

RTS 




AND RETURN TO BASIC 

0422 


L8R A 

y EXTRACT 

0190 

y 





0424 


LSR A 

y TOP NYBLE 

0192 






0426 


L9R A 

y AND SHIFT TO 

0194 

y» ASCII DUMP « 





0428 


LSR A 

y BOTTOM NYBLE 

0196 






0430 


JSR CONABC 

y CONVERT BIN TO ASCII 

0 198 

y 





0432 


STA HIHEX 

y STORE IT 
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0434 


PLA 



GET ORieiNAl. BYTE 

0720 


LDA 

• • U 

1 USED LOAD *U' 

0436 


JSR 

CONASC 


CONVERT IT 

0722 


STA 

FILSTA-t-l 

1 9TUF 

0438 


STA 

LOHEX 


STORE IT 

0724 

CKLOCK 

LDA 

•LOCKED 

1 LOCK MASK 

0440 


RTS 



AND RETURN 

0726 


BIT 

FIL3TA 

1 IS IT? 

0442 

1 





0728 


BEQ 

CKDOS 

1 NO CK DOS 

0444 

1*** UPDATE BYTE COUNT *»* 



0730 


LDA 

• • * 

1 YES. LOAD '*• 

0446 

1 **• 

SUBROUTINE **♦ 



0732 


STA 

FlLSTAf3 

1 STUF 

0448 

1 





0734 

CKDOS 

LDA 

•DQSMSK 

1 DOS MASK 

04S0 

UPDATE 

LDA 

LOADR 


GET LO BYTE 

0736 


BIT 

FIL3TA 

1 DQS27 

0432 


CLC 



CLEAR CARRY 

0738 


BEQ 

DOSl 

1 NO DOSl 

0434 


ADC 

• •08 


ADD 8 

0740 


LDA 

• ' 2 

1 YES LOAD 2 

0436 


STA 

LOADR 


STORE AWAY 

0742 


STA 

FIL9TA^2 

1 STUF 

0438 

AROUND 

JSR 

CONVERT 


CONVERT IT 

0744 


JMP 

OUTFIL 

1 AND OUT 

0460 


JSR 

DISPLY 


AND DISPLAY 

0746 

DOSl 

LDA 

• • 1 

1 LOAD 1 

0462 


RTS 



THEN RETURN 

0748 


STA 

FIL8TA+2 

1 AND STUF 

0464 

LQADR 

. DS 

1 


BYTE COUNT LO 

0730 

1*** FILE 

FORMATTED..DUMP IT 


0466 

HIADR 

, DS 

1 


BYTE COUNT HI 

0732 

OUTFIL 

JSR 

JU9HEX 

1 PUT UP A • 

0468 

1 





0734 


LDA 

DAUX2 

1 GET SEC HI 

0470 

1 





0736 

PUT9EC 

JSR 

DOONE 

1 DISPLAY LO NYBLE 

0472 

I*** SAVE XI.Y 

REGISTERS »** 



0738 


LDA 

DAUXl 

1 DSK SEC LO 

0474 

1 

SUBROUTINE **♦ 



0760 


JSR 

DOBOTH 

1 DISPLAY 

0476 

1 





0762 


JSR 

SPACE1 

1 SKIP SPACE 

0478 

SAVXY 

3TX 

SAVEX 



0764 


LDX 

•0 

1 SET INDEX 

0480 


STY 

9AVEY 



0766 

DI9PFL 

LDA 

NAMBUF.X 

p GET LTR 

0482 


RTS 




0768 


JSR 

8AVXY 

1 SAVE IDX*8 

0484 

RE3XY 

LDX 

SAVEX 



0770 


J8R 

PUTCHR 

1 PUT ON 8CRN 

0486 


LDY 

SAVEY 



0772 


JSR 

RESXY 

1 RESTORE X/Y 

0488 


RTS 




0774 


INX 



0490 

1 





0776 


CPX 

•8 

1 DONE NAME? 

0492 

I*** PREFIX BYTES WITH >0 **♦ 



0778 


BCC 

DI8PFL 

p NO.BET MO 

0494 

1 

SUBROUTINE »«» 



0780 


JBR 

8AVXY 

p SAVE XScY 

0496 

1 





0782 


J9R 

SPACE 1 

P 1 SPACE 

0498 

PREFIX 

LDA 

• • > 


LOAD A CARAT 

0784 


JSR 

RESXY 

P RESTORE XliY 

0300 


JSR 

PUTCHR 


DISPLAY IT 

0786 

DOEXT 

LDA 

NAMBUF,X 

P SET EXTENSION 

0302 

.lUSHEX 

LDA 

• ' • 


LOAD HEX DESIGNATOR 

0788 


JSR 

8AVXY 

P SAVE EH 

0304 


JSR 

PUTCHR 


DISPLAY IT 

0790 


JSR 

PUTCHR 

p DISPLAY 

0306 


RTS 



RETURN 

0792 


JSR 

RESXY 

P RESTORE 

0308 

1 





0794 


INX 


p INC COUNT 

0310 

!«*• ML 

CHANGE 

BYTE ROUTINE »* 



0796 


CPX 

• 1 1 

p GOT EXTENSION? 

0312 

1*** BASIC ENTERS HERE *** 


0798 


BCC 

DOEXT 

p NO..GET ALL 

0314 

CHNQBY 

PLA 



PULL OFF • VARS PASSED 

0800 


JSR 

SPACE1 

p PUT UP 8P 

0316 


PLA 



PULL OFF HI ADR 

0802 


JBR 

JUSHEX 

P AND • 

0518 


STA 

*PA8E0>1 


STUFF IT 

0804 


LDA 

9TA8EC 

P LOAD START 

0520 


PLA 



NEXT?*? 

0806 

PUTSTA 

JSR 

DOBOTH 

P TO HEX 

0522 


STA 

•PAGE0 


STUFF IT 

0808 


LDA 

STASEC^l 

p START LO 

0324 

INDEX 

LDY 

• 2 


SKIP >0 



JQR 

DOfiQTH 

p DIfiPLAY 

0326 


LDA 

(PAQEO),Y 


HI HEX 

0812 


JSR 

9PACE1 

P SKIP 3 

0528 


JSR 

MAKBIN 


HEX ASCI TO BIN BYTE 

0814 


JSR 

JUSHEX 

P PUT UP • 

0330 


TAX 



SAVE START INDEX 

0816 


LDA 

FILEN 

P FILE LEN HI 

053? 


CLC 




0818 

PUTLEN 

JSR 

DOBOTH 

P DISPLAY 

0534 


ADC 

• •8 


GET MAX COUNT 

0820 


LDA 

FILEN+1 

p FILE LEN LO 

0536 


STA 

CHRCNT 


STORE 1T 

0822 


JSR 

DOBOTH 

P DISPLAY 

0538 


I NY 




0824 


JSR 

8PACE2 

P SKIP 3 

0340 

HX2BIN 

I NY 



SKIP TO 

0826 


JSR 

JUSHEX 

P PUT UP • 

0342 


INY 



NXT USEABL BYTE 

0828 


LDA 

FINUMB 

1 FILE NUMBER 

0344 


LDA 

<PAQE0),Y 


HI CHAR 

0830 


JSR 

DOBOTH 

P DISPLAY 

0346 


CMP 

• 8P 


IS IT SPACE':» 

0832 


JSR 

9PACE2 

P SKIP 2 

0348 


BNE 

NOTASC 


NO..HEX 

0834 

P9TATU 

LDX 

• 2 

P CNT 2 

0350 


INY 



YES..GET CHAR 

0666 

QETNAM 

LDA 

<PAQE0),Y 

P GET CHAR 

0332 


LDA 

<PAQE0),Y 


IN A 

0668 


STA 

NAMBUF,X 

P STUFF 

0534 


BNE 

STUFIT 


AND STORE DIRECTLY 

0670 


INY 


P INC THE 

0536 

N0TA3C 

JSR 

MAtCBIN 


HEX ASCII TO BIN BYTE 

0672 


INX 


1 COUNTERS 

0338 

9TUFIT 

STA 

CAS8UF,X 


STUFF IN BUFFER 

0674 


CPX 

• 1 1 

p DONE WITH NAME? 

0360 


INX 



0676 


BCC 

QETNAM 

p NO.GET MORE 

0362 


CPX 

CHRCNT 


DONE 8 BYTES 

0678 


LDY 

• 0 

P YES 

0364 


BCC 

HX2BIN 


NO.GET NXT 

0680 

QETSTA 

LDA 

(PA8E0),Y 

P GET STATUS BYTE 

0366 


PHA 



PUSH FOR EXIT 

0682 


STA 

FIL8TA 

1 STORE 

0368 


JMP 

MESAGE 


PUT UP NEW SCREEN 

0684 


INY 


p NEXT BYTE 

0370 

TEMP 

. DS 

1 


LO BIN VAL STORE 

0686 

BETLEN 

LDA 

(PAGE0),Y 

P LEN LO 

0372 

|«»» ASCI HEX TO BIN 


0688 


STA 

F ILEN+1 

p STORE 

0374 

I*** SUBROUTINE *** 



0690 


INY 



0576 

1 





0692 


LDA 

(PA0E0),Y 

P LEN HI 

0378 

AS2BIN 

SEC 



SUBTRACT 

0694 


STA 

FILEN 

p STORE 

0380 


SBC 

• * 0 


ASCII 0 

0696 


INY 



0382 


CMP 

• 10 


A< 107 

0698 

FI9TAR 

LDA 

<PAQE0),Y 

P GET FI START 

0584 


BCC 

A8BIN1 


YES JMP 

0700 


STA 

3TASEC+1 

P STUF 

0386 


SBC 

• 7 


ELBE SUB 7 MORE 

0702 


INY 



0388 

A3BIN1 

RTS 



AND RETURN 

0704 


LDA 

(PAaE0>,Y 

p START HI 

0390 

1 





0706 


STA 

STA3EC 

p STUF 

0392 




»• 


0708 

CK9TA 

BIT 

FIL8TA 

1 ENTRY DELETED? 

0394 

1* CONVERT 2 ASCII HEX DTSITS 

• 


0710 


BPL 

CKU8ED 

P NO. CK IF USED 

0396 

1 * TO A 

BINARY 

•. THE HI DIGIT 

• 


0712 


LDA 

• ’ D 

P DELETED LOAD ’D' 

0398 

I* COMES 

IN THE A REG. THE LO 

# 


0714 


STA 

FIL8TA+1 

P STUF 

0600 

DIGIT 

IS EXTRACTED FROM THE 

• 


0716 


JMP 

OUTFIL 

P THEN OUT 

060? 

1 * PAGE 

0 PTR ♦ 

Y REG. ROUTINE 

« 


0718 

CKU9ED 

BVC 

OUTFIL 

P IF NOT USED, OUT 

0604 

* » EXITS 

WITH BIN NUMBER IN A 

* 


0836 

PUTLTR 

LDA 

FILSTA^l,X 

1 PUT UP STATUS 

0606 




»» 


0838 


JSR 

8AVXY 

P SAVE XtiY 

0608 

1 





0840 


JSR 

PUTCHR 

P PUT UP ASCII 

0610 

MAKBIN 

PHA 


1 

SAVE HI HEX DIGIT 

0842 


JSR 

RESXY 

P RESTORE Xt(Y 

0612 


INY 




0844 


LDA 

• SP 

P LOAD SPACE 

0614 


LDA 

(PAGE0),Y 


GET LO HEX DIG 

0846 


STA 

FILSTA+t,X 

P CLEAR THIS STATUS 

0616 


JSR 

AS2BIN 


CONVERT 

0848 


DEX 


p DECREMENT COUNT 

0618 


STA 

TEMP 


STORE 

0830 


BPL 

PUTLTR 

p BRANCH TILL DONE 

0620 


PLA 



GET BACK HI 

0832 


INC 

FINUMB 

P INC FILE NUMBER 

0622 


JSR 

AS2BIN 


CONVERT 

0834 


INC 

3ECMAX 

P AND FILE8/8ECT0R CNT 

0624 


ASL 

A 


SHIFT 

0836 


LDA 

• 8 

P CLEAR OLD FILE ITEMS 

0626 


ASL 

A 


IT 

0838 


CMP 

SECMAX 

P DONE 0 FILES? 

0620 


ASL 

A 


UP 

0860 


BEQ 

NXTSEC 

P YEB-0ET NEXT SECTOR 

0630 


ASL 

A 


TOP 

0862 


LDA 

•PAOE0 

P ELSE INC BUFFER POINTER 

0632 


ORA 

TEMP 


OR IN LO BYTE 

0864 


CLC 


P 90 THAT WE 

063 4 


RTS 



RETURN WITH BIN IN A 

0866 


ADC 

• 16 

P SKIP 16 BYTES 

0636 

1#** DIRECTORY 

DUMP STARTS HERE » 

»« 

0868 


STA 

•PA0E0 

P STORE NEW POINTER LOW 

0638 

JPONT 

JMP 

DERR 

t 

LONG BRANCH 

0870 


BCC 

NOHIBY 

P JUMP IF NO CARRY 

0640 

DOBOTH 

JSR 

CONVERT 

1 

CON VAL IN A TO HEX 

0872 


INC 

»PA0E0^1 

1 ELSE INC HI PART OF POIN 

0642 


JSR 

DISPLY 

1 

AND DISPLAY 

0874 

NOHIBY 

LDA 

• CR 

P LOAD RETURN 

0644 


RTS 




0876 


JSR 

PUTCHR 

P DO IT 

0646 

1 





0878 


JSR 

CLRNAM 

1 CLEAR NAME BUFFER 

0648 

REDIR 

JSR 

D3KVEC 

1 

READ SECTOR 

0880 


JMP 

FILOOP 

P SET NXT FILE INFO 

0630 


BMI 

JPONT 

1 

JUMP LONG ON ERROR 

0882 

NXTSEC 

LDA 

• CR 

P EXECUTE A 

0632 


LDA 

• L,CASBIJF 

1 

LO BUF START 

0884 


JSR 

PUTCHR 

P LINE FEED 

0634 


STA 

•PAQE0 

I 

STUFF 

0886 


LDA 

DAUX 1 

p INC DSK lOCB 

0636 


LDA 

•H,CA3BUF 

1 

HI START 

0808 


CLC 


1 TO READ THE NEXT 

0638 


STA 

*PAQE0-»-l 

1 

STUFF 

0890 


ADC 

• 1 

P SECTOR 

0660 

F ILOOP 

LDY 

• 3 

1 

NAME START 

0892 


STA 

DAUXl 

P THEN STORE 

0662 


LDX 

• 0 

1 

BUF INDEX 

0894 


BCC 

NOFLIP 

P INC HI 

0664 

!••• NOW 

GET FILE NAME **♦ 



0896 


INC 

DAUX2 

P IF NEEDED 
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0898 

NOFLIP 

LDX 

• 0 

1 

CLEAR FILE CNT 

0900 


STX 

SECMAX 



0902 


LDA 

TOGGLE 

I 

DONE 2 SECTORS? 

0904 


BNE 

CLENUP 

1 

YES CLEAN UP OUR ACT 

0906 


INC 

TOGGLE 

t 

NO..SET FOR NEXT TIME T1 

0908 


JMP 

REDIR 

1 

AND GO READ NEXT SECTOR 

0910 






0912 

1* CLEAR NAME BUFFER * 



0914 

SUBROUTINE • 



0916 

I*•*»•***• 





0918 

CLRNAM 

LDX 

• 1 1 

1 

11 CHARACTERS 

0920 


LDA 

• 8P 

1 

ONE SPACE 

0922 

CLRSPA 

9TA 

NAMBUF,X 

1 

CLEAR IT 

0924 


DEX 


1 

GET EVERYTHING*• 

0926 


BNE 

CLRSPA 

1 

TILL DONE 

0928 


RTS 


f 

THEN RETURN 

0930 

I•«••««»»• 


M»«** 



0932 

1* DIRECTORY DUMP * 



0934 

|« EKIT9 

HERE • 



0936 


*•**1 




0938 

CLENUP 

DEC 

TOGGLE 

1 

CLEAR TOGGLE LOCATION 

0940 


JMP 

EXIT2 

1 

AND THEN JUMP BACK TO B 

0942 


»*»*1 

»**♦* 



0944 

1* DIRECTORY DATA • 



0946 






0948 

NAMBUF 

. DS 

1 1 

1 

FILE NAME BUF 

0930 

STASEC 

. DS 

2 

1 

START SEC HI/LO 

0932 

FILEN 

. DS 

2 

1 

FILE LEN HI/LO 

0934 

FILSTA 

. BY 

32 32 32 32 32 | 

FILE STATUS 

0936 

TOGGLE 

. DS 

1 

1 

INFAMOUS TOQQl.ER 

0938 

SECMAX 

. DS 

1 

1 

FILE COUNTER 

0960 

FINUMP 

. DS 

1 

1 

THIS FILE • 

0962 


1 




0028 


.FI 

"D:DMPUNIV2.SRC- 



1002 


• 1 




1004 

I* CHANGE 

SECTOR LINKS « 



1006 

1«««««•«»« 

««**i 




1008 

ENTLNK 

JSR 

D8KVEC 

1 

READ SECTOR 

1010 


BPL 

CHGLNK 

1 

JMP GOOD READ 

1012 


JMP 

DERR 

1 

ELSE ERROR 

1014 

CH8LNK 

JSR 

WEIRD 

1 

BREAK UP FlfcSECTOR 

1016 


JMP 

EXIT2 

1 

AND RETURN 

1018 

NEWLNK 

LDA 

FILNUM 

1 

GET NEW FILE 

1020 


ROL 

A 

1 

ROLL IT 2 

1022 


ROL 

A 

I 

BITS LEFT 

1024 


ORA 

TOP8EC 

I 

OR IN HI SECTOR 

1026 


STA 

CASBUF*123 

1 

STUFF BACK 

1028 


JMP 

EXIT2 

1 

AND RETURN 

1030 

1»•»•••»»« 


• * « 



1032 

1* EXTRACT 

Hl/LO * 



1034 

I* NEXT SECTOR * 



1036 

f« SUBROUTINE 

• 



1038 

«« THIS AVOIDS 

A « 



1040 

I* HORRENDOUS BUG* 



1042 

1* OF TYING UP 

• 



1044 

1* THE STACK (AT * 



1046 

|« LEAST I 

HOPE) * 



1048 



h«*« 



1030 

I 





1032 

WEIRD 

LDA 

CA8BUF-H23 


GET WEIRDO 

1034 


PHA 



STUFF AWAY 

1036 


AND 

• 003 


MASK OFF BITS 2-7 

1038 


STA 

T0P8EC 


STUFF HI BY 

1060 


PLA 



GET STUFFED BYTE 

1062 


LBR 

A 


RIGHT JUSTIFY 

1064 


L8R 

A 


FILE NUMBER 

1066 


STA 

FILNUM 


STUFF IT 

1068 


RTS 



80 HOME 

1070 

I**** TRACE SECTORS ENTERS HERE 

• 

• ** 

1072 

TRASEC 

LDA 

CONTIN 


FIRST TIME? 

1074 


BEO 

NOCON 


YES..DO PULLS 

1076 


PLA 



JUST PULL VAR PASSED 

1078 


JMP 

8ETY 


NO..NO PULLS 

1080 

NOCON 

PLA 



PULL OUT VAR CNT 

1082 


PLA 



PULL START HI 

1084 


OTA 

DAUX2 


STORE FOR READ 

1086 


STA 

DINUMH 


STO FOR RECOV 

1 088 


PLA 



GET START LO 

1090 


STA 

DAUXl 


8T0RF FOR READ 

1 092 


STA 

DINUML 


STO FOR RECOV 

1094 


PLA 



INDEX HI 

1096 


STA 

• PAOE0-H 


STORE 

1098 


PLA 



INDEX LO 

1 1 00 


STA 

♦PAGE0 


STORE 

1 102 


PLA 



FILE# HI 

1 104 


PLA 



FILE# LO 

1 106 


STA 

FINUMB 


STORE IT 

1 108 


JSR 

D8KVEC 


READ SECTOR 

1110 


BPL 

NOERR 


BRANCH NO ERROR 

1112 

ERRTRP 

JMP 

RDERR 


ERROR..JUMP 

1114 

NOERR 

LDX 

• 1 1 


NAME COUNT 

1 1 16 


LDY 

• 15 


INDEX CNT 

1118 

LOADIT 

LDA 

(PAQE0),Y 


GET LETTER 

1 120 


STA 

NAMBUF-1,X 


STUFF IT 1 

1 122 


DEY 



DEC Y 

1 124 


DEX 



AND X 

1 1 26 


ONE 

LOADIT 


GET MORE 

1 128 


LDA 

(PA6E0),Y 


GET START LO 

1 130 


STA 

DAUX2 


STUFF 

1 132 


DEY 




1 134 


LDA 

<PAGE0),Y 


GET LO 

1 136 


STA 

DAUX 1 


8TUF 

1 138 


DEY 




1 1 40 


LDA 

<PAQE0).V 


GET FI LEN HI 

1 1 42 


STA 

riLEN-M 


SAVE FOR CKS 

1 144 


DEY 




1 1 46 


LDA 

(PAGE0).Y 


FI LEN LO 

1 148 


STA 

FILEN 


SAVE IT TOO 

1 130 


DEY 




1132 


LDA 

RECOVR 


ARE WE DOING RECOV FIL? 

1 134 


BEQ 

STCHK 


NO..CHECK STATUS 

1 136 


JMP 

DOREC 


YES..DO RECOVER• 

1 138 

9TCHK 

LDA 

(PAQE0>,V 


GET STATUS 

1 160 


BEQ 

NOF.NT 


IF ZERO, NO ENTRY 

1 162 


STA 

FILSTA 


STORE IT 


1 164 


BIT 

FILSTA 

1 FILE DELETED?? 

1 166 


BPL 

IT9USD 

1 NO. . ITS USED ? • 

1 168 


JSR 

DISNAM 

1 YES..PUT NAME 

1 170 


STX 

ERRFLG 

1 NOTE ERROR 

1172 


JSR 

DELETE 

1 PUT DEL MSG 

1174 


JMP 

EXIT2+1 

1 AND SCRAM 

1 176 

NOENT 

LDX 

#H,N0M8Q 

1 MSG ADDR 

1 178 


LDY 

#L,N0M88 


1 180 


JSR 

FLIPIT 

1 DISPLAY MSB 

1182 


LDA 

FINUMB 

1 FILE NUMBER 

1184 


JSR 

DOBOTH 

1 DISPLAY 

1186 


JMP 

COMMEX 

1 COMMON ERROR EXIT 

1188 

I**** FILE USED PUT UP NAME ETC **** 

1190 

IT9U3D 

LDX 

#H,NAME 

1 MSS ADDR 

1192 


LDY 

#L,NAME 

1 HI/LO 

1194 


JSR 

FLIPIT 

1 DISPLAY 

1 196 


JSR 

DISNAM 

1 PUT UP NAME 

1 190 


LDX 

#H,SECMSQ 

1 MSS ADDR 

1200 


LDY 

#L,SECMSG 


1202 


JSR 

FLIPIT 

1 FLIP MSGS 

1204 


LDA 

DAUX2 

1 GET TRUE START SECTOR 

1 206 


JSR 

DOONE 

1 DISP HEX 

1 208 


LDA 

DAUX 1 

1 GET LO 

1210 


JSR 

DOBOTH 

1 DISPLAY TOO 

1212 

SETY 

LDY 

#16 

1 DO 17 LINES 

1214 


STY 

YCNT 

1 SAVE CNT 

1216 

DOREIN 

LDA 

#CR 

1 CARR RET 

1218 


JSR 

PUTCHR 

1 DISPLAY 

1220 


LDX 

#7 

1 8 SECTORS/LINE 

1222 


STX 

XCNT 

1 SAVE IT 

1224 

DOREAD 

JSR 

D3KVEC 

1 READ SECTOR 

1226 


BPL 

DRIVON 

1 JMP BOOD READ 

1228 


JMP 

RDERR 

1 BAD READ•• 

1230 

DRIVON 

JSR 

WEIRD 

I EXTRACT WEIRD BYTE 

1232 


INC 

FILCNT 

1 INC COUNTER 

1 234 


BNE 

GOON 

I NO WRAP YET 

1 236 


INC 

FILCNT-t-1 

1 ELSE INC HI 

1238 

GOON 

LDA 

FILNUM 

1 GET THIS FILE # 

1240 


CMP 

FINUMB 

1 SAME AS 1 WE SEEK?? 

1242 


BNE 

OOPS 

1 NO ? • ! OOPS. . 

1244 


LDA 

CASBUF-M26 

f GET LO PTR 

1246 


ORA 

TOPSEC 

1 OR WITH HI BYTE•' 

1 248 


BEQ 

WEDONE 

1 IF ZERO THEN DONE 

1230 


JSR 

SETUP 

1 ELSE SETUP FOR NXT REA 

1232 

DOASEC 

JSR 

SECDI8 

1 DISPLAY TRACE SECTOR 

1 234 


DEC 

XCNT 

1 DEC CNTR 

1256 


BPL 

DOREAD 

1 IF NOT DONE 8 THEN GET 

1258 


LDA 

• 1 

1 ELSE SETUP NXT LINE 

1 260 


STA 

FAKFLQ 

1 FOR ONLY # 

1262 


DEC 

YCNT 

p DEC LINE CNT 

1264 


BPL 

DORETN 

1 IF NOT 16 80 BACK 

1266 


STA 

CONTIN 

I ELBE SET CONTINUE FLB 

1268 


JMP 

EXIT2*1 

P AND ESCAPE..WE WILL RE 

1270 

OOPS 

JSR 

CLRNAM 

1 CLEAR NAME 

1 272 


LDX 

#H,LINKER 

P MSS ADDE 

1274 


LDY 

#L.LINKER 


1 276 


JSR 

FLIPIT 

p DISPLAY 

1278 

ONMOER 

JSR 

JU9HEX 

P PUT UP • 

1280 


LDA 

DAUX2 

P HI SEC 

1282 


JSR 

DOONE 

P DISP JUST LO 

1284 


LDA 

DAUXl 

P LO SEC 

1 286 


JSR 

DOBOTH 

P DISPLAY 

1288 

LA9N9G 

LDX 

#H,ODAMSG 

P MSB HI 

1290 


LDY 

#L,ODAMSG 

P MSB LO 

1292 


JSR 

FLIPIT 

p PUT IT UP 

1294 

COMMEX 

LDA 

#1 

1 RESTORE FAKE 

1296 


STA 

ERRFLG 


1298 

CLRFAK 

STA 

FAKFLQ 

P RESET FAKE 

1300 


LDA 

#0 

P CLR CONTIN 

1302 


STA 

FILCNT 

P CLEAR COUNTS 

1304 


STA 

CONTIN 


1306 


STA 

FILCNT*1 

1 HI CLR 

1 308 


JMP 

EXIT2+1 

P AND SCRAM 

1310 

UEDONE 

LDA 

FILEN 

1 GET ORIGINAL LO 

1312 


EOR 

FILCNT 

P OR WITH COUNTER 

1314 


BNE 

SORRY 

P IF NOT ZERO..SORRY 

1316 


L DA 

FILEN*1 

p DO HI NOW 

1318 


EOR 

FILCNT*1 

P OR THEM 

1 320 


BNF 

SORRY 

1 SAME AS ABOVE 

1322 


STA 

FILCNT 

1 CLR FOR NXT TIME 

1324 


STA 

FILCNT*! 


1 326 


LDX 

#H,STOPMS 

p ANNOUNCE HE DONE 

1328 


LDY 

#L,STOPMS 

P TO THE WORLD 

1330 


JSR 

FLIPIT 

I DO IT 

1 332 


LDA 

#CR 

1 CARR RET 

1334 


JSR 

PUTCHR 

P DO IT 

1336 


LDA 

#1 

p LOAD TO CLR 

1338 


JMP 

CLRFAK 

1 EXIT GRACIOUSLY 

1340 

SORRY 

LDX 

#H,FILMS6 

p MSG ADDR 

1342 


LDY 

#I-,FILM96 


1344 


JSR 

FLIPIT 

1 PUT IT UP 

1346 


LDA 

FILEN41 


1 348 


JSR 

DOBOTH 


1330 


LDA 

FILEN 


1332 


JSR 

DOBOTH 


1354 


LDX 

#H,FIMSQ1 

p NEXT 

1336 


LDY 

•L.FIMSQl 


1338 


JSR 

FLIPIT 

P DISPLAY 

1360 


LDA 

FILCNT*! 


1362 


JSR 

DOBOTH 


1364 


LDA 

FILCNT 


1 366 


JSR 

DOBOTH 


1368 


LDX 

#H,FIMS82 

P LAST 

1370 


LDY 

«L,FIMSG2 


1372 


JSR 

FLIPIT 

P DISPLAY 

1374 


LDA 

#0 

P CLEAR FILCNT 

1376 


STA 

FILCNT 


1378 


STA 

FILCNT*! 


1 380 


JMP 

COMMEX 

P NOW EXIT M/ERROR 

1382 





1 384 

I• MORE 

SUBROUTINES • 


1386 

1 * 

FOLLOW 

• 


1380 





1 390 

I 




1392 

FLIPIT 

LDA 

DISMS6*! 

p OLD PTR 

1394 


STA 

TEMPI 
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1396 


LDA DISMSB*2 



139B 


STA TEMP? 



1400 


STY DI8MSQ+1 

1 

POINT TO 

1402 


9TX DI3M9B*2 

I 

NEW M9G 

1404 


JSR MSG 

f 

PUT UP THE MSG 

1406 


LDA TEMPI 

1 

RESTORE OLD 

1408 


STA DISMSG+l 

1 

MSG POINTER 

1410 


LDA TEMP2 



1412 


8TA DI9M8B*2 



1414 


LDX TEMPX 

1 

RESTORE XfcY 

1416 


LDY TEMPY 

1 

ALSO 

1418 


RTS 

1 

THEN RETURN 

1420 

SETUP 

LDA TOP9EC 

I 

SECTOR M3B 

1 422 


STA DAUX2 

1 

STORE FOR NXT READ 

1 424 

BETUP2 

LDA CA8BUF+126 

1 

SECTOR L8B 

1426 


STA DAUXl 

1 

STORE FOR NXT READ 

1428 


RTS 

1 

AND RETURN 

1430 

DISNAh 

LDX 00 

1 

START AT ZERO 

1432 

8E7M0R 

LDA NAMBUF,X 

1 

GET LETTER 

1434 


JSR SAVXY 



1 436 


JSR PUTCHR 

I 

DISPLAY 

1438 


JSR RE3XY 



1440 


INX 



1442 


CPX •!! 



1444 


BCC GETMOR 



1446 


RTS 

1 

GO BACK..JACK 

1448 

1«••••• 




1430 

I* HERE 

ARE THE MSGS • 



1452 





1434 

( 




1436 

NAME 

.BY ’FILE: ' NULL 



1 458 

9ECM8G 

.BY 8P 9P 8P BP ' START SECTOR:*' NULL 

1 460 

DELM80 

.BY ' IS DELETED••' 

BELL BELL CR NULL 

1462 

LINKER 

.BY CR 'FILE NUMBER 

MISMATCH AT SECTOR' ESC 

1464 


.BY NULL 



1466 

ODAMSG 

.BY CR 'CHECK PREVIOUS 

SECTOR LINKS!!' 

1 468 


.BY BELL BELL NULL 



1470 

RDMSG 

.BY 'CANNOT READ SECTOR;' ESC RAR '*' BELL 

1472 

NGMSa 

.BY CR 'NO ENTRY FOR FILE' ESC RAR BELL 

1474 

3T0PM3 

.BY SP 'END' NULL 



1476 

FILMSG 

.BY CR 'ORIGINAL SECTOR COUNT' 

1478 

FIMSGl 

.BY CR 'ACTUAL SECTORS 

LOADED* 

1 480 

F1M982 

.BY CR 'SHORT FILE 

ERROR? • ' 

1482 

DELETE 

LDX •H.DELMSS 

1 

POINT TO 

1484 


LDY •L,DELM3a 

1 

DELETED 

1486 


JSR FLIPIT 

1 

DISPLAY 

1488 


RTS 

1 

RETURN 

1490 

RDERR 

LDX •H,RDMSG 



1492 


LDY 01,RDMSG 



1494 


JSR FLIPIT 

1 

DISPLAY 

1496 


LDA DAUX2 

1 

SECTOR HI 

1498 


JSR DOONE 

( 

DISPLAY 

1500 


LDA DAUXl 

I 

SECTOR LD 

1502 


JSR DOBOTH 

1 

DISPLAY 

1504 


LDA tCR 

1 

LINE FEED 

1506 


JSR PUTCHR 

1 

DO IT 

1508 


JMP COMMEX 

1 

AND EXIT 

1510 





1312 

1* TRACE SECTOR VARS * 



1314 





1516 

XCNT 

. BY 0 



1318 

YCNT 

. BY 0 



1520 

TEMPI 

. BY 0 



1322 

TEMP2 

. BY 0 



1524 

TEMPX 

. BY 0 



1326 

TEMPY 

. BY 0 



1328 

CONTIN 

. BY 0 



1530 

FILCNT 

. BY 0 0 



1332 

I***••* 




1334 

1* THIS 

SUBROUTINE DISPLAYS * 



1536 

I* THE 

SECTOR TRACE IN THE * 



1338 

FORM 

>*XXX. DEPENDING ON * 



1340 

1* THE 

FAKFLG VALUE THE 18T* 



1342 

«* VALUE OF EACH LINE WILL * 



1344 

I* BE OF THE FORM •XXX. • 



1346 





1348 

SECDIS 

J8R SAVXY 

1 

SAVE X«<Y 

1330 


LDA FAKFLG 

1 

ONLY tXXX THIS TIME? 

1332 


BEQ DOPREF 

I 

NO-DO >* 

1534 


JSR JU8HEX 

1 

YE8-JU9T* 

1336 


JMP FAKEONE 

1 

THEN JUMP 

1538 

DOPREF 

LDA tESC 

1 

SEND ESC FIRST 

1560 


JSR PUTCHR 

1 

SEND IT 

1562 


LDA MRAR 

I 

LOAD RIGHT ARROW CHAR 

1364 


JSR PUTCHR 

1 

SEND IT 

1366 


JSR JUSHEX 

1 

PUT UP * 

1368 

FAKEONE 

LDA T0P9EC 

1 

GET UPPER NYBLE 

1370 


JSR DOONE 

1 

DISPLAY ONLY LO NYBLE 

1372 


LDA CASBUF-H26 

1 

BET LO BYTE 

1574 


JSR DOBOTH 

I 

DISPLAY IT 

1376 


LDA 00 

1 

LOAD ZERO 

1378 


STA FAKFLB 

I 

CLEAR FAKFLG 

1580 


RTS 

1 

AND RETURN 

1387 


• •«* 



1584 

FAKFLG 

. BY 1 

1 

INITIALLY ONE 

1586 

I••••«» 

**♦♦ 



1588 

I 




1590 





1392 

1* PRINT 1 BYTE ♦ 



1394 

I***•«• 




1396 

OOONE 

J8R CONVERT 

1 

CONVERT TO ASCII 

1398 


JSR ONEBYE 

» 

DISPLAY LO NYBLE ONLY 

1600 


RTS 

1 

AND RETURN 

2000 

1•••»•» 




2005 

I* lOCB 

HANDLER CODE FOR • 



2010 

!• DISKTOOL.THIS CODE MAS* 



2015 

»* WRITTEN TO GET RID OF ♦ 



2020 

» « THE 

UNAUTHORIZED CALL • 



2025 

1* TO THE PUTCHR ROUTINE.* 



2030 

1* THIS 

CAUSED PROBLEMS ♦ 



2033 

I* ON THE 1200XL AND WAS * 



2040 

i * NOT 

A CORRECT METHOD ♦ 



2045 

1 * FOR 

WRITING A CHARAC- * 



2050 

1 * TER 

TO THE SCREEN. * 



2033 

1 * THE 

CIO WAY IS MORE • 



2060 

I* FLEXIBLE AND SHOULD AL* 




2065 

I* LOW 

DISKTOOL 

TO RUN ♦ 



2070 

»* WITH 

ALL ATARI PROD- * 



2073 

I* UCT8 

IN THE 

FUTURE....• 



2080 






2005 

1 





2090 






2095 

I* lOCB 

EQUATES 

FOLLOW • 



2100 






2105 

1 





2110 

I0CB4 

. DE 

*40 

1 

lOCB 4*16 

2115 

lOCBBT 

. DE 

*0340 

1 

START lOCB BLK8 

2120 

ICHID 

. DE 

lOCBOT 

1 

HANDLER ID 

2123 

ICDNUM 

. DE 

1CHID*1 

1 

DEVICE • 

2130 

ICCOM 

. DE 

ICDNUM*! 

1 

COMMAND BYTE 

2135 

ICSTA 

. DE 

ICC0M*1 

1 

STATUS BYTE 

2140 

ICBAL 

. DE 

ICSTA*1 

1 

BUFFER ADDR LOW 

2145 

ICBAH 

. DE 

ICDAL*1 

1 

BUFFER ADDR HIGH 

2130 

ICPTL 

. DE 

ICDAH*1 

1 

POINTER LO 

2153 

ICPTH 

. DE 

ICPTL*1 

1 

POINTER HI 

2160 

ICBLL 

. DE 

ICPTH*l 

1 

BUFF LEN LOW 

2163 

ICBLH 

. DE 

ICBLL*1 

1 

BUFF LEN HI 

2170 

ICAXl 

. DE 

ICBLH*1 

1 

AUX BYTE 1 

2175 

ICAX2 

. DE 

ICAX1*1 

1 

AUX BYTE 2 

2180 

1 





2183 

1 4 SPARE UN-LABELED BYTES 

FOLLOW 

IN lOCB 

2190 

CIOVEC 

. DE 

*E456 

I 

CIO ADDRESS 

2195 

CLOSE 

. DE 

*0C 

1 

CLOSE COMMAND 

2200 

OPEN 

. DE 

*03 

1 

OPEN COMMAND 

2205 

QETCHR 

. DE 

*07 

1 

GET CHAR CMND 

2210 

PUTCAR 

. DE 

• 0B 

1 

PUT CHAR CMND 

2213 

GETREC 

. DE 

*05 

1 

GET RECORD CMND 

2220 

PUTREC 

. DE 

• 09 

1 

PUT REC CMND 

2225 

WRITE 

. DE 

• 08 

1 

WRITE (FOR OPEN) 

2230 

READ 

. DE 

• 04 

1 

READ (FOR OPEN) 

2233 

SPLIT 

. DE 

*10 

1 

SPLIT SCREEN 

2240 

D8PEC 

. BY 

'E;' CR 1 

EDITOR 

DEV 

2245 

1 





2230 







22SS (• NEW PUTCHR 9UBRTN • 


2260 

1 ** 

**** 






2263 

1 * 

A REG HAS CHARACTR* 




2270 

I •• 

ft*** 






2275 

1 







22B0 

PUTCHR 

LDX 

•I0CB4 


P 

lOCB INDEX 

2285 

GOCIOV 

JSR 

CIOVEC 


P 

GO TO CIO HANDLER 

2290 



RTS 



P 

THEN RETURN 

2293 

1 







2300 

1 *• 

*»*» 






2303 

1 * 

INITIALIZE I 

OCB *4 * 




2310 

1 *« 

*»«* 






2315 

P 







2320 

CLRIOC4 

LDX 

•I0CB4 


P 

INDEX TO 04 

2323 



LDA 

•CLOSE 


P 

CLOSE COMMAND 

2330 



STA 

ICCOM,X 


P 

STUFF COMMAND 

2333 



JSR 

CIOVEC 


P 

CLOSE IT 

2340 



LDX 

•I0CB4 


P 

RESET X 

2343 

0PN10C4 

LDA 

• OPEN 


P 

OPEN COMMAND 

2330 



STA 

ICCOM,X 


I 

STUFF IT 

2333 



LDA 

•L,D8PEC 


P 

LOAD ADDR TO E: 

2360 



STA 

ICBAL,X 


P 

STUFF IT 

2363 



LDA 

•H,DaPEC 


P 

ADDR H 

2370 



STA 

ICBAH,X 


P 

STUFF 

2373 



LDA 

•WRITE 


P 

WRITE ONLY 

2380 



STA 

ICAX1.X 


P 

STUFF 

2385 



JSR 

CIOVEC 


P 

GO TO CIO HANDLER 

2390 

1 







2393 

1*1 

tm ••* 




»* 


2400 

1 * 

SET 

JP 10CB4 80 THAT WE CAN 

» 


2403 

1 * 

PASS 

THE CHARACTER TO 

DIS- 

* 


2410 

P • 

PLAY 

IN THE 

A REGISTER 

. THIS* 


2415 

P * 

IS DONE BY USING THE PUTCAR 

* 


2420 

P * 

COMMAND AND 

ENSURING THAT 

* 


2423 

1 * 

THE 

BUFFER LENGTH IS ZERO.. 

• 


2430 

P 





»* 


2435 

P 







2440 



LDX 

•10CB4 


P 

RESET X 

2443 

8ET4 

LDA 

•PUTCAR 


P 

PUT CAR CMND 

2430 



STA 

ICCOM,X 


P 

STUFF 

2453 



LDA 

• 0 


P 

ZAP BUF LEN 

2460 



STA 

ICBLL,X 


P 

ZAP 

2463 



STA 

ICBLH,X 


P 

ZAP 

2470 



PLA 



P 

CLEAR STACK 

2475 



RTS 



P 

RETURN TO BASIC 

3003 






»• 


3010 

P * 

RECOVER FILE CODE FOLLOWS 

* 


3015 






»* 


3020 

P * 

THE 

ACTUAL RECOVER ENTRANCE 

* 


3023 

1 * 

IS AT LABEL 

NOCON. IN 

THE 

* 


3030 

P * 

BASIC PART OF DISKTOOL 

THE 

* 


3035 

P * 

RECOVR FLAG 

IS SET 90 

THAT 

* 


3040 

P * 

THE 

PROGRAM 

WILL JUMP 

HERE 

* 


3045 

'p * 

THIS 

WAS DONE TO SAVE 

SOME 

* 


3050 

P * 

CODE 

REPETITION. 


* 


3035 





*»*«» 

>* 


3060 

DCOMM 

. DE 

770 



COMMAND BYTE 

3065 

DBUFLO 

. DE 

772 



D9K BUF PTR LO 

3070 

DBUFHI 

. DE 

773 



DSK BUF PTR HI 

3073 

1 







3080 

9TSECL 

. BY 

0 



SEC LO STORE 

3083 

8T9ECH 

. BY 

0 



SEC HI STORE 

3090 

RECOVR 

. BY 

0 



RECOVER FLAG 

3093 

DINUML 

. BY 

0 



DIRECTORY NUM LO 

3100 

DINUMH 

. BY 

0 



AND HI 

3103 

VTOC 

. D9 

132 



132 BYTE BUFFER 

3110 

P 







31 15 

DOREC 

STY 

TEMPY 



SAVE STATUS INDEX 

3120 



LDA 

DAUX2 



GET DIR SEC HI 

3123 



STA 

STSECH 



SAVE IT 

3130 



LDA 

DAUX 1 



GET DIR SEC LO 

3135 



STA 

8TSECL 



SAVE IT 

3140 



LDX 

•H,VTOC 



ALT BUF HI ADDR 

3145 



LDY 

•L,VTOC 



ALT BUF LO ADDR 

3130 



STX 

DBUFHI 



9TUF IN lOCB 

3153 



STY 

DBUFLO 



ALSO LO 

3160 



LDX 

• *68 



VTOC SECTOR 360 
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3163 


LDY 

• •01 


i 

IS *0168 



3743 

« 






3170 


STY 

DAUX2 


1 

STUFF MSB 



3730 




LDA 

DINUML 1 

LO BYTE 

3173 


8TX 

DAUXl 


1 

STUFF L8B 



3733 




STA 

DAUXl 1 

STUFF IT 

3180 


JSR 

DSKVEC 


f 

LOAD VTOC INTO ALT 

BUFFE 

3760 




LDA 

DINUMH 1 

HI BYTE 

3183 


BPL 

RESBUF 


1 

IF NO ERROR RESTORE 

OLD 

3763 




STA 

DAUX2 1 

STUFF IT 

3190 


LDX 

•H,VRBAD 


1 

MSS HI ADR 



3770 




JSR 

DSKVEC 1 

GO READ IT 

3193 


LDY 

•L,VRBAD 


1 

LO ADR 



3773 




BPL 

CHKDOS 1 

JMP GOOD RD 

3200 


JSR 

FLIPIT 


1 

DISPLAY IT 



3780 




LDX 

•H.DIRDE 1 

MSB HI 

3203 


JSR 

CLRNAM 


1 

CLEAR NAME 



3783 




LDY 

•L,DIRDE 1 

MSB LO 

3210 


JMP 

RDERR 


1 

ELSE EXIT W/ERROR 



3790 




JSR 

FLIPIT 1 

DISPLAY IT 

3213 

RE9BUF 

JSR 

RESDSK 


1 

RESTORE DSK lOCB 



3793 




JSR 

CLRNAM 1 

CLR NAME 

3220 

1 








3800 




JMP 

COMMEX 1 

ELSE EXIT 

3223 




• •4 





3B03 

CHKDOS 


LDY 

• 0 1 

CLEAR Y REB 

3230 

1* RESTORE INDEX AND CK STATUS » 




3810 




LDA 

VTOC 1 

GET VTOC DOS 

3233 









3813 




CMP 

•DOSMSK 1 

IS IT DOS 2? 

3240 

1 








3820 




BNE 

DOSIFL 1 

NO..DOS 1 

3243 


LDY 

TEMPY 


1 

RESTORE INDEX 



3023 




LDA 

• •42 1 

LOAD FILE USED 

3230 


LDA 

(PAQE0),Y 


1 

BET STATUS 



38.30 




BNE 

STOSTA 1 

AND BRANCH 

3233 


BNE 

STOFIL 


1 

JMP IF ENTRY 



3833 

DOSIFL 


LDA 

• •40 1 

ELSE ONLY USED 

3260 


JMP 

NOENT 


1 

ERROR SO JMP 



3840 

STOSTA 


STA 

(PAGE0>,Y 1 

STORE NEW STATUS 

3263 

STOFIL 

STA 

FILSTA 


1 

ELSE SAVE STATUS 



3843 




LDA 

• ’ W 1 

LOAD WRITE COMMAND 

3270 


BIT 

FIL3TA 


I 

FILE DELETED FOR SURE?? 

3830 




STA 

DCOMM 1 

STUFF IN DSK lOCB 

3273 


BPL 

F1U8ED 


t 

NO•• USER PLAYINB 

TRICKS 

3833 




JSR 

DSKVEC 1 

WRITE OUT DIR SEC 

3280 


LDX 

•H,PASSl 


1 

OK..ITS DELETED 



3860 




BPL 

WFINE 1 

JMP GOOD WRITE 

3283 


LDY 

•L,PASSl 


1 

NOTIFY USER WHAT9 

HAPNIN 

3863 




JSR 

RESDSK 1 

RESTORE DSK lOCB 

3290 


JSR 

FLIPIT 


1 

DISPLAY MSa 



3870 




JSR 

CLRNAM 1 

ERROR CLR NAME 

3293 

1 








3873 




LDX 

•H.DIRWE 1 

MSB HI 

3300 




**4 

4*»** 




3880 




LDY 

•L,DIRME 1 

MSB LO 

3303 

1• TRACE 

SECTORS FOR CONTINUITY# 




3883 




JSR 

FLIPIT 1 

DISPLAY 

3310 




*•« 

4»*4I44 




3890 




LDA 

0AUX2 1 

SECTOR MSB 

3313 

1 








3893 




JSR 

DOONE 1 

DISP 1 DIBIT 

3320 


LDA 

3TSECH 


1 

RESTORE SEC HI 



3900 




LDA 

DAUXl f 

SECTOR LSB 

3323 


STA 

DAUX2 


1 

STUF IN lOCB 



3903 




JSR 

DOBOTH 1 

DISP 2 DIGS 

3330 


LDA 

STSECL 


1 

BET SEC LO 



3910 




LDX 

•H,DIRWE2 1 

PT2 HI 

3333 


STA 

DAUXl 


1 

STUF IT TOO 



3913 




LDY 

•L,DIRWE2 1 

PT2 LO 

3340 

VERIFY 

JSR 

DSKVEC 


1 

BET A SECTOR 



3920 




JSR 

FLIPIT 1 

DISPLAY 

3343 


BPL 

vao 


1 

JMP GOOD READ 



3923 




JMP 

COMMEX 1 

EXIT W/ERROR 

3330 


JSR 

0I8NAM 


1 

DIPLAY NAM 



3930 

WFINE 


JSR 

RESDSK 1 

RESTORE DSK lOCB 

3333 


JSR 

CLRNAM 


1 

CLR NAME 



3933 




LDX 

•H,DIRENT » 

DIRECTORV DONF MSB 

3360 


LDX 

•H.FIRDE 


1 

MSB HI ADR 



39 4 0 




LDY 

•L,DIRENT 1 

AND LO 

3363 


LDY 

•L.FIRDE 


1 

MSB LO ADR 



3943 




JSR 

FLIPIT t 

WRITE IT 

3370 


JSR 

FLIPIT 


1 

DISPLAY MSG 



3930 

1 






3375 


JMP 

RDERR 


1 

EXIT W/ERROR 



3933 

1 »« 

• »« 


*•** 



3380 

VQO 

JSR 

WEIRD 


1 

EXTRACT LO/HI NXT 

SECTOR 

3960 

1 * 

NOW 

RETRACE 

EACH SECTOR AND * 


3383 


INC 

FILCNT 


1 

INC SECTOR COUNTER 



3963 

1 * 

UPDATE 

THE BIT MAP TO FULLY * 


3390 


BNE 

VBOON 


I 

BRANCH NO WRAP 



397 0 

c * 

RECOVER 

THE 

FILE..DO NOT FOR-* 


3393 


INC 

FILCNTfl 


1 

ELSE INC HI 



3975 

1 • 

GET 

TO 

DECREMENT THE • OF SEC* 


3400 

VQOON 

LDA 

FILNUM 


1 

BET FILE • TO WHICH 

SEC 

3980 

I * 

TORS AVAILABLE FOR EACH SEC- • 


3405 


CMP 

FI NUMB 


1 

SAME AS 1 WE SEEK? 



3983 

1 * 

TOR 

THAT IS 

ALLOCATED... • 


3410 


BNE 

NOREC 


1 

NO..FILE NOT RECOVERABLE 

3990 


♦ »* 

»*** 

**»» 



34 13 


LDA 

CA9BUF<M26 


2 

YES. GET LO POINTER 


3993 

1 






3420 


ORA 

T0P3EC 


1 

OR WITH HI SECTOR 



4000 




LDX 

• H.REAl.O 1 

REALOCATE MSG 

3423 


BEQ 

CKSECN 


1 

IF ZERO..TRACE IS 

DONE 

4005 




LDY 

•L,REALO I 

HI /LO 

3430 


JSR 

SETUP 


f 

ELSE SETUP NXT READ 


4010 




JSR 

FLIPIT » 

DISPLAY 

3433 


JMP 

VERIFY 


2 

AND GET NXT SECTOR 



4013 




LDA 

STSECL 1 

LO SEC 

3440 

1 








4020 




STA 

DAUXl 1 

STUFF IT 

3445 




*»« 

• «*» 




4023 




LDA 

STSECH 1 

HI SEC 

3430 

1* PASSl 

ERROR 

PROCESSING 

HERE * 




4030 




STA 

DAUX2 1 

STUFF IT 

3433 




• •4 

^»*»4» 




4033 

RREC 


JSR 

DSKVEC 1 

GET A SECT 

3460 

1 








4040 




BPL 

RBO 1 

JMP GOOD RD 

3463 

FIU3ED 

JSR 

DISNAM 


2 

DISPLAY FILE NAME 



4043 




LDX 

•H.FIRDE 1 

MSB HI 

3470 


LDX 

•H,NODEL 


1 

MSG HI 



4030 




LDY 

•L.FIRDE 1 

MSB LO 

3473 


LDY 

•L,NODEL 


1 

MSB LO 



4033 




JSR 

FLIPIT 1 

DISPLAY 

3480 


JSR 

FLIPIT 


1 

DISPLAY IT 



4060 




JSR 

CLRNAM 1 

CLEAR NAME 

3483 

EU9E 

JMP 

COMMEX 


1 

EXIT WITH ERROR 



4063 




JMP 

RDERR 1 

80 READ ER 

3490 

NOREC 

LDX 

♦H,LINKER 


1 

MSB HI 



4070 

RQO 


JSR 

FINDIT 1 

FIND VTOC BYTE 

3495 


LDY 

»L,LINKER 


1 

MSS LO 



4073 




JSR 

WEIRD 1 

BET NXT SEC 

3300 


JSR 

FLIPIT 


1 

DISPLAY 



4080 




LDA 

CAS6UF*126 1 

GET LO PTR 

3303 


JSR 

JU8HEX 


1 

PUT UP A • 



4083 




ORA 

TOPSEC I 

OR WITH HI 

3310 


LDA 

0AUX2 


1 

HI SEC • 



4090 




BEQ 

RECDON 1 

IF 0 WE FINEETO 

3313 


JSR 

DOONE 


1 

DISPLAY ONLY LO NYBLE 

4093 




JSR 

SETUP 1 

ELSE SET NXT READ 

3320 


LDA 

DAUX 1 


1 

LO SEC NUM 



4100 




JMP 

RREC 1 

AND DO IT 

3323 


JSR 

DOBOTH 


2 

DISPLAY WHOLE THINB 


4105 

1 






3330 


LDA 

•CR 


1 

LOAD CRET 



4 1 10 

I ** 

h*** 

*«»• 

»»»* 



3333 


JSR 

PUTCHR 


1 

DISPLAY 



41 13 

1 • 

RECOVER 

FILE CLEAN UP CODE. * 


3340 


LDX 

•H,NAME 


1 

FILE; MSB 



4 120 

1 * 

SAVE NEW VTOC, CLEAR FLAGS, * 


3343 


LDY 

•L.NAME 


1 

LO ADDR 



4123 

1 • 

PUT 

UP 

SUCCESS MSB AND RET. * 


3330 


JSR 

FLIPIT 


1 

PUT UP MSB 



4 130 

1 * 

TO 

BASIC. FILE IS RECOVERED.* 


3333 


JSR 

DISNAM 


1 

PUT UP FILE NAME 



4133 

1 * 

(PLEASE 

LET 

IT BE RECOVERED)* 


3360 


LDX 

•H^NORECO 


1 

NON-RECOVER MSB HI 



4 140 

I *« 

h«»* 

** •* 

**** 



3363 


LDY 

•L,NORECO 


1 

MSB LO 



4143 

1 






3370 


JSR 

FLIPIT 


1 

DISPLAY 



4130 

RECCON 


LDX 

•H.VTOC 1 

BUF PTR H 

3373 


JSR 

CLRNAM 


1 

CLEAR FILE NAME 



4133 




LDY 

•L.VTOC 1 

BUF PTR L 

3380 


BEQ 

EUSE 


1 

EXIT W/ERROR 



4160 




STX 

DBUFHI 1 

STUFF IT 

3383 

DOOM 

JSR 

DISNAM 


1 

DISP NAME 



4 163 




STY 

DBUFLO 1 

STUFF IT 

3390 


JSR 

CLRNAM 



CLR NAME 



4 170 




LDX 

• •68 ) 

SECTOR 360 

3393 


LDX 

•H,NORECO 


1 

ADR HI 



4173 




LDY 

• •01 1 

« •0168 

3600 


LDY 

•L,NORECO 


I 

ADR LO 



4180 




STX 

DAUXl 1 

STUFF 

3603 


JSR 

FLIPIT 


I 

DISPLAY IT 



4183 




STY 

DAUX2 1 

STUFF 

3610 


JMP 

SORRY 


1 

CONTINUE ER 



4 190 




LDA 

• * W 1 

WRITE COM 

3613 

1 








4193 




STA 

DCOMM 1 

STUFF IT 

3620 





4*«*44 




4200 




JSR 

DSKVEC 1 

WRITE IT 

3623 

1 « CHECK 

TO SEE THAT LENBTH 

IN * 




4203 




BPL 

VOUTOK 1 

JMP GOOD W 

3630 

I* DIRECTORY MATCHES LEN 

OF 

FIL* 




4210 




LDX 

•H.VBAD 1 

GET MSB 

3633 




♦ *4 

4**4»* 




4213 




LDY 

•L,VBAD 1 

ADDRESS 

3640 

1 








4220 




JSR 

FLIPIT 1 

DISPLAY IT 

3645 

CKSECN 

LDA 

FILEN 


f 

ORIBINAL LO 



4223 




JSR 

RESDSK 1 

RESTORE DSK lOCB 

3630 


EOR 

FILCNT 


1 

OR W/COUNT 



4230 




JMP 

COMMEX 1 

EXIT W/ERR 

3633 


BNE 

DOOM 


1 

NO..ERROR 



4233 

VOUTOK 


JSR 

RESDSK 1 

RESTORE lOCB 

3660 


LDA 

FILEN+1 


1 

ORIS HI 



4240 




vlSR 

DISNAM 1 

DISP NAME 

3663 


EOR 

FILCNT+1 


t 

OR ALSO 



4243 




LDX 

•H.SUCCES 1 

SUCCE8 MSG 

3670 


BNE 

DOOM 


2 

BO IF ERROR 



4230 




LDY 

•L.SUCCES 1 

ADDREBS 

3673 


STA 

FILCNT 


2 

CLR COUNTER 



4233 




JSR 

FLIPIT 1 

DISPLAY IT 

3680 


STA 

FILCNT+l 


2 

LO/HI 



4260 




JSR 

CLRNAM 1 

CLEAR NAME 

3683 

1 








4263 




STX 

RECOVR 1 

CLEAR RECOVER FLAG 

3690 




• •4 

»*«4»« 




4270 




JMP 

EXIT2*1 » 

RETURN TO BASIC*' 

3695 

%• BEGIN 

PASS 

2 OF FILE RECOVER* 




4273 

1 






3700 




«»< 





4280 

1 ** 

htt*» 

**** 

• *** 



3703 

I 








4283 

1 ♦ 

SUBROUT 

INE RESDSK: RESTORES » 


3710 

PA932 

LDX 

• H, OK 


2 

OK MSB HI 



4290 

1 * 

THE 

DISK lOCB TO A READ CON- • 


3713 


LDY 

• L, OK 


2 

AND LO 



4293 

1 * 

DITION 

AND POINTS THE BUFFER * 


3720 


JSR 

FLIPIT 


2 

DISPLAY 



4300 

1 * 

TO 

CA8BUF. 

• 


3723 

1 








4303 


*•» 

• *•« 




3730 




• •4 

»••• 




4310 

1 






3733 

GET DIRECTORV FOR OUR 

FILE * 




4313 

RESDSK 


LDX 

•H.CASBUF 1 

BUF HI 

3740 




*»4 

»»*4» 




4320 




LDY 

•L.CASBUF 1 

BUF LO 
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4323 

STX 

DBUFHT 

» STUFF 

4330 

STY 

DBUFLO 

% STUFF 

4333 

LDX 

#* R 

f READ COM 

4340 

8TX 

DCOHM 

1 STUFF 

4343 

RTS 


1 RETURN 


4330 

4333 

4360 

4363 


|« SUBROUTINE FINDIT; FINDS THE* 
I* APPROPRIATE BYTE OF THE VTOC* 
4370 I* AND THE PROPER BIT OF THAT * 
4373 I* BYTE WHICH REPRESENTS THE * 
4380 I* CURRENT SECTOR OF OUR FILE. * 
4383 I* THE SECTOR NAP IS UPDATED TO* 
4390 I* ALLOCATE THE CURRENT SECTOR * 
4393 I* AS BEIN0 USED. IN ADDITION, * 


4400 

1 * THE 

NUMBER 

OF FREE sectors' * 


4403 

1* AVAILABLE 13 DECREMENTED 80 * 


4410 

1* THAT DOS DOESNT 30 BANNANA8.* 


4413 






4420 

1 





4423 

FINDIT 

LDA 

• 0 


CLEAR OUT A 

4430 


LDY 

• 3 


PREP FOR /a 

4433 

FIND0 

L3R 

DAUX2 


DIVIDE BY SHIFTING 

4440 


ROR 

OAUX 1 


SAME FOR LO 

4443 


ROR 

A 


AND ALSO A REG 

4430 


DEY 



DEC CNTR 

4433 


BNE 

FIND0 


DO 3 SHIFTS TO DIV 

4460 


LDY 

»S 


DETERMINE 3HFT CNT 

4463 

FINDl 

ROR 

A 


ROTATE BIT IN A REG 

4470 


DEY 



DEC CNT 

4473 


BNE 

FINDl 


DO 3 TIMES 

4480 


TAY 



USE AS CNTR IN Y 

4483 


LDA 

«0 


CLEAR A 

4490 


SEC 



SET OUR BIT IN CARRY 

4493 

FIND2 

ROR 

A 


AND SHIFT TO PROPER 

4300 


DEY 



DEC SHFT CNT 

4303 


BPL 

FIND2 


SHFT TIL NEGATIVE 

4310 


PHA 



SAVE THE PROPER BIT 

4313 


LDA 

DAUXl 


GET VTOC BYTE NUMBER 

4320 


ADC 

«f0A 


ADD VTOC OFFSET 

4323 


1 AY 



INDEX OF VTOC BYTE 

4330 


PLA 



PULL. THE MASK 

4333 


EOR 

VTOC,Y 


CLEAR SECTOR BIT 

4340 


8TA 

VTOC,Y 


PUT BACK IN VTOC 

4343 


DEC 

VT0C-*-3 


DEC AVAILABLE SECTORS 

4330 


LDA 

VTOC •►3 


GET VAL 

4333 


CMP 

• •FF 


DID WE FLIP9 

4560 


BNE 

NOHI 


NO.RETURN 

4363 


DEC 

VT0C-»-4 


ELSE DEC HI 

4370 

NOHI 

RTS 



AND RETURN 

4373 

1»••»«« 





4380 

I* RECOVER FILE MESSAGES 

FOLLOW* 


4383 






4390 






4393 

PAS81 

. BY 

TAB 'PA331 

- * 


4600 


. BY 

• CHECKINS 

FILE CONDITION’ CR NULL 

4603 

NODEL 

. BY 

' IS NOT DELETED•? 

’ CR BELL NULL 

4610 

NQRECO 

. BY 

•, CANNOT 

BE RECOVEREDM* BELL CR NULL 

4613 

OK 

. BY 

•FILE INTACT* CR TAB *PA332 - • 

4620 


. BY 

•RECOVERING FILE* 

:r null 

4623 

DIRENT 

. BY 

• DIRECTORY 

ENTRY DONE’ CR NULL 

4630 

REALO 

. BY 

•REALLOCATING DELETED SECTORS’ CR NULL 

4633 

BUCCES 

. BY 

’ HAS BEEN 

RECOVERED*’ BELL CR NULL 

4640 

VBAD 

. BY 

•ERROR IN 

VTOC WRITE!!’ BELL CR NULL 

4643 

VRBAD 

. BY 

•ERROR IN 

VTOC READ ••• BELL CR NULL 

4630 

FIRDE 

. BY 

•FILE READ 

ERROR ' • 

BELL CR NULL 

4633 

DIRDE 

. BY 

• DIRECTORY 

READ ERROR*’ BELL CR NUl.L 

4660 

DIRWE 

. BY 

• DIRECTORY 

WRITE ERROR*’ ESC RAR 

4663 

DIRWE2 

. BY 

BELL CR NULL 


00.34 


. EN 





LABEL 

FILE: 





AROUND -1E0F 

A52BIN -1E6S 

ASBINl -IE6E 

A9TART -ICFC 

BELL -00FD 

CA3BUF -03FD 

CHQLNK »IFFC 

CHKD03 -2318 

CHN8BY -IE31 

CHRCNT -1D81 

CIOVEC -E436 

CKDOOM -1DC3 

CKD03 -lEEA 

CKLOCK -lEDE 

CK8ECN -24DD 

CKSTA -lECA 

CKU8ED -IED7 

CLENUP -IFD7 

CLOSE -000C 

CLRFAK -212F 

CLRI0C4 -233F 

CLRNAM •IFCC 

CLR8PA -IFD0 

CL8 -007D 

COMMEX -212A 

CONASC -IDB8 

CONTIN -22FE 

CONVERT -IDF3 

CR -009B 

DAUXl -030A 

DAUX2 00308 

DBUFHI -0303 

DBUFLO -0304 

OCUMM -0302 

DELETE -22D3 

DELM9Q -2203 

DERR -ID34 

DINUMH -2377 

DINUML -2376 

DIRDE -2726 

DIRENT -2698 

DIRWE -273E 

DIRWE2 -2736 

DISMSQ -1887 

DISNAM -21D4 

DI9PFL -IF12 

DISPLY -IDDE 

DMPA3C -1D41 

DOASEC -20F2 

DOBOTH -lE8e 

DOEXT -1F2C 

DOOM -24CD 

DOONE -232F 

DOPREF -230F 

DOREAD -20CC 

DOREC -23FC 

DORETN -20C2 

DOai -IEF9 

OOaiFL -2323 

DOSMSK -0002 

ORIVON -20D4 

D8KVEC -E433 

DSPEC -2336 

D8PHEX -1D19 

ENDM38 -ID99 

ENTLNK -1FF4 

ERRFLB -1D7E 

ERRTRP -2048 

ESC -001B 

EUSE "2499 

EXIT -1D37 

EXIT2 -1D3F 

FAKEONE -231C 

FAKFL8 -232E 

FILCNT -22FF 

FILEN -IFEA 

FILM3Q -228B 

FILNUM -ID84 

FILOOP -1E9C 

FIL9TA -IFEC 

FIM9Q1 -22A5 

FIM3G2 -22BF 

FIND0 -2SEE 

FINDl -23FA 

FIND2 -2602 

FINDIT -23EA 

FINUMB -1FF3 

FIRDE -2713 

FI8TAR -lEBF 

FIU3ED -248F 

FLIPIT -219F 

8ETCHR -0007 

QETIT -ID4C 

QETLEN -IEB3 

QETMOR -21D6 

8ETNAM -IEA0 

QETREC -0003 

GET3TA -lEAD 

80CIQV -233B 

BOON -20DF 

HEADER -ID9A 

HIADR -IE17 

HIHEX -1DF2 

HX2BIN -IE47 

ICAXl -034A 

ICAX2 -034B 

ICBAH -0343 

ICBAL -0344 

ICBLH -0349 

ICBLL -0348 

ICCOM -0342 

ICDNUM -0341 

ICHID -0340 

ICPTH -0347 

ICPTL -0346 

IC8TA -0343 

INDEX -1E38 

I0CB4 -0040 

lOCBST -0340 

IT9USD -20A0 

JPONT -1E83 

JUSHEX -1E2B 

LA9M38 -2123 


LINKER -2214 

LQADIT -204F 

LOADR -1E16 

LOCKED -0020 

LDHEX -IDFl 

LT9 -1DC0 

MAKBIN -1E6F 

MESAQE -1D06 

MSG -1083 

NAMBUF -IFDD 

NAME «21Ea 

NEWLNK -2002 

NOCON -2029 

NODEL -2644 

NOENT -2090 

NOERR -2048 

NOFLIP -IFBC 

NOHI -2621 

N0H18Y -IF9E 

N0M9G -226F 

NOREC -249C 

NORECO -2638 

NOTASC -IE34 

NULL -0000 

NXTSEC -1FA9 

0DAM9G -2236 

OK -2672 

ONEBYE -1DE7 

ONMOER -2114 

OOPS -210A 

OPEN -0003 

OPNIOC4 -234B 

OUT -IDDD 

OUTFIL -lEFE 

PAGE0 -00CD 

PAS91 -2622 

PASS2 -24F3 

PERIOD -002E 

PREFIX -1E26 

P8TATU -IF70 

PUTCAR -000B 

PUTCHR -2339 

PUTLEN -IF38 

PUTLTR -IF72 

PUTREC -0009 

PUT3EC -IF04 

PUT3TA -IF46 

RAR -001F 

RDERR -22DD 

RDM30 -2237 

READ -0004 

REALO -26AE 

RECDON -2399 

RECnVR -2373 

REDIR -lEBF 

RESBUF -2431 

RE3D3K -23DA 

RE9XY -lElF 

R0O -2383 

RREC -2373 

3AVEX -1D7F 

SAVEY -1DB0 

SAVXY -1E10 

SECD19 -2301 

9ECMAX -IFF2 

3ECMSQ -21EF 

9Er4 -2364 

SETUP -21C7 

SETUP? -21CD 

3ETY -20BD 

SORRY -2167 

BP -0020 

SPACEl -1DB2 

9PACE2 -IDAF 

SPLIT -0010 

START -ICFC 

3TA9EC -IFEB 

STCHK -2078 

3T0FIL -243E 

STORMS -2286 

3T03TA -2327 

3T.3EGH -2374 

STSECL -2373 

3TUFIT -1E57 

SUBPER -IDDB 

SUCCES -26CC 

TAB -007F 

TEMP -1E64 

TEMPI -22FA 

TEMP2 -22FB 

TEMPX -22FC 

TEMPY ••22FD 

TOaOLE -IFFl 

TOPSEC -ID83 

TRA3EC -2020 

UPDATE -IE06 

VBAD -26E3 

VERIFY -2439 

V0O -246E 

VGOON -2479 

VOUTOK *-2304 

VRBAD -26FB 

VTOC -2378 

WEDONE -2140 

WEIRD -2010 

WFINE -2336 

XCNT -22F8 
//0000,2739.B33D 

WFLAQ -1082 

YCNT -22F9 

WRITE -0008 


Listing 5. 


le REM 

15 REM » DISK TOOL BASIC PROGRAM * 

20 REM * BY TONY MESSINA CC) 1S82K 
25 REM N MXMXMXMKMKXKKXKICKMMKXJ H C X X3 €^» 

30 POKE 82,0:REM *KLFT MAR TO 0 KN* 

35 REM 

40 REM XXXXXXX^X - XXKXXKMXXXXKXXXXXXXX 
45 REM * UARIABLE/CONSTANT/STRINGS N 
50 REM * INITIALIZATION FOLLOWS N 
55 REM X- X - ^X - KKXXXXKXXX - KXXXMXXXXXXXXX X 
60 REM * CONSTANTS FOLLOW ^ 

65 REM * THE FOLLOWING CONSTANTS ^ 

70 REM * ARE USED TO MAKE THE DSK- * 

75 REM * TOOL LISTING EASIER TO K 
80 REM ¥r READ. IT ALSO PROUIDES A « 

85 REM * CENTRAL LOCATION FOR ISO- K 
90 REM ^ LATING ADDRESS POINTERS INK 
95 REN K ORDER TO MAKE mOIFICATIONK 
100 REM K OF THE PROGRAM EASIER. * 
105 REM K ENTRIES ARE ALPHABETICAL. * 
110 REM K SEE THE CONSTANTS DESCRIP-* 
115 REM * TION SECTION OF THE DOCU- * 
120 REM * MENTATION FOR DEFINITIONS.* 
125 REN XXXXXXXKKXXXXXKXXXXXXXXXXXXXK 
130 REM 

135 BACKGND=710:BLACK=0:60RDER=712:BUF 
01=773:BUFL0=772:BUFPTR=126:CASBUF=102 
1:CASPTR=CASBUF+BUFPTR 

140 CHAR=709:CHNGBV=7729:CKLIM=475:CKR 
OLM=590:CKR0LP=550:CLI0C4=9023;CNTIN=8 
958:DAUX1=778;DAUX2=779 
145 DBVHI=777:DBVL0=776;DC0MN=770:DECH 
EX=1360:DUNIT=769:ENTLNK=8180:ERRFLG=7 
550:ERTRAP=625:FILNUM=7556 
150 FINUHB=8179:GREEN=214:GSEC=82;HEXD 
EC=1270:HIL0=515: ME5AGE=7430:NWLNK=819 
4;PCHANGE=1085:PDIR=1420 
155 PHELP=1190:PLUSMIN=865;PH0D=1645:P 
PR1NT=:1530 : PREC0VER=1930: PR0CINP=745: P 
SEC=87 : PSET=2030 .’ PTRACE=1795: PWRITE=95 
0 

160 RECOVR=9077:RED=64:REDIR=7823:SCRO 

LL=660 : SETDSK=40e ; SETSCRN=705 : STARTi:74 

20;T0PSEC=7555;TRASEC=8224 

165 TURQ=186 : IR^LAG=7554 ; l«fITE=10 : YELLO 

W=26 

170 REN 

175 REM XXXXXXXXKXXXXXXXXXXXXXXXXXXXX 
180 REM * UARIABLES FOLLOW * 
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185 REM * 
190 REM * 
195 REM * 
200 REM * 
205 REM * 
210 REM * 
215 REM * 
220 REM * 


THE FOLLOHING ORE UORIO- * 
BLES SET TO THEIR DEFAULT * 
U0LUE5 INDICATED DURING « 
PROGRAM INITIALIZATION.SEE« 
UARIABLE DESCRIPTION SEC- * 
TION OF DOCUMENTATION FOR « 
LIST OF ALL VARIABLES AND * 
THEIR PURPOSE. * 

225 REM 
230 REM 

235 DRIVE=1:HELPrl;SECHIzO:SECL0M=1:SE 

CNUMrl 

240 REM 

245 REM MX K MMICMi e i t^ M ^ MKICNKMMMN N NKMICXI H t 
250 REM * STRING INIT FOLLOMS « 
255 REM * SEE STRING DESCRIPTION « 
260 REM « SECTION OF DOCUMENTATION M 
265 REM « FOR DESCRIPTION AND USES « 
270 REM » OF THE FOLLOMING STRINGS.« 
275 REM i mi H CNICK i CICIClCKKICK ie iCKMKKMKICMK I CM 
280 REM 

285 DIM A$C48I,AN$C1),HEXREP$C4),HEXTA 
B$(16) 

290 HEXTAB$=>‘0123456789ABCDEF" 

295 REM 

300 REM XXMKKKICXXKMKMKMMKKICKMKXKKKMX 
305 REM ^ UARIABLE/CONSTANT/STRING N 
310 REM « INITIALIZATION END N 

315 REM X X N»MKICMXICXXKXKKKKKKMXKXXKMX 
320 REM 

325 TRAP ERTRAP 
330 GOSUB SETDSK 

335 X=USRCCLI0C4I:REM CLR lOCB 4 
340 GOTO PHELP 
345 REM 

350 REM MXKMKKKMMXKXX - MXXXMMXXMMX - X 
355 REM XCOMMON PROGRAM SUBROUTINES X 
360 REM XXXMXXXXXXXXKXXXXXXXXXXXXXXXX 
365 REM 

370 REM XX XXXXXXX XXXXXXX » XXXXXXXXXXX 
375 REM X Hi«Man X 

380 REM X SET UP DISK VECTOR TABLE X 
385 REM X X X XXXXXXXXXXXXXXXXXXXXXXKXX 
390 REM 
395 REM 

400 POKE DUNIT,DRIVE:REM XX DRIVE tt 
405 POKE DCOMM,GSEC;REM XX FOR READ 
410 POKE DAUXl.SECLOH 
415 POKE DAUX2«SECHI 

420 POKE BUFL0,253:REN XX LOM BUF ADR 
C$FD3XX 

425 POKE BUFHI,3:REM XXHI BUF ADR C$03 
) XX 

430 POKE DBYL0,127:REM XX GET 128 BYTE 
S Cl SECTOR} XX 

435 POKE DBYHI,0:REM XX NO HI XX 
440 RETURN 
445 REM 

450 REM XX XXKXXX XKXXXXX X XXXXXXXXXXXXX 
455 REM X nriWTII X 

460 REM X CK SECNUM LIMITS <1 >720 X 
465 REM X XXXXXXXXXXXKXXXXXXXXXXXXXXXX 
470 REM 

! POP :GOTO PROCINP 

480 RETURN 
485 REN 

490 REH MM ICKMKK MKlCMMMMICICMICMICMMMItMMMlt 
495 REN * UUIiB » 

500 REN «BREAK SECNUH TO HI/LO FORWt 
505 REN WKKKieiCmCKKKKKM i CKICKmCWKKKICKKIC 
510 REN 

515 SECHI=INTCSECNUN/256):SECLOU=INTCS 
ECNUN-CSECHI»25e)]:RETURN 
520 REN 

525 REN MW mCMKMMlC KMKKICICItKlCICKICICKKlCICIC 

526 REN « [gailillJl * 

530 REN « ROLL SECTOR NUN TO 1 IF « 

535 REN * >720 « 

540 REN KMKmCKKMKKMKKmiMKKKKKKItKMKM 
545 REN 

550 IF SECNUN>720 THEN SECNUN=1 
555 RETURN 
560 REN 

565 REN KK KItmiMKM MmtKICKKKICKlCICKKMMKM 

566 REN * MSiJilNZn K 


570 REN « ROLL SECTOR NUN TO 720 * 

575 REN * < 1 * 

580 REN Ni CKNWMKICKmtMKKKKMMKIOCMIC It lUtW 
585 REN 

590 IF SECNUN<1 THEN SECNUN=720 
595 RETURN 
600 REN 

605 REN MM KlCMKKMK lCICmtMK j CKKKMMWmimtW 

606 REN * « 

610 REN * GOHERE ON ERROR * 

615 REN KKKMHHKKKKKMKKKKKKKKKMKXKXM 
620 REN 

625 ? " !POKE CHAR.BLA 

CKSPOKE BACKGND,GREEN STRAP ERTRAPSGOTO 
PROCINP 
630 REN 

635 REN KIC KMICICMKK ItMMItKIIMKKKKKMKKmtM 

636 REN « EraailRW W 

640 REN » SCROLL 5 LINES * 

645 REN « FRON THE BOTTON OF SCRN « 

650 REN KXMMHMKXKKMHKK X XXMXMMMKMKXH 
655 REN _ 

660 POSITION 0,17s? ■■ CIXIH " SPOSITION 0 
,17 s RETURN 
665 REN 

670 REN KK KKICKKKKK mCKKMKKICKmCKICICKltM 

671 REH * » 

675 REN * SET SCREEN TO » 

680 REN * DEFAULT COLORS OF GREEN X 
685 REN « BACKGND,WHITE BORD,BLACK* 

690 REN » LETTERS. X 

695 REH KWMICKItItKICKKKKIdtICICKKMMMMIIICKK 
700 REH 

705 POKE BORDER,WHITE SPOKE CHAR,BLACKS 
POKE BACKGND,GREENS RETURN 
710 REH 

715 REN WK KKKWKM KKMICICItmCMKKMICKltKICMKK 
720 REN * lsl;Ii»il!l(3B x 

725 REN * HAIN CONHAND/INPUT PROC- * 
730 REN * ESSING PORTION FOLLOWS * 
735 REN MltmCICICIC i CMKICICICKKlCmilCMICMlCMMICMK 

740 REN _ 

*L HUsIsM.'f Js>M4 = DRIVES? " 
Ji»ft isM;iu;iaa;i ";; input a$ 
750 IF AS=**H" THEN HELP=lsGOTO PHELP 
755 IF A$="P" THEN GOSUB PPRINTsGOTO P 
ROCINP 

760 IF AS="T'' THEN GOTO PTRACE 
765 HELP=0 

770 IF AS=”+" OR AS=*'" THEN SECNUH=SEC 

NUHTlSGOSUB CKROLPsGOTO PLUSNIN 

775 IF A$C1,1J='«-" THEN SECNUNrSECNUH- 

ISGOSUB CKROLHSGOTO PLUSNIN 

780 IF A$=“ir' THEN GRAPHICS OsGOSUB PW 

RITESGOTO PROCINP 

785 IF A5=*'C'' then GRAPHICS Os GOSUB PC 

HANGEsGOTO PROCINP 

790 IF A$="D" THEN GOTO PDIR 

795 IF A|="T" THEN GOTO PTRACE 

800 IF A$="H" THEN GRAPHICS OSGOSUB SE 

TSCRNSGOTO PNOD 

805 IF AS="R" then goto PRECOVER 
810 IF A$=*'S" THEN GRAPHICS Os GOSUB SE 
TSCRNSGOTO PSET 

815 IF A$C1,1>="S" THEN GOSUB HEKDEC 
820 GOSUB CKLIN 
825 REN 

830 REH NW WKKKKKim MMKItKItMKKKMKKKmtKW 

835 REN * iaiifci;»;ii « 

840 REN X PROCESS THE C+J C-J OR * 
845 REH * HUHERIC INPUT. PRINT SEC-* 
850 REN * TOR DISPLAY & RTN TO 370 * 
855 REN WM*ICICKMKKMICKKKKKKICKMW*MKICKKK 
860 REN 

865 GRAPHICS OSGOSUB SETSCRNSGOSUB HIL 
OSGOSUB DECHEK 

870 POKE DAUKI.SECLOWSPOKE DAUX2,SECHI 
875 X=USRCSTART)SREN ** GO DO IT ** 

880 IF PEEK fERRFLGI =138 THEN ^ 

DRIVE;" _ 

885 IFPEEK CERRFLGJ THEN ? " Mil.'lf.*! J-IJ 
ElSEEf';SECNUH;" c$"; HEKREPS; "VniPOKE 

ERRFLG,0;G0T0 PROCINP 

886 IF SECNUH=368 T HEN ? "CBiiMJMiim 
SPS60 C$016 8>"S s? "[ilslrf«tiai»gaa "sPEEli: f 
CASBUF);? 
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887 IF SECNUI1=36e THEN ? PEEK CC0SBUFF3 
}+PEEK CCA5BUFF4)«25e:GOTO PROCINP 
890 IF SECHUH<369 AND SECNUM>360 THEN 
? "jSECNUH;" l$"; 

HEXREPS ;»I";GOTO PROCINP 
895 ? ''ia*iiiii;m=ia "i5ECNUII;» CS'';HEXREP 
$;"1 M.'IdtaMIJiml ra. CPEEKCT0P5EC]»256)FP 
EEKCCAS PTRl 

900 ? ‘■[llIlISa*';PEEKCFILNUm 
905 GOTO PROCINP 
910 REH 

915 REN MMMKMMICMKKMWKMmtlllCMMKICMKMlCKM 
920 REN » EQaiOB « 

925 REN » PROCESS CM) CONNAND TO ? * 
938 REN » SECTOR REQUESTED TO DISK.N 
935 REN » MtITE ONLY AFTER VERIFY..* 
940 REN MMKXHKK K MHMKKKHHMMKKKMMMMK»m 
945 REN 

950 POKE BACKGND,RED:POKE CHAR,MHITE:P 
OKE BORDER,WHITE 
955 X=USRCNESAGEI 

960 GOSUB SCROLL:GOSUB HILO:GOSUB DECH 

EX _ 

965 ? : SFCWIIW; 

*' <$'';H EXREPS;“1*' 

970 ? : DRIVE 

975 ? jtfjglill ": : INPUT 

.. 

980 IF ANS<>‘*Y'‘ A ND AN$<>"N" THEN ? •'► 
l*l;i:Wj Jillt»i^idllNNl «'; GOTO 1025 
985 IF ANS="N*‘ THEN ? 

";GOTO 1025 
990 POKE OCOmi,PSEC:POKE I^LAG,1 
995 X=USRCSTART) 

1000 IF PEE K CERRFLGi =138 THEN ? 

DRIVE;" l>Tilat^:riij;l*iiJiirtanj " :goto lo 

20 

1085 IF PEEKCERRFLG )=144 THEN 9 
";DRIVE;" 

H":GOTO1020 
1010 IF PEEKCERRFLG) THEN ? - " 

;PEEK(ER RFLG1 -[3"!G0T0 1020 
1015 ? " kiWIilzM ": SECNUM: " ■■IrUiiiJl " 

1020 POKE ERRFLG,0:P0KE DC0HN,GSEC:P0K 
E HFLAG.O 

1025 POKE CHAR,BLACK:POKE BACKGND,GREE 
N 

1030 AM$="" 

1035 RETURN 
1040 REH 

1045 REN MX KMKKKXKK XKMMMMMICKMMKMMKKXK 
1050 REH « IJtflHyMJI » 

1055 REN * PROCESS CO CONNAND TO * 
1060 REH * CHANGE BYTES OF SECTOR IN* 

1065 REH * CURRENT BUFFER. * 

1070 REN MKXXKXMKMMXKXMKMKKMKK»M>H t KKK 
1075 REN 

1080 REH *** CHANGE BYTES ROUTINE *** 
1085 POKE BACKGND,YELLOW:POKE CHAR,BLA 

ck:poke border,miite 

1090 X=USRCHESAGE) 

1095 GOSUB SCROLL 

1100 ? "rawVE CURSOR TO BYTES,CHANGE,H 
IT RETURN** 

1105 INPUT AS 

1110 IF AS=‘*" OR LENCASl< 26 THEN ? " fil 

; ; goto ii35 

1115 POKE BACKGND,YELLOW 

1120 linbuf=adrcaI) 

1125 X=USRCCHNGBY,LINBUF) 

1130 ? 


DISK 

IS WRITE PROTECTED? 


NTINUEKK 


DRTR CHANGED—HIT RETURN TO CO 


1135 

1140 

1145 

1150 

1155 

1160 

1165 

1170 

1175 

1180 

1185 

1130 


INPUT 

POKE BACKGND,GREEN 

RETURN 

REN 

REH MM KMJCKXi e iCICKICMMKXMKMKICKICKKKMK 
REN n IJUMM * 

REN PROCESS CH) CONIMND BY * 
REN « DISPLAYING THE CONNANDS ^ 
REN * AUAILABLE IN DISK-TOOL...* 
REN * ICXMICICKICKKKKXMKICICXKICmcmcmCKJC 
REN 

GRAPHICS l;POKE BA CKGND.GREEN;? U 
"■ !■■:? It6;" gfCn Q 



1200 ? II6;*'B=READ NEXT SECTOR*':? II6;**B 
=READ PREUIOUS SEC**:? tt6;"^CHANGE SEC 
BYTES** 

1205 ? Iter'BiiDIRECTORY LIST**:? tt6;**(a=H 
ELP** 

1210 ? ll6;**(r=l«lDIFY LINKS*":? tt6;*‘(g=PRI 
NT SCREEN*' 

1215 ? II6;**|3=REC0VER A FILE**:? tt6;**B=S 
ET DRIUE II** 

1220 ? 116;**Ei= TRACE FILE CHAIN**:? II6;**E 
zMRITE A SECTOR** 

1225 ? **H**:GOTO PROCINP 
1230 REN 

1235 REN MK XX ^ KXXK ** * M * KMXKXMMXXXKXKX 
1240 REN * lU^!Mali81 * 

1245 REH * HEX-DEC CONUERSION SUBRTN* 
1250 REN * HEX INPUT FRON A$ IN THE * 
1255 REN * FORN $XXXX. OUTPUT DEC A$* 
1260 REN XXXXXXXXKXXKXXXXX - X X XXXXXXXX X 
1265 REN 
1270 N~0 

1275 FOR 1=2 TO LENCAS) 

1280 IF ASCI,I)<"0" THEN GOTO 1310 
1285 IF ASCI,IJ<="9" THEN N=N*16FVALCA 
SCI,I)]:GOTO 1300 

1290 IF ASCI,IJ<"A" OR ASCI,I)>"F" THE 
N 1310 

1295 N=N*16+A5C CAS fI,IJ J-ASC C"A"J +10 
1300 NEXT I 

1305 AS= STRSCNJ:RETURN _ 

1310 ? ** *i:Uf!T»itM!iaMJjirMIlaHJ;l ": POP :G0 
TO PROCINP 
1315 REH 

1320 REN M *MitKIIICKK MMKKKKMXKKMKKKMKXMK 
1325 REH * IJ4[A!ia:i | * 

1330 REH * DEC-HEX CONVERSION SUBRTN* 

1335 REH * HI/LO OF NUNBER IN SECLOW* 

1340 REN * i SECHI. HEX OUTPUT IN * 

1345 REH * HEXREPS.* 

1350 REH K «X * MMXMMMMKMXMMXKKMKMXKKMMM 
1355 REN 

1360 T5ECH=SECHI:5ECHI=INT CSECHl/16)+1 
;HEXREPS Cl,1J =HEXTA6S CSECHI,SECHI) 

1365 5ECHI= CTSECH-C5ECHI-1)*16)+1:HEXR 
EPS C2,2)=HEXTABS CSECHI,SECHI):SECHI=TS 
ECH 

1370 TSECL=SECLOW:SECLOW=INT CSECLOH/16 
)+1:HEXREPS C3,3)=HEXTABS CSECLOW,SECLOW 

1375 SECLOW= CTSECL-CSECL0W-1)*16)+1:HE 
XREPS C4,4)=HEXTABS CSECLOW,SECLOW):SECL 
OW=TSECL:RETURN 
1380 REH 

1385 REH MKMmmMMKMKKMKKXMKXMKMMKMKKK 
1390 REH * iagl;ll * 

1395 REH * PROCESS CD) CONNAND TO * 

1400 REH * DISPLAY FORNATTED DISK * 

1405 REH * DIRECTORY/FILE INFO.. * 

1410 REH K KKKXKXICKMMKXMMKXKKXMMMMKMMK 
1415 REH 

1420 POKE DAUX2,l:P0KE DAUXl,185:REN * 
* SET SECTOR 361 FOR READ 
1425 SECNUH=361 
1430 GRAPHICS 0:GOSUB SETSCRN 

14i0 X=U5R CREDIRJ 

1445 SECNUN:=SECNUNT1 _ 

1450 ? :? ** BQI RETURN hiatiiilJP I * Q 


0 CONT.fSfS 


1455 INPUT ANS 

1460 IF AHS="+" AND SECNUH<3e5 THEN 14 
35 

1465 ANS=""jPOKE FINUHB,0 
1470 ? "> ir 
1475 INPUT AS 
1480 IF AS="" THEN GOTO 1490 
1485 I F ASCl.l)=")r* OR ASC1.1)= ‘‘C‘' THE 
N ? ■* ; cot 

0 1470 

1490 GOTO PROCINP+5 
1495 REH 

1500 REH WW WKXXMKM XMKKKKKMKKMKXMMKMXK 
1505 REH * * 

1510 REH * PROCESS CP) CONNAND TO ? * 
1515 REH * THE SCREEN TO PRINTER.. * 
1520 REH XKMKMKMKKKMKXttKKMMMMMMMMMM - MM 
1525 REH 


COMMAND OR SECTOR HUMBER 
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IMPROPER 5CREE 


:lprint 


PRINTING SCREENI!! 


:POKE B 


«« 


1538 IF CHEL Pi THEN ? "► 

OBEI33iSH3Ilj3" s RETURN 
1535 TRAP leeSsLPRINT 
1540 ? •'» 

ACKGND,TURQ 

1545 SCAHD=PEEKf883T^PEEKC89)«256 
1550 REM **PRINT SCREEN TO PRINTER 
1555 FOR K=1 TO 19 
1560 ARPT=1 

1565 FOR Y=5CAND TO SC0ND439 

1578 A$CARPT,ARPT)=CKR$CCA5C(" "J+PEEK 

CYJl):TEHP=A5C(A5CARPT,ARPT)) 

1575 IF TEMP>128 THEN TEW»=TE»fl>-128:A$ 
CARPT,ARPTl=CHR$tTEHPl 

1580 IF A$CARPT.0RPT)<" " OR A$CARPT,A 
RPTJ>"Z" THEN AStARPT,ARPT)=*'." 

1585 ARPT=ARPTll:NEKT Y 
1590 IF A$C28.21)="DR'' THEN GOTO 1600 
1595 LPRINT A5:SCAND=SCANDT4e:NEXT X 
1600 POKE BACKGND,GREEN:TRAP ERTRAP:A$ 
SETDSK:RETURN 


="";G05UB 
1685 ? "T 


PRINTER DOESN'T RESPOND! 


GOTO 
1610 
1615 
1626 
1625 
1630 
1635 
1640 
1645 
? :? 

:INPUT 05 

1650 IF THEN 

IF OSCl,l)i:"$ 
GOSUB CKLIM 
GOSUB KILO;GOSUB 


1600 
REM 

REM NN N MNNN ^ MXRKICXMXMICKMMKMMKMM N 
REM X ail iE H * 

REM X PROCESS CMl COMNOND TO X 
REM X MODIFY LINKS OF 0 FILE.. X 
REM XMKMMMXKXXXKXMXXXXXXKXMXXXNX 
REM 
? “N 


_MODIFYvSECTOR LINKS 

SECTOR TO MODIFY '(HEX OR DEC) 


1655 

1660 

1665 

HEM 

1676 

1675 

1680 


GOTO PROCINP 
THEN GOSUB HEXDEC 


SETDSK;GOSUB DEC 


M=USRCENTLNK) 

IF PEEKCERRFLG) THEN GOTO 885 

^ ••raiF^]GEBB**;PEEKCFiLNUM5;":iaia 

CPEEK fT0PSECJX256J 4PEEK(C 


LE; CDEC OR nEX) 


;G0 


OSPTRl 

1685 ? :? ••aaiociinK 

•';:INPUT 0$ 

16S6 IF 0$="" THEN FIL=PEEKCFILNUm 
TO 1705 

16S5 IF ASC1,1)z"S*« THEN GOSUB HEXDEC 

FILrUOLtAS) _ 

PO KE CFILNUro ,FIL;? :? "laiilKIlI 
ilatMaMagiW ”; : INPUT AS 
IF aS““‘'' THEN GOTO PROCINP 
IF ASC1,1J=««S" then GOSUB HEXDEC 
IF UAL CAS)=6 THEN SECNUM=0:GOTO 1 


1700 

1705 


1716 

1715 

1726 

736 

1725 

1736 


CTOPSEC),SECHI:PO 


GOSUB CKLIM 
GOSUB HILO SPOKE 
KE CASPTR^SECLOU 
1735 X=USRCNMLNK) 

1740 ? "lIlEESIBRr 

UNjB ■•;PEEKCFILNUM) _ 

;CPEEK CT0PSEC)X256)+PEEK CCASPTR) 

1745 SECNUM=PEEK CDAUXl)^PEEK CDAUX2)X25 


LINKS CHANGED! ijnanaHJNEM F 


NEW SECTOR^ 


6 

1756 


CORRECT 


1755 

1766 

1765 

1776 

1775 

1780 

1785 

1790 

1795 

GOSUB 




1860 

)•■;? 

AS 

1865 

1810 

1815 


■ ^ 

••:? SGOTO^PROCIMP 
REM 

REM XM XXXKXXK KMiCMXICKICXMlCKKICICMXXX 
REN X fHITiTilan X 

REM X PROCESS CT) COMMAND TO X 
REM X TRACE THE SECTORS OF A X 
REM X FILE FOR FILE INTEGRITY X 
REN XXKXXKXXI H CMKXM X XXMXMMMMMXXM X 
REM 

IF CHELP) THEN GRAPHICS OsHELPzO: 
SETSCRN 


? "►INPUT FILE NUMBER CHEX OR DEC 
"►TO iMflfTini OR E3 TO ABORT"; :INPUT 

IF ASC1,1)-"X" THEN GOTO PROCINP 
IF ASC1,1)-"S" then GOSUB HEXDEC 
FIN=UAL CAS):STSEC=INT CFIN/8)+361J 


IF STSEC<361 O R STSE0368 THEN 
■ : GOTO PROCINP 

1820 RELFI=FIN-CINTCFIN/8)X8) 
1825 IDX=CRELFIX161+CASBUF_ 
1830 ? 


'►HEB 


SECTOR TRACE 


SECTOR TRACE CCONT) 


1835 X=USRCTRASEC,9TSEC,IDX,FIN] 

1848 IF PEEK(ERRFLG) THEN POKE ERRFLG, 
0:P0KE FINUHB,0:? :G0T0 PROCINP 
1845 SECL0H=PEEKCCASPTR):SECHI=PEEKCTO 
PSEC) 

1850 IF NOT PEEKCCNTIN) THEN POKE CFI 
NUMB),0:GOTO PROCINP 

1855 ? :? "D TO CONTIN QRINT SCRN <RET 
> TO STOP"::INPUT AN5 

1868 IF ANS="" THEN POKE CNTIN,0:P0KE 
FINUI«,8:G0T0 PROCINP 

1865 IF ANS="P" THEN GOSUB PPRINT:GOTO 
1855 

1870 IF AN$<>"*" THEN POKE CNTIN,e:POK 
E FINUNB,0:G0T0 ERTRAP 
1875 ? "NK ZZIZ 
1888 X=USRCTRASEC) 

1885 GOTO 1848 
1890 REM 

1895 REM NN XNXKXMMKW KN - KKKXKKMKKKKKMWK 
1900 REN * raaraiitmjiB « 

1905 REN ^PROCESS CR) CONNANO MHICH * 
1910 REM »WILL RECOUER A FILE WHICH * 
1915 REM NHAS BEEN DELETED * 

1920 REM NMMICHKXKKICMKKKICICJCMKKKXXKKICKK 
1925 REN 

1930 IF CHELP] THEN GRAPHICS e:HELP=e: 
GOSUB SETSCRN 

1935 ? "»1 NPUT FI LE NUMBER CHEX OR DEC 
]":? "KTO OR E3 TO ABORT"; :INPU 

T A5 

1940 IF A$C1,1)="X" THEN GOTO PROCINP 
1945 IF A$C1,1)="S" THEN GOSUB HEXDEC 
1958 FIN=VAL CA$):STSECrINT CFIN/8)+361: 
IF STSEC<361 O R 5TSE0368 THEN ? "KHEB 
: GOTO PROCINP 
1955 RELFI=FIN-CINTCFIN/8)*8) 

1960 1DX= CRELFI»1 6)+CA5BUF 
1965 ? "6) r;iaririi»jj;mnwa " 

1970 POKE RECOVR,! 

1975 X=USRCTRASEC,STSEC,IDX,FIN9 
1988 IF PEEKCERRFLG) THEN POKE ERRFLG, 
0:P0KE REC0UR,0:? 

1985 POKE FINUH8,e:G0T0 PROCINP 
1990 REM 

1995 REM XK KKKKM MKKKKXKKKMKKItKlCMMMMWW 
2000 REM * [jHam * 

2005 REM ^PROCESS CS) COMMAND HHICH « 
2018 REN «ALLOMS USER TO CHANGE THE * 
2015 REM MHORKING DISK DRIVE NUMBER * 
2020 REN MKKKKMK IH C j C W M +t MKKMKKKKKMICKMKM 
2825 REM _ 

? ;? =";DRIVE: 


INPUT NEW DRIVE (1-4) 


2030 
2635 

7 

2046 ? "►! 

T AS 

2645 IF ASz»» THEN GOTO PROCINP 
2050 X-VALCAS);IF X<1 OR X>4 THEN ? "► 

; GOTO PROCINP 

2655 DRIVE=X:GOSUB SETDSK:? :GOTO PROC 
IMP 


CHECKSUM DATA 
(See pgs. 7-10) 


10 DA’^A 532,703^50,549,210,270^538,17 

9,914 555,376,887,737,641,650,8191 

85 DATA 855,191,95,807,148,236,48,360, 

789,83,25,952,556,196,492,5833 

160 DATA 642,799,95,804,557,84,166,76, 

445,181,335,152,404,791,85,5616 

235 DATA 51,88,558,647,870,99,861,9,56 

7,100,96,792,108,543,23,5406 

316 DATA 549,551,84,322,598,212,91,95, 

797,540,800,101,564,576,704,6584 

385 DATA 572,105,110,698,738,80,820,27 

9,753,491,92,599,97,799,256,6489 

460 DATA 796,807,101,257,611,109,572,7 

43,980,552,85,856,88,361,389,7307 
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538 DATA 424,61^362,99,482,689,186.373 

,395,365,994,374,111,514,621,5884 

686 DATA 84,357,488,137,366,98,563,93, 

366,426,847,589,367,184,626,5329 

665 DATA 187,373,668,817,628,661,612,3 

84,86,248,89,559,771,812,845,7644 

735 DATA 565,98,188,784,918,958,688,99 

1,728,677,415,885,964,983,284,9862 

818 DATA 26,536,251,99,562,823,339,978 

,539,573,166,538,364,685,652,7863 

885 DATA 978,128,336,189,967,762,645,9 

3,563,577,828,1,23,567,187,6696 

956 DATA 658,444,958,166,775,385,533,4 

92,471,648,84,189,76,285,318,6474 

1625 DATA 363,288,792,279,796,756,788, 

155,585,789,292,867,212,552,369,7635 

1168 DATA 824,915,225,436,724,741,195, 

918,166,796,283,888,264,673,15,7975 

1175 DATA 989,793,296,456,964,185,568, 

512,330,541,25,284,881,459,361,7564 

1258 DATA 865,982,794,297,994,837,84,6 

74,584,216,493,52,877,295,793,8837 

1325 DATA 478,315,9,793,329,796,299,53 

6,426,321,191,292,889,777,722,7885 

1488 DATA 949,829,795,298,964,91,61,81 

8,269,786,780,811,945,326,698,9412 

1475 DATA 931,587,348,891,386,797,568, 

815,954,799,382,813,92,155,821,9891 

1558 DATA 188,399,488,825,458,851,286, 

244,375,914,459,152,294,811,881,7521 

1625 DATA 733,947,813,297,952,179,583, 

434,715,624,566,467,171,583,587,8651 

1788 DATA 309,455,178,582,39,443,613,3 

34,577,125,246,311,869,585,738,6264 

1775 DATA 764,942,821,385,887,789,738, 

575,239,679,425,775,387,138,348,8656 

1858 DATA 68,764,584,898,816,291,562,7 

54,368,825,358,238,283,398,811,7870 

1925 DATA 314,797,229,727,591,236,695, 

422,696,539,394,231,592,311,828,7682 

2888 DATA 781,288,18,238,786,289,784,2 

87,669,172,386,731,5261 


Cross Reference of Disk Tool BASIC program 


VAR 

LINE 

NUMBERS 


BACKQND 

133, 

623, 

703, 

930, 1023. 1083. 1113 


1 190 

, 1340, 1600 

BLACK 

133, 

623, 

703, 

1023, 1083 

BORDER 

133, 

703, 

930, 

1083 

BUFHl 

133, 

425 



BUFLO 

135, 

420 



BUFPTR 

135 




CASBUF 

133, 

886 , 

887 , 

1823, 1960 

CASPTR 

133, 

893, 

16B0, 

1730, 1740, 1843 

CHAR 

140, 

623, 

703, 

930, 1023, 1083 

CHNQBY 

140, 

1123 



CKLIM 

140 , 

820, 

1660, 

1723 

CH.ROLM 

1 40 , 

773 



CKROLP 

140, 

770 



CLI0C4 

140, 

333 



CNTIN 

140, 

1830, 

, 1860 

, 187 0 

DAUX 1 

140, 

410, 

870, 

1420, 1743 

DAUX2 

140, 

413, 

870, 

1420, 1743 

DBYHI 

1 43, 

433 



DBYLO 

1 45, 

430 



DCQMM 

143, 

403, 

990, 

1020 

DECHEX 

145, 

863, 

960, 

1663 

DUNI T 

1 43, 

400 



ENTLNK 

143, 

1670 




ERRFLB 1^5, B80, 883, 1000, 1003, 1010, 1020, 

1673, 1840, 1980 

ERTRAP 143, 323, 625, 1600, 


FILNUM 

143, 

900, 1680, 1690, 1703, 1740 

FINUMB 

130, 

1463, 1840, 1830, 1860, 1870, 1983 

QREEN 

130, 

623, 703, 1023, 1140, 1190, 1600 

OSEC 

130, 

403, 1020 

HEXDEC 

130, 

813, 1633, 1693, 1713, 1810, 1945 

HILO 

130, 

863, 960, 1663, 1730 

ME8AQE 

130, 

933, 1090 

NWLNK 

130, 

1733 

PCHAN8E 

130, 

783 

PDIR 

130, 

790 

PHELP 

133, 

340, 730 

PLUSMIN 

133, 

770, 773 

PMQD 

133, 

800 

PPRINT 

133, 

733, 1863 

PRECOVER 

133, 

805 

PROCINP 

133, 

473, 623, 733, 780, 783, 883, 887, 


890, 

903, 1223, 1310, 1490, 1730, 1803, 


1813, 

, 1840, 1830, 1860,1940, 1930, 1983, 


2030, 

, 2033 

P8EC 

133, 

990 

PSET 

133, 

810 

PTRACE 

133, 

760, 793 

PWRITE 

133, 

780 

RECOVR 

160, 

1970, 1980 

RED 

160, 

930 

REDIR 

160, 

1440 

SCROLL 

160, 

960, 1095 

SETD3K. 

160, 

330, 1600, 1663, 2033 

3ETSCRN 

160 , 

800, 810, 863, 1430, 1793, 1930 

START 

160, 

875, 993 

TOPSEC 

160, 

893, 1680, 1730, 1740, 1843 

TRASEC 

160, 

1833, 1880, 1973 

TURQ 

163, 

1340 

WFLA6 

163, 

990, 1020 

WHITE 

163, 

703, 930, 1083 

YELLOW 

163, 

1083, 1113 

DRIVE 

235, 

400, 743, 880, 970, 1000, 1003, 


2033, 

, 2035 

HELP 

233, 

730, 763, 1330, 1793, 1930 

SECHl 

233, 

1843 

413, 513, 870, 1360, 1363, 1730, 

SECLQW 

233, 

1843 

410, 313, 870, 1370, 1373, 1730, 

SECNUM 

233, 

473, 313, 350, 390, 770, 773. 883, 


886, 

887, 890, 893, 963,1013, 1423, 


1443, 

1460, 1720, 1743 

A« 

283, 

473, 743, 730, 733, 760, 770, 773, 


780, 

783, 790, 793, 800, 805, 810, 813, 


1103 

, 1110, 1120, 1133,1273, 1280, 128*5, 


1290, 

,1473, 1480, 1483, 1370, 1373,1380, 


1390, 

1393, 1600, 1643, 1630, 1633. 1683, 


1690, 

, 1693,1700, 1703, 1710,1713, 1720 


1800, 

, 1803, 1810, 1813, 1933, 1940, 1943* 


1930 

, 2040, 2043, 2030 

AN4 

285, 

973, 980, 983, 1030, 1433, 1460, 


1463, 

1833, 1860, 1863, 1870 

HEXREP* 

283, 

883, 890, 895, 965, 1360, 1363, 


1370, 

, 1373 

HEXTABt 

285, 

270, 1360, 1363, 1370, 1373 

X 

333, 

873, 933, 993, 1090, 1123, 1440, 


1333, 

1593, 1670, 1735, 1833, 1880, 


1973, 

, 2030, 2033 

LINBUF 

1120, 

, 1123 

N 

1270, 

, 1283, 1293, 1303 

I 

1273, 

, 1280, 1283, 1290, 1293, 1300 

TSECH 

1360, 

, 1363 

TSECL 

1370, 

1373 

SCAND 

1343, 

1363, 1593 

ARPT 

1360, 

1370, 1373, 1380, 1383 

Y 

1363, 

1370, 1383 

TEMP 

1370, 

1373 


1870 
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FIL 

169B, 

17B0, 

1703 


FIN 

ISIS, 

1820, 

1833, 

1930 

STSEC 

ISIS, 

1833, 

1930, 

1973 

SELF I 

182B, 

1823, 

1933, 

1960 

IDX 

182S, 

1833, 

1960, 

1973 


• OF VARIABLES- 82 


1973 


Disk Tool Memory Map 
(after fully loaded) 


10420 

10073 

7420 

1792 

1536 


256 

0 


Basic code to Mem. top 
followed by O.S./hardware area 

Free patch area for modifications 

Dsk Tool ML Code 

Area 

Pg. 7'IC contain DOS 2.OS 

FMS Code & Disk Drive Buffers 

Pg.6 Autorun.sys init. code & IRQ, handler 

Pg. 4 5 not used by 

Dsk Tool 

cassette buffer (128 bytes) is used 

not used by Dsk Tool 

Pg. 3 serial bus handler table is used 

Pg. 2 not used by Dsk Tool 

Pg. 1 stack area 

$CD and $CE are only Pg. 0 
Locations used 


$FFFF 

$28B4MEMLO 

$2759 

$1CFC 

$0700 

$0600 

047F 

$03F0 

1030C 

$0300 

$0200 

$0100 

0 


Constant Description List 
DSKTOOL.PT2 


ID 

' NAME 

VAL 

DESCRIPTION 

1 

BACKGND 

710 

Background color register address (REGISTER 2) 


BLACK 

0 

Color value for black 

1 

BORDER 

712 

Border color register address (REGISTER 4) 


pBUFHI 

773 

Address of Disk buffer Pointer MSB 

Z 

L-buflo 

772 

Address of Disk buffer Pointer LSB 


BUFPTR 

126 

Value set to 126. Byte 126 of CASBUF contains the LSB of the next sector number 
of the file being examined. 


CASBUF 

1021 

Pointer to the start of the cassette buffer. 


CASPTR 

CASBUF+CASPTR Points to the absolute address in CASBUF of the LSB of the next sector 
number for the current file. 

1 

CHAR 

709 

Character color register address (REGISTER 0) 

* 

CHNCBY 

7729 

Absolute address to beginning of Change Byte ML code. 


CKLIM 

475 

Line number to Basic routine. 


CKROLM 

590 

Line number to Basic routine. 


CKROLP 

550 

Line number to Basic routine. 

* 

CLIOC4 

9023 

Absolute address to ML routine which sets up IOCB4 for ML output of messages etc. 

* 

CNTIN 

8958 

Absolute address to continue flag. Tells ML code if we are continuing a directory 
dump or sector trace. 

9 

pDAUXl 

778 

Address to disk AUX value LSB. 

J 

1—DAUX2 

779 

Address to disk AUX value MSB. 
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1 

rDBYHI 

777 

4 

Ldbylo 

776 


DCOMM 

770 


DECHEX 

1360 


DUNIT 

769 

* 

ENTLNK 

8180 


ERRFLG 

7550 



ERTRAP 

625 

* 

FILNUM 

7556 

* 

FINUMB 

8179 


GREEN 

214 


GSEC 

82 


HEXDEC 

1275 


HILO 

515 

* 

MESAGE 

7430 

* 

NWLNK 

8194 


PCHANGE 

1085 


PDIR 

1420 


PHELP 

1190 


PLUSMIN 

865 


PMOD 

1645 


PPRINT 

1530 


PRECOVER 

1930 


PROCINP 

745 


PSEC 

87 


PSET 

2030 


PTRACE 

1795 


PWRITE 

950 

•k 

RECOVR 

9077 


RED 

64 

k 

REDIR 

7823 


SCROLL 

660 


SETDSK 

400 


SETSCRN 

705 


START 

7420 

k 

TOPSEC 

7555 

k 

TRASEC 

■ 8224 


TURQ. 

186 

k 

WFLAG 

7554 


WHITE 

10 


YELLOW 

26 


Address to disk byte count MSB. 

Address to disk byte count LSB. 

Address to disk commanci byte location. Commands used by DISK TOOL are PUT 
SETOR with verify and GET SECTOR. 

Line number to Basic routine. 

Address to disk unit number. Location contains current drive being accessed. 
Absolute address to the Change links ML code. 

Absolute address to the error flag indicator in ML code. 

Flag is set by ML code to indicate any errors. 

Basic checks the flag to determine appropriate message. 

Line number to Basic routine. 

Absolute address to ML location. Location contains the file number to which the 
current sector belongs. 

Absolute address to ML location. Location contains the directory file number of a 
file $043F. 

Value for the color green. 

GET SECTOR disk command value. 

Line number to Basic routine. 

Line number to Basic routine. 

Absolute address to ML code which displays items in CASBUF in HEX/ATASCI 
format. 

Absolute address to ML code which changes links during a modify link operation. 
Line number to Basic routine. 

Line number to Basic routine. 

Line number to Basic routine. 

Line number to Basic routine. 

Line number to Basic routine. 

Line number to Basic routine. 

Line number to Basic routine. 

Line number to Basic routine. 

Disk command value for a PUT SECTOR with verify. 

Line number to Basic routine. 

Line number to Basic routine. 

Line number to Basic routine. 

Absolute address in ML code of recover flag. Used by ML code to distinguish a 
recover file from a trace file. 

Value for the color red. 

Absolute address in ML code to the read directory function. 

Line number to Basic routine. 

Line number to Basic routine. 

Line number to Basic routine. 

Absolute address to the start of DISK TOOL ML code. 

Absolute address to ML location. Location contains the MSB of the sector number 
currently being examined. 

Absolute address to the start of the TRACE SECTOR ML code. 

Value for the color turquoise. 

Absolute address to ML Write flag location. Informs the ML code if the next opera¬ 
tion is a read or write. 1=write 
Value for the color white. 

Value for the color yellow. 


ID EXPLANATIONS 

1= References hold true for Graphics 0. Other modes have different meanings. If confusion exists, see color register 
assignment table in the ATARI BASIC Reference Manual. 
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2= These locations point to an area in memory where we want the data on a disk sector to be placed after a read. On a 
disk write, these locations point to the area of memory which contains the data to be written. Disk Tool sets these 
pointers to the cassette buffer since it is free when using the disk drive. 

3= Locations contain sector number (LSB/MSB format) of sector to read or write. 

4= Locations contain number of bytes (LSB/MSB format) to be read or written. 

*= Point to absolute locations in the ML code. In most cases the Basic constant name is the same as the label name in 
the assembly source code. Exceptions are CNTIN for CONTIN and NWLNK for NEWLNK due to BASIC not 
accepting CONTIN and NEWLNK. I could have used the LET statement but.. .NAAHH!!! 

VARIABLE DESCRIPTION LIST 

Pointer to each item in A$ 

Current Disk Drive being used. 

Temporary file number variable. 

File number input for TRACE or RECOVER. 

Help flag. l=Help menu is up. 0=Help menu not up. Prevents printing the help screen since it 
is in the wrong graphics mode for the Print routine. 

Absolute index to start of file entry in CASBUF. 

Pointer to A$ string in memory. 

Relative file number of an entry in the directory. 

Pointer to address of the start of the screen. 

Hi byte of SECNUM. 

Low byte of SECNUM. 

Current sector number being read or written. 

Directory start sector number of file being requested. 

Value of ASCII character on the screen. 

Temporary value of SECHl for DEC-HEX conversion. 

Temporary value of SECLOW for DEC-HEX conversion. 

MISC variable. 

MISC variable. 

STRING CONSTANT LIST 

DESCRIPTION 

Input for COMMANDS, NUMBERS (HEX or DECIMAL) and CHANGE BYTE line. 

Input string for various answers to prompts. 

String which holds the hex value of a converted decimal value. 

Table of hex string values used by the DEC-HEX routine to convert a decimal number string to it’ 
hex equivalent. 


NAME 

A$ 

AN$ 

HEXREP$ 

HEXTAB$ 


ARPT 

DRIVE 

FIL 

FIN 

HELP 

IDX 

LINBUF 

RELFI 

SCAND 

SECHl 

SECLOW 

SECNUM 

STSEC 

TEMP 

TSECH 

TSECL 

X 

Y 



HOME UTILITIES 
AND EDUCATION 
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HOME ENERGY 
CONSUMPTION ANALYSIS 


16K Cassette 32K Disk 
by Joe E. Harb, Jn 


"Thermowatts’’ and "Kilowatts” are ATARI 
BASIC programs which require 16K RAM with cas¬ 
sette and 32K RAM with disk. "Thermowatts” 
analyzes yearly, monthly, and daily natural gas and 
electricity consumption and cost for homes which 
use both utilities. "Kilowatts” provides similar anal¬ 
ysis for all-electric homes. 

When we moved into our present house several 
years ago, 1 planned to make a number of energy con¬ 
servation modifications to the house. Iciecided that I 
would like to use my ATARI 800 to determine what 
impact those modifications had on our energy con¬ 
sumption and costs. That led to the writing of "Kilo¬ 
watts” which 1 subsequently rewrote as "Thermo¬ 
watts,” using natural gas data which I still had on 
hand from my previous house. Both programs make 
provisions tor yearly and monthly temperature fluc¬ 
tuations. Statistics generated by both programs can 
be displayed on the screen or printed to a line print¬ 
er. 

Monthly and yearly temperature variations are 
taken into consideration by analyzing kilowatt/ 
therm consumption per cooling/heating degree day, 
as appropriate. A heating degree day is each degree 
that the average temperature drops below 65 degrees 
F on a given day. A cooling degree day is each degree 
above 65 degrees F. The total number of cooling and 
heating degree days in each month can be obtained 
from your local weather bureau (National Oceanic 
and Atmospheric Administration — NOAA). Our 
local NOAA office at Baltimore Washington Inter¬ 
national Airport kindly provided me with several 
years of monthly degree day information over the 
telephone. 

In a given month, a minimum of 100 cooling 
degree days is required before the programs will cal¬ 
culate cooling degree day consumption for that 
month. A minimum of 200 heating degree days is 
required for heating degree day analysis. This was 
done because in months when the number of heating 
or cooling days is below the threshold, energy use for 


heating or cooling is so low that the data becomes 
heavily biased by other energy use. This bias makes it 
seem that consumption per degree day is abnormally 
high. To change the threshold for cooling degree 
days, change the value of MINCD in line 100 of 
Kilowatts and 110 of Thermowatts. To change the 
threshold of heating degree days, change the value of 
MINHD on the same line. 

In order to further minimize distortion by elec¬ 
tricity consumption for uses other than heating and 
cooling, both programs subtract 400 kilowatts from 
each month’s total electricity use before computing 
consumption per degree day. (This subtraction is not 
performed in computing any other statistics.) The 
variable used in the subtraction is FCTR, also in Line 
100/110. It can be changed if you feel your non¬ 
heating/cooling electricity use is higher or lower. 

All REM statements can be eliminated from both 
programs without, recjuiring any line number 
changes. Additionally, if you feel the explanation of 
DATA statements given in the following paragraph is 
adecjuate, you can eliminate the instruction sub¬ 
routine (Lines 6999-7190 in both programs, 2050 in 
"Kilowatts,” and 2090 in "Thermowatts”). If you 
do not have a printer, you can eliminate the printer 
subroutines (Lines 2040 and 5999-6880 in "Kilo¬ 
watts” and 2040, 2080and 5999-6860in "Thermo¬ 
watts”). 

One DATA line is required for each month of 
data. DATA lines must be numbered in increments 
e')f 1, beginning with Line 1000, i.e., 

1068 DATA JAN,79,1329,29,56.18«ie«29.08,904«e 
1881 DATA FEB,79,1426,28|60.44,32,31.44,1188,6 
1802 DATA HAR,79,528,31,58.98,11,26.33,528,15 

DATA statements must contain: month (first three 
letters); year (last two digits); number of kilowatts 
used; number of days in billing period; cost of elec¬ 
tricity (paid on time and including fuel surcharge); 
number of therms; cost of natural gas; heating degree 
days; and cooling degree days. The number of 
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therms and cost of natural gas are not used in ''Kilo-- 
watts.” All of the required information except heat¬ 
ing and cooling degree days can he obtained from 
utility bills. As explained above, the information on 
heating and cooling degree days can he obtained 
from your local NOAA office. 

If you have been looking for a relatively quick and 
easy way of neatly aligning columns of figures, par¬ 
ticularly those with decimal fractions, you might 
want to consider using the technique 1 employed in 
several subroutines of both programs, for example in 
Lines 3170-3190. It can be done in four easy steps: 

1. Decide the rightmost column for displaying a 
particular set of figures. Then add 1 to that value. In 
subroutine 3000, 1 wanted the last digit of the vari¬ 
able X to be printed in column 11.1 then added 1 to 
that number, for a total of 12. If you are aligning 
figures with decimal fractions, use the column where 
the decimal point is to be printed, and do not add 1. 

2. Measure the length of the variable by convert¬ 
ing it to a string and using the LEN function. In Line 
3170, LEN(STR$(1NT(X))) means calculate the 
length (LEN) of the variable X after converting it to 
an integer (INT) and then to a string (STR$). The 
variable must be converted to a string because the 
LEN function can only measure the length of string 
variables. For this measurement, it is important to 
convert a numeric variable to an integer when the 
variable includes a decimal fraction. Tliis is neces¬ 
sary because the ATARI eliminates final zeros after 
the decimal point. Thus, 3.50 is displayed 3.5. Con¬ 
sequently, if you wished to align the numbers 3.5 and 
4.27 and if you measured the whole length of the 
variable, the columnar alignment of the numbers 
would be: 

3.5 

4.27 

3. Pick a variable name for the column where 
printing of the display variable is to begin. (I used 
CLl in the example.) Then, use the algorithm in this 
paragraph to calculate the column where printing is 
to begin. The algorithm subtracts the length of the 
integer portion of the string from the value calcu¬ 
lated in step 1. In other words, the column where 
printing is to begin equals the length of the integer 
portion of the variable subtracted from the column 
where printing is to end. That is expressed in BASIC 
as CL1 = 12-LEN(STR$(INT(X))). This means that 
the first digit of the variable X will be displayed at 
screen column 12 minus the length of the integer X. 

4. Position the cursor at the column and row 
where printing is to begin. This is done with the 
POSITION statement. In Line 3180, the cursor is 
positioned at column CLl,row PEEK(84). 
PEEK(84) is the memory location of the current 
cursor row. Finally, use the PRINT statement to dis¬ 
play the variable on the screen. Once you get used to 
this process, it can be done fairly fast. Of course, it 


can be further simplified by performing the whole 
operation at one time: 

POSITION 12-LEN CSTR$(INT(X))),PEEK(84):?X 

In 'Thermowatts,” each of the subroutines for the 
menu options does double duty. Each subroutine 
computes either gas or electricity statistics, depend¬ 
ing on what is requested. The softw^are accomplishes 
this by setting the variable T to a ”0” or a ” 1 ” during 
menu selection. A ”0” indicates that electricity data 
is to be processed, and a "1” indicates natural gas 
data. Each subroutine has statements which check 
the value of T and then select the appropriate data or 
print the proper column headings. For instance, in 
Lines 3120-3130, if T=0, the variable DD (degree 
days) = CD (cooling degree days) because electric¬ 
ity powers air conditioning equipment. If T=l, 
DD=HD (heating degree days) because natural gas 
provides heat. 

During operation of these programs, do not 
depress the return key at any time when responding 
to a screen prompt. Simply type the letter(s) or 
numbers desired for input. The GET statement will 
determine which key(s) you depressed. In order to 
access the keyboard, a channel to the keyboard was 
opened in Line 70. 


Variables used in Kilowatts and Thermowatts. 

A: Used with GET to determine last key depressed 
on keyboard. 

Al$: Used only in gas and electricity program. 
Represents variations of the words "therm” or 
"kilowatts” in column headings on screen or printer. 
Allows one subroutine to print headings for gas or 
electricity. 

ANET: Used to represent electricty cost (NET) or 
gas cost (GNET) whenever single subroutine must 
calculate either gas or electricity statistics. 

AVG: Per kilowatt or per therm cost. 

B: Use with A when more than one key input from 
keyboard is required. 

C: Used with A & B when three-key input 
required from keyboard. 

CAVG: Average monthly consumption of 
kilowatts per degree day. Used only in subroutine 
6000 of Kilowatts. See explanation under CDAVG. 

CD: Cooling degree days in a given month. 

CDAVG: Average annual consumption of 
kilowatts per cooling degree day. Used only in sub¬ 
routine 6000 of Kilowatts because both cooling and 
heating degree day information are analyzed and 
printed at the same time. In Thermowatts, this is not 
necessary because there is so much data that separate 
printouts are required for cooling and heating degree 
day consumption. Consequently, a single variable 
DDAVG can perform double duty. 

CDDIV: Total number of Kilowatts used when 
computing annual average consumption of Kilowatts 
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per cooling degree day. Used only in subroutine 
6000 of Kilowatts. See explanation under CDAVG. 

CDTOT: Total number of cooling days per annum. 
Used only in subroutine 6000 of Kilowatts. See 
explanation under CDAVG. 

CL 1: (Column 1); Column where printing of spe¬ 
cified data begins. Used to right-justify screen 
display. 

CL2: (Column 2); Used with CLl when more 
than 1 column cannot be right-justified in some 
other way. 

CL3: (Column 3); Used with CLl and CL2 when 
more than two columns cannot be right-justified in 
some other way. 

CL4: (Column 4); Used with CLl, CL2 and CL3 
when more than three columns cannot be right- 
justified in some other way. 

COST: Total annual cost of gas or electricity. 

DAYS: Number of days during billing period. 

DD: Used to represent either cooling or heating 
degree days in subroutines where either can be used. 

DDAVG: Average annual use of Kilowatts or 
therms per cooling or heating degree day. 

DDN$: Used in subroutines 3000, 5000, and 6000 
to represent words ^^HEAT” or *^COOL” in column 
headings, depending on whether user has requested 
cooling or heating degree day information. 

DDT: Total number of heating/cooling degree 
days in a given year. 

DIV: Total number of energy units used when 
computing annual average consumption per degree 
day. Used in subroutine 5000 of Thermowatts and 
subroutines 5000 and 6000 of Kilowatts. 

FCTR: Estimated minimum amount of electricity 
used monthly for uses other than heating or cooling. 
Subtracted from UNITS before computing con¬ 
sumption per degree day. Can be raised or lowered if 
estimated minimum is different. 

GNET: Cost of gas without late charge. 

GUNITS: Therms of gas used during billing 
period. 

HAVG: Average monthly consumption of 
kilowatts per heating degree day. Used only in sub¬ 
routine 600 of Kilowatts. See explanation under 
CDAVG. 

HDDIV: Total number of kilowatts used when 
computing average annual consumption of kilowatts 
per heating degree day. Used only in subroutine 600 
of Kilowatts. See explanation under CDAVG. 

HDTOT: Total number of heating degree days per 
annum. Used only in subroutine 6000 of Kilowatts. 
See explanation of under CDAVG. 

HIYR: High year in data base. 

HL: No. of lines to be printed on each page. 

K$: Month for which data requested in menu 
options A, B, E, and F. 

KPD: Average number of kilowatts or therms per 
degree day. 


KPD$: Used to represent either variable KPD or 
letters ‘"N/A” when printing out results of 
kilowatts/therms per degree day computation. 

LINE: Last line of DATA. 

LOYR: Lowest year of data in data base 

M$: Month of data contained in DATA line. 

MINCD: Minimum number of cooling degree 
days necessary for computing electricity consump¬ 
tion per cooling degree day. 

MINHD: Minimum number of heating degree 
days necessary for computing gas/electricty 
consumption per degree day. 

NET: Cost of electricity without late charge. 

NR: Used to calculate number of months in data 
base. 

PRNT$: One PRNT$ string is created for each line 
of data to be printed with the line printer in sub¬ 
routine 6000. Allows data to be aligned easily in 
columns without using TAB functions which vary 
from printer to printer. 

R$: Represents month in subroutine 6460/6570 
to compare same month of different years. 

SET: Sets flag when high line of page print reached 
during loop. 

T: A flag. In Thermowatts, it is set during menu 
selection. It is used later in subroutines to identify 
whether gas or electricity data is to be processed. In 
Kilowatts, it is set at beginning of subroutines 3000 
and 5000 to identify whether user has requested 
information on consumption per cooling or heating 
degree day. This is unnecessary in Thermowatts 
because the choice of desired information is implied 
by menu selection of electricty or natural gas data. 

TIME: Last line printed on printer. 

UNITS: Kilowatts used during billing period. 

UP: Average daily kilowatt or therm consump¬ 
tion. 

USE: Total annual consumption of gas or 
electricity. 

Y: Year of data on DATA line. 

YR: Year of data being processed. 

Z: Index variable for loops, i.e., keeps track of no. 
of times loop has occurred. □ 


Thermowatts 

IQ ^ «ll>*;P0KE 

2Q ^ TMERIWMQTTS” 

30 ^ •• G05 « ELECTRICITY*' 

40 ^ •• 0II0LY5TS PROGROH**:^ 

50 ^ •" BY JOE MORB**;^ 

60 ^ "DURING OPERATION OF THI5 PROG 
ROM, 00 N0TDEPRES5 RETURN KEY AFTER TY 
PING AN5MER5 TO PR0WT5" 

70 OPEN lll,4,0,"K;":REM OPEN KEYBOARD 
TO GET INPUTS WHEN GET STATEWNT IS US 
ED THROUGHOUT PROGRAM 

80 ? :? ••DEPRESS ANY KEY TO CONTINUE.•• 
:GET 111, A:? ••N" 

100 DIM A1$C9),A2$(6I,DDNSC4),M$C3),K$ 
C3),KPD$C6I,PRNT$C65),R$C3) 

110 MINCD=ieO:MINHD=200:FCTR=400:REM M 
INCDzMINIMUM COOLING DAYS NECESSARY FO 
RCOMPUTATION 
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128 REN ^ 82$ ARE USED TO PRINT UA 

RIATIONS OF THE MM)RDS KUATTS OR THERNS 
SO ONE SUBROUTINE CAN BE USED FOR 
138 REN ELECTRICITY OR GAS COMPUTATION 
288 REN CALCULATE: TOTAL MONTHS OF DAT 
A CNR); LOM YEAR OF DATA CLOYR); AND H 
IGH YEAR OF DATA CHIYR) 

218 NR=0 

228 READ M$,Y,UNITS,DAYS,NET^GUNITS,GN 
ET,HD,CD 

238 REM N$=MONTH, YzYEAP, UNITSzKILOUA 
TTS USED ^ GUNITSzGAS THERM USED IN BI 
LLING PERIOD 

248 REM DAYSzNR. OF DAYS IN BILLING PE 
RIOD 

258 REM NETzCOST OF ELECTRICITY WHEN B 
ILL PAID ON TINE, GNETzCOST OF GAS PAI 
D ON TIME 

268 REM CALCULATE NR. OF MONTHS OF INF 
0 IN DATA BASE CNR), HIGH YEAR OF DATAC 
HIYR), & LOM YEAR OF DATACLOYR) 

278 LOYRrY:RESTORE 

288 READ M$,Y,UNITS,DAYS,NET,GUNTTS,GN 
ET,HD,CD 

298 IF M$z"END'* THEN RESTORE :GOTO 288 
8 

388 NRrNR+l:HIYRzY 
318 GOTO 288 

498 REM SUBROUTINE TO GET INPUT FOR ME 
NU OPTIONS A, B, E, F; THEN CLEAR TNPU 
T QUESTIONS FROM SCREEN TO ALLOM 

499 REM DISPLAY OF ADDITIONAL DATA 
588 ^ "'TYPE FIRST THREE LETTERS OF MON 
TH YOU MANT,"':GET ltl,A:GET m,B;GFT 
ltl,C 

518 REM NEXT LINE CONUFRTS ATASCI UALU 
ES TYPED ON KEYBOARD TO A STRING 
528 K$=CHR$ CA) ; K$ CLEN CK$) 1^1) i:CHR$ CB) ; K 
$ CLEN CK$) +1) -CHR$ f C) : GOSIJB 538 : RETURN 
538 POKE 84,PEEKf84)-2:FOR 7=8 TO 1:^ 


■';NEKT 7: REM 39 SPACES 


548 POKE 84,PEEKC84)~2:RETURN 

1880 DATA JAN,79,624,16,26.28,51,36.18 
,984,8 

1881 DATA FEB,79,682,31,25.98,68,42.48 
,1180,0 

1882 DATA MAR,79,536,29,21.65,55,48,61 
,520,15 

1883 DATA APR,79,454,30,19.88,49,35.28 


,354,4 

1884 DATA MAY,79,527,32,27.91,48,31.55 
,75,72 

1885 DATA JUN ,79,768,29,38,46,33,22.75 
,6,183 

1886 DATA JUL ,79,1281,30,55.65,10,9.84 


,2,348 

1887 DATA AUG ,79,691,29,36.45,8,8,50,3 
,341 

1888 DATA SEP ,79,1242,32,52.I 6,12,14.2 


6,22,145 

1889 DATA 


,311,28 
1810 DATA 
,425,1 
1011 DATA 


,757,8 

1812 DATA 
,962,8 

1813 DATA 
,967,8 

1814 DATA 
,723,8 

1815 DATA 
,273,8 

1816 DATA 
,74,97 

1817 DATA 
,6.283 

1818 DATA 
,8,415 

1819 DATA 
,431 

1828 DATA 
7,28,245 
1821 DATA 
,311,17 


OCT,79,571,30,24,43,28,28.11 
NOU,79,686,32,27.92,32,25.67 
DEC,79,688,31,26.75,49,48.83 
JAN,88,619,28,24.45,53,38.88 
FEB,88,527,32,28.97,57,45.98 
MAR,88,528,29,21,41,58,41.89 
APR,88,521,30,24.64,39,23,85 
MAY,88,591,32,34.82,22,18.97 
JUN,88,739,29,37.98,16,18.49 
JUL,88,1683,38,98.78,11,7.43 
AUG,88,838,29,53,52,8,6.66,8 
SEP,88,1538,32,74.26,15,18.7 
OCT,88,589,38,30.45,28,22.84 


1822 DATA NOU,88,698,33,38,21,33,27.64 
,620,8 

1823 DATA DEC,88,778,31,33.84,41,34.49 
988 8 

1824'DATA JAN,81,642,28,28.85,58,53.37 
,1145,0 

1899 DATA END,999,0,8,0,8,0,0,8 

1999 REM MENU SUBROUTINE 

2880 ? ""THIS PROGRAM ALLOHS THE FOLLOM 

ING SELECTIONS:"':? 

2818 ? "• A. TOTAL MONTHLY AND AUER 

AGE DAILY KILOUATT USE" 

2820 ^ "• B. TOTAL mNTHLY AND AUER 

AGE DAILY KILOMATT COST" 

2838 ? " C. TOTAL ANNUAL KILOMATT 

USE AND COST" 

2840 ? "• D. PRINTOUT OF ALL ELECTR 

ICAl USE DATA" 

2858 " E. TOTAL MONTHLY AND AUER 

AGE DAILY GAS THERM USE" 

2868 ? "■ F. TOTAL MONTHLY AND AUER 

AGE DAILY THERM COST" 

2878 ? " G. TOTAL ANNUAL THERM USE 

AND COST" 

2888 ^ "■ H. PRINTOUT OF ALL GAS US 

E DATA" 

2890 ? "" I. DATA INPUT INSTRUCTION 

S"" 

2108 ? "' J. EXIT PROGRAM" 

2110 REM GET IS USED TO DETERMINE LETT 
ER TYPED ON KEY BOARD; A=ATASCI UALUE 
OF LETTER TYPED 

2120 ? ""TYPE LETTER OF OPTION YOU MANT 
":GET 111,A:? ""6" 

2138 T=8:IF A=65 THEN 3880:REM T IS FL 
AG TO TELL LATER SUBROUTINES MHETHER G 
AS OR ELECTRICITY ANALYSIS REQUESTED 
2140 IF A=66 THEN 4008 

2158 IF A=67 THEN 5088 

2160 IF A=68 THEN OPEN IM, 8,8, "'P ;: GOT 
0 6880:REM OPEN CHANNEL TO PRINTER 
2170 T=l:IF A=69 THEN 3888 
2180 IF A=7e THEN 4008 

2198 IF A=71 THEN 5088 

2288 IF A=72 THEN OPEN IM, 8,8 , *'P : " : GOT 

0 6888 

2210 IF A=73 THEN 7888 

2228 IF A=74 THEN POKE 82,2:END 

2999 REM SUBROUTINE FOR MENU OPTIONS A 
^ E 

3880 GOSUB 500 

3018 IF T=8 THEN DDN$="'COOL"': A1$=""KMU 

ti 

3828 IF T=1 THEN DDN$="'HEAT": A1$="THER 
M"" 

3838 ^ •• AUG TOTAL 

AUG ";A1$;REM 15 SPACES BEFORE AUG 
3848 ? "• TOTAL DAILY "•;DDN$; 

USE" 

3850 ? "• ";A1$;"' "■;A1$;"' DGR 

EE PER "';DDN$ 

3860 ^ '"MONTH USE USE DAYS 

DGREE DAY" 

3870 FOR 7=1 TO NR 

3080 READ M$,Y,UNITS,DAYS,NET,6UNITS,G 
NET,HD,CD 

3898 IF M$<>K$ THEN 3288 
3188 X=UNITS:IF T=1 THEN X=GUNITS 
3110 UP=INTC1888NX/DAYS)/1888:REM COMP 
UTE UNITS PER DAY AND LIMIT DECIMAL PL 
ACES DISPLAYED 

3128 IF T=8 THEN DD=CD:IF CD>MINCD THE 
N 3150 

3138 IF T=1 THEN DD=HD:IF HD>MINHD THE 
N FCTR=8:GqT0 3158 

3140 IF CD<=MINCD OR HD<=MINHD THEN KP 
D$="N/A":GOTO 3178 

3158 KPD=INTC1888«CX-FCTR)/CCDD/38)IH>A 
YS))/10e8:KPD$=STR$CKPD):REM COMPUTE U 
NITS PER DEGREE DAY 

3160 REM LINES 3170-3190 ALIGN AND PRI 
NT SCREEN DISPLAY 

3170 CL1=12-LENCSTR$CINTCX))):CL2=17-L 
EN CSTR$ CINT CUP))):CL3=27-LEN CSTR$ CDD)) 
:CL 4=32-LEN CSTR$ CINT CKPD))) 

3188 ? M$;" ";Y;"' "::POSITION CL1,PEE 
KC84):? X;:POSITION CL2,PEEKC84):? UP; 
-.POSITION CL3,PEEKC84) :? DD; 
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319e POSITION CL4.PEEKC84):? KPD$ 

3200 NEXT Z:RESTORE 

3210 2 :? “DO YOU MANT TO LOOK AT ANOT 
HER MONTH? TYPE Y OR N.“;GET 111, A 
3220 IF A=89 THEN GOSUB 530:G0SUB 500: 
GOTO 3070 

3230 ? "N”;GOTO 2000 

3SS9 REM SUBROUTINE FOR MENU OPTIONS B 
t, F 

4000 GOSUB 500 

4010 ? “mNTH TOTAL TOTAL UNIT” 
4020 A1$=“KHU ":IF T=1 THEN A1$="THER 
M" 

4030 ^ “ ";A15;” COST COS 

T":REM 9 SPACES BEFORE AlS 
4040 FOR Z=1 TO NR 

4050 READ H5,Y,UNITS,DAYS,NET,GUNITS.G 
NET,HD,CD 

4060 IF M5<>K$ THEN 4110 

4070 X=UNITS:ANET=NET;1F T=1 THEN X=GU 

nits:anet=gnet 

4080 AVG=INT f10000* fANET/Xl1/10000;REM 
CALCULATE COST PER UNIT 
4090 CL1=13-LENCSTR$CX11:CL2=19-LENtST 
R$CINTtANET)}l 

4100 ? M$;“ ";Y;:POSITION CL1,PEEK 1841 
;? X;" ";:POSITION CL2,PEEKC841:? AN 
ET;:POSITION 25,PEEKC841:? AUG 
4110 NEXT Z:RESTORE :? 

4120 ? :? “DO YOU WANT TO LOOK AT ANOT 
HER MONTH? TYPE Y OR N.":GET ltl,A 
4130 IF A=89 THEN GOSUB 530:GOSUB 500: 
GOTO 4040 

4140 ? “N“:GOTO 2000 

4999 REM SUBROUTINE FOR l«NU OPTIONS C 
i, G 

5000 IF T=0 THEN DDN$=“COOL“:AlS=“KMAT 
TS" 

5010 IF T=1 THEN DDNS=“HEAT“:AlS=“THER 

MS“:FCTR=0 

5020 YR=LOYR 

5030 " ";DDNS;" 

AUG “;A1$:REM 22 SPACES BEFORE DDNS 
5040 '» " ";AlS;“ AGREE 

PER AGREE":REM 9 SPACES BEFORE DGREE 
5050 ? “YEAR USED COST DAYS D 
AY" 

5060 USE=0:C0ST=e:00T=0:DIU=:0 
5070 FOR Z=1 TO NR 

5080 READ M5,Y,UNITS,DAYS,NET,GUNITS,G 
NET,HD,CD 

5090 X=UNITS:ANET=NET:IF T=1 THEN X=6U 

NITS:ANET=6NET 

5100 IF YOYR then 5150 

5110 IF T=0 THEN DO=CD: IF CD<=:MINCD TH 
EN DD=0:G0T0 5140 

5120 IF T=1 THEN DD=HD:IF HD<=MINH0 TH 

EN DD=0:G0T0 5140 

5130 ODT=DDT+DD:DIU=DIU+X-FCTR 

5140 USE=USE+X:COST=COST+ANET 

5150 NEXT Z:RESTORE 

5160 DDAUG=0:IF DDT>0 THEN DDAUG=INTC1 
000«DIU/DDTl/ie00 

5170 CLlzll-LENCSTRSCUSEll:CL2=17-LENC 
STRS CINT(COST)11:CL3=26-LEN(STRS(DDT)) 
:CL4Z30-LEN(STRS(INT(DDAUG))) 

5180 ^ YRFJ900;:POSITION CLl,PEEK(84): 
? USE;:POSITION CL2,PEEK(84);? COST; 
5190 POSITION CL3,PEEK(84):? DDT;;POSI 
TION CL4,PEEK(84):? DDAUG 
5200 YR=YR+l:IF YR<HIYR+1 THEN 5060 
5210 ? "DEPRESS ANY KEY TO RETURN TO M 
ENU.":GET 111 ,a 
5220 ? “N":GOTO 2000 

5999 REM SUBROUTINE FOR l«NU OPTIONS D 
t, H FOR (LINE PRINTER) 

6000 TIME=8;SET=0:? “TYPE NUMBER OF LI 

NES PER PAGE TO BE PRINTED":GET ttl 

,A : GET ttl,B:HL=((A-48)«10) * (B-48) 

6010 LPRINT CHRS(27);CHRS(56):REM DISA 
BLE EPSON PRINTER "END OF PAPER" FUNCT 
ION 

6020 AlS="KI4ATTS":0DNS="C00L";IF T=1 T 
HEN AlS="THERMS":DDNS="HEAT":FCTRzO 
6030 ^ tU;" T 

OTAL AUG":REM 26 SPACES BEFORE TOTA 
L 


6040 tt4;" " 

;DDNS;" ";A1S:REM 26 SPACES BEFORE 

DDNS 

6050 ? tt4;" ";AlS;" TOTAL 

DEGREE PER":REM 9 SPACES BEFORE AlS 
6060 ? tt4;"YEAR USED COST 0 

AYS DGR DAY":LPRINT 

6070 TII«=TTI«i+5;YR=L0YR 
6080 USE=0:C0ST=0;DDT=0:DIU=0 
6090 PRNTSz" 

":REM 65 SPACES 

6100 FOR Z=1 TO NR:REM CALCULATE ANNUA 
L CONSUMPTION AND COST 

6110 READ MS,Y,UNITS,DAYS,NET,GUNITS,G 
NET,HD,CD 

6120 X=UNITS:ANET=NET:IF T=1 THEN X=GU 

NITS:ANET=GNET 

6130 IF YOYR THEN 6180 

6140 IF T=0 THEN DD=CD:IF CD<=MINCD TH 
EN DD=0;G0T0 6170 

6150 IF T=1 THEN DD=H0:IF HD<=MINHD TH 

EN DD=0:G0T0 6170 

6160 OOT=DDT+DD:DIU=DIU+X-FCTR 

6170 USE=USE+X:COST=COST+ANET 

6180 NEXT Z:RESTORE 

6190 ODAUG=e:IF DDT>0 THEN DDAUG=INT(1 
e0*DIU/DDT}/100 

6200 PRNTS(11-LEN(STRS(USE)),12)=STRS( 
USE) 

6210 PRNTS(18-LEN(STRS (INT(COST))),21) 
=STRS(C0ST) 

6220 PRNTS(28-LEN(STRS(DOT)),30)=STRS( 
DDT) 

6230 PRNTS(33-LEN(STRS(INT(DDAUG))),36 
)=STRS(DDAUG) 

6240 ? tt4;YR+1900;PRNTS;TIME=TIME+1 
6250 YR=YR+1:IF YR<HIYR+1 THEN 6080 
6260 LPRINT :TIME=TIME*1 

6399 REM CALCULATE AND PRINT mNTHLY 
DATA. SUBROUTINE 6410 PRINTS COLUMN 
HEADINS ON EACH SHEET OF PAPER 

6400 GOSUB 6410:G0T0 6470 

6410 AlS="KfcWTT":DDNS="COOL":IF T=1 TH 
EN AlS="THERM":DDNS="HEAT" 

6420 PRINT tt4;" 

";A1S:REM 

51 SPACES BEFORE AlS 

6430 PRINT tt4;"MONTH DAILY MONTHL 

Y TOTAL COST ";ODNS;" PER" 

6440 PRINT tt4;" ";AlS;" ";A1 

S;" MONTHLY PER DEGREE DEGREE 

":REM 9 SPACES BEFORE AlS 
6450 PRINT tt4;" USE USE 

COST ";A1S;" DAYS DAY":TIM 

E=TIIffF4:REM 9 SPACES BEFORE USE 
6460 RETURN 

6470 RS="JAN":GOSUB 6600 
6480 RS="FEB":GOSUB 6600 
6490 RS="MAR":GOSUB 6600 
6500 RS="APR":GOSUB 6600 
6510 RS="MAY":GOSUB 6600 
6520 RS="JUN":GOSUB 6600 
6530 RS="JUL":GOSUB 6600 
6540 RS="AUG":GOSUB 6600 
6550 RSz"SEP";GOSUB 6600 
6560 RSz"OCT":GOSUB 6600 
6570 RSz"NOU":GOSUB 6600 
6580 RSz"DEC":GOSUB 6600 
6590 CLOSE tt4:? "6":GOTO 2000 
6600 FOR Zzl TO NR 
6610 PRNTSz" 

■ I 

6620 REOO H$,Y,UNITS,DAYS,MET,GUNIT5,G 
NET,HD,CD 

6630 IF H$<>R$ THEN 6800 

6640 XrUNITS:RMETrNET:IF 1=1 THEN H=GU 

NITS:ONET=MET 

6650 UP=INTC10e«CX/DDY5))/ie0 
6660 AUG=INTC10e0«C0NET/X)l/ieee 
6670 IF T=e THEN DD=CD:IF CD>=MINCD TH 
EN 6700 

6680 IF Trl THEN DD=HD:IF HD>=NINHD TH 
EN 6700 

66S0 IF CD<NINCD OR ND<HINHD THEN KPD= 
e:G0T0 6710 
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6700 KPD=IIIT CIOOO^CX-FCTR) / C CDD/30)I(D0 
VS))/lOOO:KPD$=5TR$ CKPD) 

6710 PRRTS CO-LEU CSTR$(mT CUP))) ,8) =STR 
$CUP) 

6720 PRUTS C17-LEH C5TRS CX)),16)rSTRS CX) 
6730 PRUTSC25-LEHC5TRSCIUTCONET))),27) 
irSTRS CRUET) 

6740 PRUTS C31-LEU CSTRS CINT COUG))),34) = 
STRSCOUG) 

6750 PRUTS C41-LEN CSTRS CDD)),40)=STRS CD 
D) 

6760 IF l(PD=0 THEN PRUTS C4S, 51) ="U/0"*: 
GOTO 6780 

6770 PRUTS C48-LEU CSTRS CIUT CKPD))),51) = 
STRSCKPD) 

6780 PRINT II4;HS;"* ••;Y;PRUTS 

67S0 TIME=TIHE+l:IF TIME=HL THEN SETrl 

6800 NEXT Z:RESTORE 

6810 IF SET=0 THEN 6850 

6820 IF RS=“DEC“ then 6860 

6830 ? "INSERT ANOTHER SHEET OF PAPER; 

THEN DEPRESS ANY KEY.":GET 111,A 

6840 TII1E=0:SET=0:G0SUB 6410 
6850 LPRINT : TII«=TII1ET1; IF TIHEzHL TH 
EN 6820 
6860 RETURN 

6SSS REM INSTRUCTIONS FOR PREPARING DA 
TA LINES 

7000 ? "N":LINE=NR+SSS 

7010 ? "FOR EACH MONTH OF DATA YOU HAU 
E, YOU miST TYPE ONE DATA LINE.":? 
7020 ? "THE FIRST DATA LINE MUST BE NU 

MRFDFn IflAA'' 

7030 ? "AFTER THAT, EACH DATA LINE tUJS 
T BE NUmERED ONE HIGHER THAN THE 

LAST, FOR" 

7040 ? "EXAI«>LE 1000 MUST BE FOLLOWED 
BY 1001, 1002, 1003, 1004, ETC.":? 

7050 ? "DEPRESS ANY KEY WHEN READY FOR 
NEXT INSTRUCTIONS.":GET 111,A 

7060 ? "REQUIRED FORMAT FOR DATA LINE: 

II 

7070 ? "1000 DATA OCT,82,1350,30,7S.25 
,40,35.20,675,0" 

7080 ? "DATA ITEMS ARE:" 

70S0 ? "1. MONTH; MUST BE 3 LETTERS LO 
NG." 

7100 ? "2. YEAR; MUST BE 2 NUmERS LON 
G." 

7110 ? "3. NUmER OF KILOWATTS USED DU 
RING MONTH" 

7120 ? "4. NUmER OF DAYS IN BILLING P 
ERIOD" 

7130 ? "5. NET COST OF ELECTRICITY IN 
BILLING PERIOD. DO NOT USE ‘S' BEFOR 
E COST." 

7140 ^ "6. NUmER OF THERMS USED DURIN 
G BILLING PERIOD." 

7150 ? "7. NET GAS COST DURING BILLING 
PERIOD." 

7160 ? "8. HEATING DEGREE DAYS IN BILL 
ING PERIOD." 

7170 ? "S. COOLING DEGREE DAYS IN BILL 
ING PERIOD." 

7180 ? "THE LAST LINE OF DATA YOU ENTE 
RED WAS: "'LINE 

71S8 ? "NOw'BEGIN TYPING NEW DATA LINE 
S." 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 2S2,441,842,SS,57S,S07,370,636 

,836,320,710,3S1,885,96,502,7986 

230 DATA 233,730,591,746,76,520,80,601 

,716,931,938,958,840,258,376,8594 

540 DATA 999,829,942,42,828,874,900,82 

1,722,238,0,882,813,869,834,10593 

1014 DATA 790,789,901,886,790,706,235, 

40,817,754,52,716,513,196,246,8431 

2020 DATA 108,384,413,926,623,957,582, 

346,410,660,150,289,852,856,62,7618 

2170 DATA 43,853,857,152,858,829,785,7 

25,904,34,834,67,296,576,496,8309 


3080 DATA 529,843,657,119,289,954,155, 

6,288,885,643,249,778,316,846,7557 

3230 DATA 308,791,727,470,859,221,495, 

528,844,558,976,709,947,58,316,8807 

4130 DATA 843,308,797,965,960,821,903, 

227,574,777,500,533,562,736,79,9585 

5120 DATA 103,217,179,784,160,155,583, 

146,442,40,311,374,459,583,449,4985 

6030 DATA 909,968,263,948,489,781,562, 

324,531,560,750,89,113,222,184,7693 

6180 DATA 789,719,261,379,272,537,363, 

456,452,183,373,949,793,589,58,7173 

6450 DATA 209,807,0,993,12,27,14,58,57 

,35,33,24,61,993,415,3738 

6600 DATA 513,715,547,890,256,544,862, 

628,652,432,421,622,602,336,833,8853 

6750 DATA 94,607,871,681,101,802,752,9 

74,248,891,158,819,716,946,671,9331 

7020 DATA 376,829,188,999,227,833,62,3 

68,898,846,531,489,402,50,291,7389 

7170 DATA 342,975,364,1681 


Kilowatts 


10 POKE 82,0 

20 "64 KILOWATTS" 

30 ^ " ELECTRICITY" 

40 ? " ANALYSIS PROGRAM** 

50 ^ •' BY JOE HARB" 

60 ? "44DURING OPERATION OF THIS PROGR 
AM, 00 NOT DEPRESS RETURN KEY AF 

TER TYPING ANSWERS TO PROMPTS. •• 

70 OPEN ltl,4,0,**K:":REM OPEN KEYBOARD 
TO GET INPUTS LATER IN PROGRAM WHEN G 
ET STATEMENT IS USED 

80 ? :? ''DEPRESS ANY KEY TO CONTINUE." 
-.GET lll,A 

90 DIM DDNSC4),MSC3),KSC3),KPDSC6),PRN 
T$C65) ,RSC3) 

100 MINCD=100:MINHD=200:FCTRi:400:REH M 
INCDrMINIMUM COOLING DAYS NECESSARY FO 
RCOMPUTATION 

110 REM MINHD=MINIMUM HEATING DEGREE D 
AYS NECESSARY 

120 REM FCTRzNR. OF KILOWATTS TO BE SU 
BTRACTED FROM MONTHLY KILOWATT USE MHE 
N COMPUTING DEGREE DAYS. 

130 REM SUBTRACTING FCTR REDUCES EXTEN 
T TO WHICH OTHER HOUSEHOLD ELECTRICITY 
USE BIASES HEATING AND COOLING STATS 
200 REM CALCULATE: TOTAL MONTHS OF DAT 
A (NR); LOW YEAR OF DATA (LOYR); AND H 
IGH YEAR OF DATA (HIYR) 

210 NR—0 

220 READ N$,V,UNITS,DAYS,NET,HD,CD 
210 HEM H$=MONTH, V=VEAR, UNITS=I<IL0I4A 
TTS USED USED IN BILLING PERIOD 
240 REM DAYS=NR. OF DAYS IN BILLING PE 
RIOD 

250 REM NET=COST OF ELECTRICITY MIEN B 
ILL PAID ON TIME,DD=DEGREE DAYS DURING 
BILLING MONTH 

260 REM HD=HEATING DEGREE DAYS 
270 REM CD=COOLING DEGREE DAYS 
280 LOYR=Y;RESTORE 

290 READ MS,Y,UNITS,DAYS,MET,HD,CD 
300 IF MS="EMD" THEN RESTORE ;GOTO 200 
0 

310 NH=NH+l:HIYR=Y 
320 GOTO 290 

498 REM SUBROUTINE TO GET INPUT FOR ME 
NU OPTIONS A ft B; THEN CLEAR INPUT OUE 
STIONS FROM SCREEN TO ALLOH DISPLAY 

499 REM OF ADDITIONAL DATA 

BOO ? "KTYPE FIRST THREE LETTERS OF MO 
NTH YOU MANT.":GET ttl,A:GET ttl,B:GET 
ttl,C 

510 HEM NEXT LINE CONMERTS ATASCI UALU 
ES TYPED ON KEYBOARD TO A STRING 
520 KS=CHRSCA);KSCLENtKSJ+1J=CHRSCBJ:K 
$CLENCKS)+1}=CHR$(C}:GOSUB 530:RETURN 
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530 POKE 84,PEEK(84>-2:FOR Z=0 TO 1:? 

II 

'•:NEHT Z:REM 39 5PftCES 

540 POKE 84,PEEK(84)-2;RETURN _ 

1006 REN 

1899 D6T0 END,999,0,0,0,0,0 

1999 REM MENU OPTIONS 

2000 ^ "I^THIS PROGRAM ALLOWS THE FOLLO 

MING SELECTIONS:**;? 

2010 ^ *• A, TOTAL MONTHLY AND AUER 

AGE DAILY KILOWATT USE** 

2020 -> ** B. TOTAL MONTHLY AND AUER 

AGE DAILY KILOWATT COST** 

2030 ? ** C. TOTAL ANNUAL KILOWATT 

USE AND COST** 

2040 ? ** D. PRINTOUT OF ALL ELECTR 

ICAL USE DATA** 

2050 ? ** E. DATA INPUT INSTRUCTION 

S'* 

2060 ^ ** F. EXIT PROGRAM**:? 

2070 ^ **TYPE LETTER OF OPTION YOU WANT 
.**;GET ttl,A 

2080 REM GET IS USED TO DETERMINE LETT 

ER TYPED ON KEYBOARD; AzATASCI UALUE 0 

F LETTER TYPED 

2090 IF A=65 THEN 3000 

2100 IF A=66 THEN 4086 

2110 IF A=67 THEN 5006 

2120 IF Ar68 THEN TRAP 2160;0PEN tM,8, 

0,**P:**;TRAP 16000:G0T0 6000 

2130 IF A-69 THEN 7000 

2140 IF Ar70 THEN POKE 82,2:END 

2J50 GOTO 2070 

2160 REM PRINTER ERROR f^SSAGE 

2170 CLOSE 114:? **PRINTER IS NOT ON-LIN 

E!B";TRAP 10000:G0T0 2070 

2999 REM SUBROUTINE FOR MENU OPTION A 

3060 GOSUB 500 

3010 ? **D0 YOU WANT TO INCLUDE INFORMA 
TION ON HEATINGCH), COOLINGCC) OR NE 

ITHERfN)?**:GET tll,A;GQSUB 530 
3020 IF AZ67 THEN DDNSz-'COOL**: T = 0 
3030 IF A::72 THEN DDN$=**HEAT"*: T-1 
3040 IF A-78 THEN DDN$z» **;T=2;DDrO 
3050 ^ **MONTH TOTAL AUG TOTAL A 

UG KWIJ** 

3060 ^ ** KWU DAILY AGREE P 

ER **;DDN$:REM 8 SPACES BEFORE KWU 
3070 ? ** Km USE DAYS D 

GREE DAV-*:REM 14 SPACES BEFORE KWU 
3080 FOR Zm TO NR 

3090 RFAD MS,Y,UNITS,DAYS,NET,HD,CD 
3100 IF MSOKS THEN 3200 
3110 UPzINTtl0O*UNITS/DAYS)/lO0:REM CO 
MPUTE UNITS PER DAY AND LIMIT DECIMAL 
PLACES DISPLAYED 

3120 IF T=0 THEN DDrCD:IF CD>MINCD THE 
N GOTO 3150 

3130 IF T=1 THEN DDrHD:IF HD>MINHD THE 
N GOTO 3150 

3140 IF T=:2 OR CD<rMINCD OR HD<=MINHD 
THEN KPDS = **N/A**;G0T0 3170 
3150 KPDzINT ClOO*fUNITS-FCTR)/C(DD/3e) 
»DAYSJ)/lO0:KPDS-STRSfKPD):REM COMPUTE 
UNITS PER DEGREE DAY 
3160 REM LINES 3170-3190 USED TO ALIGN 
AND PRINT SCREEN DISPLAY 
3170 CL1Z12-LENtSTRSCINTtUNITSJ));CL2= 
17-LEN CSTRSlINT CUP))) :CL3z26-LEN CSTRS C 
DD)):CL4-32-LENfSTRSCINTCKPD))) 

3180 ^ MS;** “*;Y; ;POSITION CL1,PEEKC841 
:? UNITS;;POSITION CL2,PEEK€84):? UP;: 
POSITION CL3,PEEKt84);? DD; 

3190 POSITION CL4,PEEKC84);? KPDS 
3200 NEXT Z;RESTORE 

3210 ? ;? **D0 YOU WANT TO LOOK AT ANOT 
HER MONTH? TYPE Y OR N.**:GET 111, A 
3220 IF Ar:89 THEN GOSUB 530: GOSUB 500: 
GOTO 3080 

3230 ^ **H**;GOTO 2080 

3999 REM SUBROUTINE FOR MENU OPTION B 

4000 GOSUB 500 

4010 ? •*MONTH TOTAL TOTAL UNIT"* 

4020 ^ *• KWU COST COST** 

;REM 9 SPACES BEFORE KWU 
4030 FOR Z=1 TO NR 

4040 READ MS,Y,UNITS,DAYS,NET,HD,CD 


4050 IF MSOKS THEN 4090 

4060 AUG=:INT CIOOOO^ CNET/UNITS) ) /1O0O0 ; 

REM CALCULATE AUERAGE DAILY USE 

4070 CLli:13-LENCSTRSCINTCUNITS))) ;CL2i: 

19-LEN CSTRS CINT CNET))) 

4080 ? MS;** ■*;V; ;POSITION CL1,PEEKC84) 
:? UNITS;** **;:POSITTON CL2,PEEKC84) : 
? NET;rPOSITION 25,PEEKC84);? AUG 
4090 NEXT Z;RESTORE 

4100 ? :? **D0 YOU WANT TO LOOK AT ANOT 
HER mniH? TYPE Y OR N.**:GET HI,A 
4110 IF A=89 THEN GOSUB 530;GOSUB 500; 
GOTO 4030 

4120 ? **N**;GOTO 2000 

4999 REM SUBROUTINE FOR MENU OPTION C 

5000 ? **HDO YOU WANT TO INCLUDE INFORM 
ATION ON HEATING CH) OR COOLING CO^ 
**;GET 111,A;YR=L0YR 

5010 IF A=:67 THEN DDNS=**COOL**; TrO 
5020 IF AZ72 THEN DDNSr»HEAT**: T=1 
5030 ** '* * DDNS * ** 

AUG KWATT**:REM 22 SPACES BEFORE DDN 

S 

5040 ? ""YEAR KWATTS DGREE P 

ER DGREE**: REM lO SPACES BEFORE DGREE 
5050 ? ** USED COST DAYS D 

AY** 

5060 USE=0:C0STz0;DDT=0;DIU=0 
5070 FOR Zn TO NR 

5080 READ MS,Y,UNITS,DAYS,NET,HD,CD 
5090 IF YOYR then 5148 
5100 IF T=0 THEN DD=CD:IF CD<i:MINCD TH 
EN DD=0;G0T0 5130 

5110 IF T = 1 THEN DD=:HD:IF HD<=MINHD TH 
EN DD=0;G0T0 5138 

5120 DDTzDDT+DD ; DIU:::DTU+UNITS-FCTR 
5130 USE=USE+UNITS;COST-COST+NET 
5140 NEXT Z:RESTORE 

5150 DDAUG=:0;IF DDT>0 THEN DDAUG = INTC1 
O0*DIU/DDT)/1OO 

5160 CL1=17-LENCSTRSCINTCC0ST)));CL2-2 
6-LEN CSTRS CINT CDDT))) :CL3-30-LEN CSTRS C 
INTCDDAUG))) 

5170 ? YRT1900;** **;USE;** "*;:POSITIO 

N CL1,PEEKC84):? COST;:POSITION CL2,PE 
EKC84);-^ DDT;: POSITION CL3,PEEKC84) 
5180 ? DDAUG 

5190 YR=YRTl:IF YR<HIYR+1 THEN 5860 
5200 RESTORE 

5210 ? ;? "DEPRESS ANY KEY TO RETURN T 
0 MENU.**: GET HI, A 
5220 GOTO 2000 

5999 REM SUBROUTINE FOR MENU OPTION D 

6000 TIME = 0:SETi:0:? *«HTYPE NUMBER OF L 

INES PER PAGE TO BE PRINTED .**: GET 

111, A : GET 111, B : HL= C CA-48) *10) + CB-48) 
6010 LPRINT CHRSC27);CHRSC56);REM DISA 
BLE EPSON **END OF PAPER** FUNCTION 
6020 ? IM;** TOT 

Al AUG TOTAL AUG**; REM 24 SPACES 

BEFORE TOTAL 

6030 ? 114;** HEA 

T KWATT COOL KWATT**:REM 24 SPAC 
ES BEFORE HEAT 

6040 ? 114;** KWATTS TOTAL DGR 

PER DGR PER**:REM 8 SPACES 

BEFORE KWATT 

6050 ? I14;**YEAR USED COST DAY 

S DGR DAY DAYS DGR DAY**:LPRINT 

6060 TIME=TIME+5:YR=L0YR 

6070 USE=0;COST=0;CDDIU=0:CDTOT^O:HDDI 

U=0 ; HDT0T=0 : CDAUG=:0 ; HDAUG=0 

6080 REM CDDIU ^ HDDIU ARE NUMBER OF A 

NNUAL KILOmTTS FOR HEATING COOLING. 

ONLY MONTHS WITH MORE THAN 100 
6090 REM COOLING OR 200 HEATING DEGREE 
DAYS ARE INCLUDED. 500 KWATTS PER MONT 
H SUBTRACTED BY FCTR FOR OTHER ELECT. 
6100 REM CDTOT & HDTOT ARE TOTAL HEATI 
NG/COOLING DEGREES PER ANNUM FROM MONT 
HS WITH SUFFICIENT DEGREE DAYS 
6110 PRNTS=** 

■*;REM 65 SPACES 

6120 FOR Z=1 TO NR:REM CALCULATE ANNUA 

L CONSUMPTION AND COST 

6130 READ M$,Y,UNITS,DAYS,NET,HD,CD 
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6148 IF YOYR THEN 6188 

6158 IF CD>HINCD THEN C0T0T=CDT0T4^CD :C 

DDIV=CDDig+UNITS-FCTR 

6168 IF HO>NINHD THEN HDTOTzHDTOT+HD:H 
DDIU=HDDigFUNIT5-FCTR 
6178 USE=U5E+UNITS:C0ST=C0ST+NET 
6188 NEXT Z:RESTORE 

6198 IF CDT0T>8 THEN CDAVG=INTfl88«CDD 
IV/CDTOTJ/188 

6288 IF HDTOT>8 THEN HDAVG=INT{188«HI>0 
IV/HDT0T)/188 

6210 ? tU;YRT1988;:PRNT$C11-LENCSTRS(U 
SE)),18}=STRSCUSE) 

6228 RRNTS C16-LEN CSTR$ CINT CCOST))1,18) 
=STR$CC0ST) 

6238 PRNTS C25-LEN CSTRS CHDTOT)),24)=STR 
SfHDTOT) 

6248 PRNT$ C38-LEN(STR$ CINT CHDAUG))),32 
)=5TR$CHDAVG) 

6250 PRNT5 C41-LEN CSTR$ CCDTOT)),40)=5TR 
SCCDTOT) 

6268 PRNT$ f45-LEN CSTR$ CINT CCDAVG))),47 
)=STR$CCI>AUG) 

6270 2 tt4;PRNT5:TINE=TIME41 
6288 YR=YR+l:IF YR<HIYRT1 THEN 6070 
6298 RESTORE SLPRINT :TII«=TIME+1 
6399 REH CALCULATE AND PRINT MONTHLY 
DATA. SUBROUTINE 6418 PRINTS COLUMN 
HEADINGS ON EACH SHEET OF PAPER 
6488 GOSUB 6418:GOTO 6460 
6418 ? lU;" 

KUAT KUAT 

■■:TIME=TIME+l:REM 47 i 18 SPACES 
6420 ? tU;"MONTH DAILY 

HLY COST HEAT PER 

:TIME=TIME+1 

6430 ? tU;" KHATT 

T PER DGRE DGRE 

"!TIME=TIME+1:REM 8 SPACES 
6440 ? tU;" USE 

KHU DAYS DAY 

;LPRINT :TIME=TIME+l:REM 8 
6450 RETURN 

6460 R$="JAN":GOSUB 6608 
6470 RS="FEB":GOSUB 6688 
6480 R$="MAR":GOSUB 6688 
6498 RS="APR":GOSUB 6608 
6580 R$="MAY":GOSUB 6608 
6510 R$="JUN":GOSUB 6608 
6520 R$="JUL":GOSUB 6688 
6530 R$="AUG":GOSUB 6680 
6540 R$="SEP":GOSUB 6688 
6558 R$="OCT":GOSUB 6608 
6568 R$="NOU":GOSUB 6608 
6570 R5="DEC":GOSUB 6608 
6580 CLOSE >t4:? "N":GOTO 2080 
6680 FOR Z=1 TO NR:REM CALCULATE MONTH 
LY CONSUMPTION AND COST 
6618 READ MS,Y.UNITS,DAYS,NET,HD,CD 
6628 HAVG=0:CAVG=8 
6630 IF MSORS THEN 6828 
6640 ? tt4:MS;" ";Y; 

6650 PRNT5=" 

":REM 65 SPACES 

6660 UP=INT C108»CUNITS/DAYS))/lOO 
6678 PRNTS C6-LEN CSTRS CINT CUP))),8)=STR 
SCUP) 

6680 PRNTS C15-LEN CSTRS CUNITS)),14)=STR 
SCUNITS) 

6698 PRNTS C22-LEN CSTRS CINT CNET))),24) = 
STRSCNET) 

6788 AUGzINT C100e«CNET/UNITS))/1080 
6710 PRNTSC28-LENCSTRSCINTCA0G))),31)= 
STRSCAUG) 

6720 PRNTS C39-LEN CSTRS CHD)),38)=STRS CH 
D) 

6730 IF HD>MINHD THEN HAUG=INTC168«CCU 
NITS-FCTR)/HD))/lOOO 

6740 IF HAVG=0 THEN PRNTSC42,44)=”N/A" 
:GOTO 6760 

6750 PRNTS C43-LEN CSTRS CINT CHAUG))),46) 
=STRS CHAUG) 

6760 PRNTSC53-LENCSTRSCCD)),52)=STRSCC 
D) 

6770 IF CD>MINCD THEN CAUG=INTCIOO^CCU 
NITS-FCTR)/CD))/1888 


MNTHLY MNT 
COOL PER" 

KHATT COS 
DGRE DGRE 
BE4 KHATT 
USE 

DAYS DAY" 
13 SPCS 


6780 IF CAUG=0 THEN PRNTSC56,58)="N/A" 
:GOTO 6888 

6790^PRNTS C57-LEN CSTRS CINT CCAUG))),68) 
=STRSCCAUG) 

6880 TIME=TIME*1:IF TIME=HL THEN SET=1 

6810 ? >14; PRNTS 

6820 NEXT Z:RESTORE 

6830 IF SET=0 THEN 6878 

6840 IF RS="DEC" THEN 6880 

6850 ? "INSERT ANOTHER SHEET OF PAPER; 

THEN DEPRESS ANY KEY":GET l>l,A 
6860 TIHE=0:SET=8:GOSUB 6418 
6878 LPRINT :TIME=TIME*1:IF TIHE=HL TH 
EN 6840 
6880 RETURN 

6999 REH INSTRUCTIONS FOR PREPARING DA 
TA LINES 

7010 ? "UPOR E0CH HOmH OF DOTO YOU NO 
UE, YOU HU5T TYPE ONE DOTO LINE." 

7020 ? "4THE FIRST DOTO LINE MUST BE N 
UMBERED 1000." 

7030 ? "40FTER THAT, EOCH DOTO LINE HU 
ST BE NUMBERED ONE HIGHER THAN TH 

E LAST." 

7040 ? "FOR EKAWLE, 1000 MJST BE FOLL 
OMED BY 1001, 1002, 1003, 1004, ETC. 


7050 ? "4DEPRESS ANY KEY MHEN READY FO 
R NEXT INSTRUCTIONS.":GET ltl,A 

7060 ? "NTHE FOLLOHING IS THE FORMAT F 
OR A DATA LINE:" 

7070 ? "41000 DATA OCT,82,1350,30,7S.2 
5,495 0" 

7080 ? "^REQUIRED DATA SEQUENCE AND FO 


RMAT:" 
7090 ? "1 
NG" 

7100 ? "2 
G" 

7110 ? "3 
MONTH" 
7120 ? "4 
ERIOD" 
7130 ? "5 
BILLING 
7140 ? "6 
ING 

7150 ? "7 
ING 


mNTH; MUST BE 3 LETTERS LO 
YEAR; MUST BE 2 NUmERS LON 
NUmER OF KILOHATTS USED IN 
NUmER OF DAYS IN BILLING P 


NET COST OF ELECTRICITY IN 
PERIOD" 

HEATING DEGREE DAYS IN BILL 
PERIOD" 

COOLING DEGREE DAYS IN BILL 
PERIOD" 

7160 IF LINE0 999 THEN ? "4LAST LINE 0 

F DATA YOU ENTERED IWS: "jLINE 

7170 ? "4N0M BEGIN TYPING NEW DATA LIN 

ES." 

7180 END 




CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 626,571,316,11,87,650,765,970, 

462,317,312,349,844,885,96,7261 

220 DATA 748,501,730,152,156,203,79,76 

9,55,604,722,11,498,617,840,6685 

520 DATA 258,376,999,591,189,73,420,43 

5,728,140,203,330,681,639,405,6467 

2090 DATA 851,848,852,604,860,824,723, 

279,394,487,725,125,171,153,332,8228 

3050 DATA 496,276,286,497,761,837,185, 

274,293,885,611,584,357,351,249,6942 

3200 DATA 778,316,848,308,491,727,470, 

84,494,758,865,148,662,750,783,8482 

4100 DATA 314,839,306,495,552,174,156, 

129,793,294,777,500,764,740,77,6910 

5110 DATA 101,50,652,783,713,236,823,6 

69,448,51,341,715,499,355,108,6544 

6020 DATA 373,553,240,527,488,719,149, 

800,872,557,326,764,751,18,104,7241 

6170 DATA 658,789,616,635,828,389,85,5 

36,63,546,626,457,719,248,372,7567 

6410 DATA 109,812,106,297,806,999,992, 

11,33,13,57,56,34,32,23,4380 

6560 DATA 60,992,414,734,777,465,896,3 

52,576,210,625,142,869,295,840,8247 
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6720 127,4«2,778,321,101,446,779, 

309,95,995,804,758,980,109,893,7977 
6870 D0T0 166,821,716,350,473,886,594, 
695,429,247,84,642,143,82,144,6472 
7120 D0T0 531,305,47,98,613,435,276,23 
05 


Snowflake Demo 

10 PEN 5N0MELAKE GENERATOR 

20 REM 

30 REM BY TOM HUDSON 
40 REM 

50 REM SET UP GRAPHICS MODE, COLORS 
60 REM 

70 GRAPHICS 8^16:SETC0L0R 2,O,0:COLOR 
80 REM 

90 REM SET UP DEGREES, X AND V TABLES 
100 REM 

110 DEG :DIH DCIO),K(10),YCie) 

120 REH 

130 REM RANDOMIZE SHAPE 
140 REM 

150 FOR 1=1 TO ie:DCI)=0:XCI)=RND(0)«8 
e:VCI)=RND(0]»I»4:NEXT I:POKE 77,0 
160 REM 

170 REM ECHO AND ROTATE SHAPE 
180 REM 

190 PLOT 160,96:F0R 1=1 TO 10:DRAUT0 1 
60* tX CI)«C0S CD CIJ J +Y CI1«SIN CD CIJ J1,96+ 
C-X CI)«SIN CD CIJ J♦Y CIJ»COS CD CIJ J J 
200 DCIJ=DCIJ+60:NEXT I:IF DCIJ<360 TH 
EN 190 

210 FOR 1=1 TO 10:DCIJ=0:NEXT I 

220 PLOT 160,96:F0R 1=1 TO 10:DRAUT0 1 

60+ CX CIJ*C0S CD CIJ J-Y ClJ«SIN CD CIJ J J,96+ 

C-X CIJ»SIN CD CIJ J-Y CIJKCOS CD CIJ J J 

230 DCIJ=DCIJ+60:NEXT I:IF DCIJ<360 TH 

EN 220 

240 REM 

250 REM LEAVE IT ON SCREEN A WHILE 
260 REM 

270 FOR 0ELAY=1 TO 5000:NEXT DELAY:RUN 
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TYPING TRAINER 


16K Cassette 24K Disk 
by Regena 

Typing Trainer utilizes color, graphics and 
sound to help a student practice typing sentences for 
accuracy. There are 40 different 30-stroke sentences 
that are chosen randomly for the drills. Each drill 
consists of ten different sentences. 

A sentence is shown on the screen. The student 
types and enters it. If it is incorrect, an ''uh-oh” 
sounds and a ''wrong” score is posted. The student 
has time to review the sentence before continuing. If 
the typed sentence is correct, a "right” score is 
posted, a train whistle sounds, and there are two 
blasts of steam from the engine’s smokestack. 

The running total score is displayed on the screen 
after each sentence. After ten sentences, the final 
score is displayed and a tune is played. 

Following each drill of ten sentences, the student 
may choose whether to try again or not. If "N” for 
"no” is entered, the program ends. If "Y” for "yes” 
is entered, the drill is repeated with ten different 
sentences. Each drill chooses the sentences random¬ 
ly, and the drill may be performed four times with¬ 
out sentences being repeated. After that, the sen¬ 
tences are all available for four more drills. The drills 
will be different each time because the sentences are 
chosen randomly. This process continues as long as 
the student wishes to continue. 

Programming techniques* 

ATARI does not allow arrays of string variables, 
so an array of sentence numbers is used. The sen¬ 
tences are numbered 1 through 40, where J is the 
number. Initially, all A(J)s are set to zero. After a 
sentence is used, A(J)=1. 

To print a sentence, first a number] is chosen as a 
random integer from 1 through 40 (Line 220). If 
A(J)=1 the sentence has been used before and may 
not be chosen again, so another J is chosen (Line 
230). If A(J)=0,SEN$ is set equal to the Jth sentence 
and the program branches to the drill (Lines 232- 
250, 4000-4390). 

After the drill has been performed four times 


(using FLAG as a counter), all A(J)s are reset to zero 
so the sentences are all available for use in the next 
drill (Line 180). 

To avoid the possibility of the student "crashing” 
the program during responses, an INPUT procedure 
is avoided. Instead, the program looks at what key is 
pressed by using B=PEEK(764). Yes or no responses 
are received by the student pressing "Y” or "N”. 
Any other key pressed is ignored. 

When sentences are typed, the characters are 
printed as each key is pressed until "RETURN" is 
pressed (which indicates the student is finished typ¬ 
ing the sentence). The control keys or SHIFTing are 
not allowed, since a typist practicing sentences 
should not backspace and type over letters, nor type 
capital letters in the middle of the sentence (actually, 
the student types all capital letters in the standard 
computer mode but does not SHIFT). If a control 
key or SHIFT is pressed, an asterisk is printed in that 
character position of the student’s sentence. 

To avoid scrolling, the student is permitted to type 
only 34 characters in the sentence (Line 2005). The 
student’s sentence is compared with the given sen¬ 
tence either after "RETURN” is pressed or after 34 
characters have been typed. □ 

Explanation of the program. 
Variables Used 

J Sentence number. 

A(J) =0 for available sentence, =1 if sen¬ 

tence has been used. 

FLAG Counter for number of times drill 

is performed. 

WS Wrong score. 

RS Right score. 

PROB Counter for number of sentences. 

R = 1 if sentence is typed correctly, 

=0 if sentence is typed incorrectly. 
D Counter in delay loop for SOUND. 
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B 

Value in PEEK(764) for key pressed. 

BB 

= 1 for "'yes” response, =0 for''no” 
response. 

I 

Counter in loop. 

C, L 

ASCII value. 

SEN$ 

Typing sentence. 

OLDB 

Holding variable for B value. 

K 

Counter for number of characters 
printed in student’s sentence. 

C$ 

Character for key pressed. 

T$ 

X,X1,Y,Y1,II, 

Student’s typed sentence. 

X2,Y2,X3,Y3 

Coordinates for graphics. 

Line Numbers 

; Procedure 

10 

Prints title screen and plays music. 

30 

Prints instruction screen. 

100 

DIMensions variables. 

120 

Reads in data for ASCII codes re¬ 
lated to key pressed. 

180-200 

Initializes variables. 

202 

Draws train. 

205 

Initializes score to be zero. 

210 

Performs the drill for 10 sentences. 

220-230 

Randomly chooses a sentence; if 
the sentence has been used previ¬ 
ously, chooses another one. 

232-250 

Depending on the J chosen, prints 
the corresponding sentence and 
prints the student’s sentence; com¬ 
pares sentences. 

255-280 

If sentence is incorrect, sounds 
"uh-oh” and increments wrong 
score. 

300-310 

If sentence is correct, train toots 
whistle and blows steam; incre¬ 
ments right score. 

320 

Prints running score. 

330-345 

Short delay for correct sentence, 
longer delay for incorrect sentence. 

350 

A(J)=1 indicates sentence J has 
been used and will not be available 
to use again. 

355-360 

Clears text screen and goes to next 
sentence. 

370 

After ten sentences, prints total 
score on full screen and plays 
music. 

400-495 

Asks the student to ''try again?” 
and waits for the student to press 
"Y” or "N.” 

496 

If the student pressed "N,” ends 
program. 

510-530 

If the student pressed "Y,” incre¬ 
ments the number of times the drill 
was performed. If the drill has been 
performed 4 times, resets all sen¬ 
tences to be available; branches to 
beginning of drill. 

999 

End. 


Subroutines 


1000-1060 

Subroutine reads DATA for assign¬ 
ing ASCII code to key pressed for 
use in printing. 

1900-2500 

Subroutine prints the sentence and 
accepts student’s sentence. 

1905 

Prints the sentence. 

1910-1930 

Sounds a "beep” to indicate the 
student’s turn to type. 

2000 

Initializes variables. 

2005 

Allows student to input up to 34 
characters. 

2010-2400 

Prints each character as the student 
types it. If the student tries to press 
a control or SHIFTed character, 
is printed. The student presses 
"RETURN” to end the sentence. 

2410-2500 

Sets R=1 if the sentence typed 
matches the given sentence, other¬ 
wise R=0, then returns. 

4000-4390 

The given 30-stroke typing sen¬ 
tences. 

5000-6840 

Subroutine draws the train and coal 
car. 

7000-7490 

Subroutine prints title screen and 
plays music. 

8000-8160 

Subroutine prints instructions and 
waits for student to press "RE¬ 
TURN’’ to continue. 

9000-9080 

Subroutine prints score and plays 
music. 


le GRAPHICS 18:G0SUB 7000 
30 G05UB 8000 

100 DIN AC40},LC63},SEN$C30),T$C35} 

Cl) ,N$€i) 

120 G05UB 1000 

180 FOR J=1 TO 40:A€J]=:0;NEXT J 

200 FLAG=e 

202 G05UB 5000 

205 MS=e:RS=0 

210 FOR PROBul TO 10 

220 J=:INTf40«RNDCl))^l 

230 IF A(J}=1 THEM 220 

232 IF J>30 THEN 248 

234 IF J>20 THEN 244 

236 IF J>10 THEN 240 

238 ON J G05UB 4000,4010,4020,4030,404 
0,4050,4060,4070,4080,4090 

239 GOTO 255 

240 JJ=J-10 

242 ON JJ GOSUB 4100,4110,4120,4130,41 
40,4150,4160,4170,4180,4190 

243 GOTO 255 

244 JJ=J-20 

245 ON JJ GOSUB 4200,4210,4220,4230,42 
40,4250,4260,4270,4280,4290 

246 GOTO 255 
248 JJzJ-38 

250 ON JJ GOSUB 4300,4316,4320,4330,43 

40,4350,4360,4370,4380,4390 

255 IF Rzl THEN 300 

260 SOUND 0,84,10,14 

264 FOR D=1 TO 40:NEXT D 

268 SOUND 0,101,10,14 

270 FOR Dm TO 40-.NEXT D 

275 SOUND 0,0,10,0 

286 MS=WS+l:GOTO 320 

300 GOSUB 3000 

310 RS=RS+1 
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320 PRINT :PRINT R5;*' RIGHT",MS;" MRON 
G" 

330 IF R=1 THEN 345 
340 FOR D=1 TO SOOrNEXT D 
345 FOR D=1 TO 500:NEXT D 
350 AfJ)=l 

355 PRINT :PRINT :PRINT 

360 NEXT PROS 

370 GOSUB 9000 

400 GRAPHICS 0 

410 PRINT :PRINT :PRINT 

420 PRINT "DO YOU HANT TO TRY AGAIN?" 

430 PRINT -.PRINT "PRESS ’Y' FOR YES" 

440 PRINT " 'N' FOR NO" 

450 B=PEEKC764) 

460 IF B=43 THEN BB=1:G0T0 490 

470 IF B=35 THEN B6=0:G0T0 490 

480 GOTO 450 

490 SOUND 0,23,10,8 

492 FOR 0=1 TO 10:NEXT D 

494 SOUND 0,0,10,8 

495 POKE 764,255:8=255 

496 IF BB=0 THEN 999 
Itlfl POTHT "K" 

510 FLAG=FLAG*l:IF FLA6=3 THEM 180 
530 GOTO 202 
999 END 

1800 FOR 1=0 TO 63 

1010 READ C:LCI)=C:NEXT I 

1040 DATA 76,74,59,0,0,75,43,42,79,0,8 

0,85,0,73,45,61,86,0,67,0,8,66,88,90,5 

2,0,51,54,0,53,50 

1050 DATA 49,44,32,46,78,0,77,47,0,82, 
0,69,89,0,84,87,81,57,0,48,55,0,56,60, 
62,70,72,68,0,0,71,83,65 
1060 RETURN 

1980 POKE 764,255:8=255 
1905 PRINT SEN$ 

1910 SOUND 0,47,18,14 
1920 FOR D=1 TO 60:NEXT D 
1930 SOUND 0,0.10,6 

2000 OLDB=-l:TS="":OPEM ttl,4,0,"K:" 
2005 FOR K=1 TO 34 
2810 GET ttl,B:IF B=155 THEN 2400 
2020 IF B>96 THEM CS="»":GOTO 2065 
2060 C$=CHR$fB) 

2065 PRINT CS;:TSCLENCTSJ+1J=C$ 

2080 NEXT K 
2690 GOTO 2480 

2100 I=INTCPEEKC53775J/'4J :IF CI/2J=INT 

CI/2} THEN 2810 

2110 POKE 764,255:0LD8=-1 

2120 GOTO 2810 

2400 CLOSE ttl 

2410 IF TS=SENS them R=1:G0T0 2500 

2420 R=0 

2500 RETURN 

3000 FOR 11=1 TO 2 

3010 SOUND 0,50,10,14:S0UND 1,63,10,14 

3025 COLOR 2 

3036 GOSUB 3500 

3040 FOR D=1 TO 186:NEXT D 

3050 SOUND 0,0,10,0:S0UND 1,0,16,0 

3070 COLOR 0:GOSUB 3500 

3090 NEXT II:RETURN 

3500 PLOT 121,3 

3510 PLOT 125,14:DRAHT0 126,10 
3530 PLOT 124,14:DR0UT0 125,0 
3550 PLOT 123,14:DRAHT0 123,0 
3570 PLOT 122,ll:DRAMT0 121,4 
3590 RETURN 

4000 SEMS="HE FEELS SHE HAS A SAFE LEA 
SE.":GOTO 1900 

4010 sen5="andy must give my band a ha 

ND.":GOTO 1900 

4020 SEMS="SHE IS STILL AT THE LAKE SI 
TE.":GOTO 1900 

4030 SENS="THERE IS A QUICK QUIZ FOR H 
IM.":GOTO 1900 

4040 SENS="JUST SOME OF US HAVE TO DO 
IT.":GOTO 1900 

4050 SENS="TM0 of THE GIRLS ARE HERE N 
OH.":GOTO 1900 

4060 SEN5="JANE starts HER TALK AT THR 
EE.";GOTO 1900 

4070 SENS="TRY not TO LOOK AT YOUR HAN 
DS.":GOTO 1900 


4080 SEN$="HE DID SEEK AID FOR THE TRU 
CK.*':GOTO 1900 

4090‘SEM$="CHECK THE PAPER FOR AMY MAR 
KS.";GOTO 1900 

4100 SENS="IT IS THIS DESK FILE HE SEE 
KS.":GOTO 1900 

4110 SEN$="HE KNOHS HE MUST KEEP MIRKI 
NG.";GOTO 1900 

4120 SEN$="I« mULD GIVE HIM A GOOD IM 
GE.":GGTO 1900 

4130 SEN$="BRING ALL BOOKS TO THE TABL 
ES.";GOTO 1900 

4140 SENS="I HOPE THAT TAX DOES MOT PA 
SS.":GOTO 1900 

4150 SEN5="GREG BROUGHT IN A LARGE CHE 
CK.":G0T0 1900 

4160 SEN$="IT IS UP TO THEM TO MORK HA 

RD. ";GOTO 1900 

4170 SEN$="PUT A LITTLE MORE EFFORT HE 

RE. ":GOTO 1900 

4180 SEN$="HAVE A GOAL; MORK TO REACH 
IT.":GOTO 1900 

4190 SEN5="ALL GLAD DADS HAD A GLASS J 
AR.":GOTO 1900 

4200 SEN$="IT IS HOH HE MORK THAT COUN 
TS.";GOTO 1900 

4210 SENS="T0M has QUICK TO SEND THE B 
nu *■ * iifiTfl 1 

4220'SEN5="REX HILL HAVE MUCH MORE TO 
DO.":GOTO 1980 

4230 SEN$="I MILL GO TO TOHN TO GET TH 
EM.":GOTO 1900 

4240 SEN$="HE CAN LEND A HAND TO THE B 
OY.":GOTO 1900 

4250 SEN5="I PAID THE MEN FOR THEIR HO 
RK.":GOTO 1960 

4260'SEN$="THE HORKER SAID HE STRUCK 0 
IL.":GOTO 1900 

4270 SEN$="SHE SAID HE NEED A NEH CAMP 
ER.":GOTO 1960 

4280 SEN$="I BOUGHT THE BIG BOX OF BOO 
KS.":GOTO 1908 

4290 SEN5="ME SHOULD SET A GOAL FOR TH 
EM.":GOTO 1900 

4300 SENS="TRY TO TYPE ALL THE BIG HOR 
DS.":GOTO 1900 

4310 SEN5="ME MAY QUIT THIS HORK AT FI 
UE.":GOTO 1900 

4320 SEN5="Y0U have TO HORK FOR THO DA 
YS.":GOTO 1900 

4330 SEN$="TRY TO GET ONE OR TM) OF TH 
EM.":GOTO 1900 

4340 SEN$="YOUR BEST MEN MILL HELP DO 
IT.":GOTO 1900 

4350 SEN$="HAVE THE BOYS DO THE MORK N 
flu ■'■nfiTn 

436o’5EHS="LET HIH PROVE THE RIGHT THI 
NG.'‘;GOTO 1588 

4370 5EM$="THEV SHOULD RE8D NV GOOD BO 
OK.'MGOTO 1508 

4380 SEN$="*5HE CON DO 0 BIG JOB THE BE 
5T.":G0T0 1500 

4350 5EN$=‘'D0VE NODE 0 COGE FOR HIS PE 

TS,*';GOTO 1500 

5000 GROPHICS 7:COLOR 1 

5005 COLOR 1 

5010 FOR Y=20 TO 25 

5020 PLOT 55,Y:DR0MT0 88,Y 

5040 NEXT Y 

5050 FOR Y=26 TO 37 

5060 PLOT 60,Y:DR0UT0 65,Y 

5080 PLOT 83,Y:DR0HT0 88,Y 

5100 NEXT Y 

5110 FOR Y=38 TO 58 

5120 PLOT 60,Y:DR0HT0 130,Y 

5140 NEXT Y 

5150 FOR Y=:34 TO 37 

5160 PLOT 57,Y:DR0NTO 103,Y 

5188 NEXT Y 

5158 PLOT 58,33:DR0HT0 102,33 
5210 PLOT 10O,32:PLOT 122,38 
5230 DR0NTO 118,18 
5240 DRAMTO 122,15 
5250 DROMTO 126,15 
5260 DROHTO 130,18 
5270 DRAWTO 126,38 
5280 COLOR 2 
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5230 PLOT 59,58:DR0MT0 58,58 

5310 FOR X=43 TO 13 5TEP “1 

5320 PLOT X,40:DRAUT0 X,58 

5340 NEXT X 

5350 COLOR 3 

5360 X1=128:Y1=56 

5370 G05UB 6000 

5388 X2=:80:Y2=48 

5330 G05UB 6500 

5332 X3=37:Y3z53:G05UB 6288 

5335 X3=27:Y3“53:G05UB 6288 

5408 FOR Il::2 TO 4 

5418 PLOT 11*10,33 

5420 DRAMTO 11*10+8,33 

5430 PLOT 11*10+2,38 

5440 DROMTO 11*10+7,38 

5450 PLOT 11*10+3,37 

5460 DRAMTO 11*10+7,37 

5470 PLOT 11*10+5,36 

5480 NEXT II 

5430 RETURN 

6000 PLOT XI,Y1 

6010 DRAMTO X1+4,Y1 

6020 DRAMTO Xl+7,Yl+3 

6030 DRAMTO Xl+7,Yl+7 

6040 DRAMTO X1+4,Y1+10 

6050 DRAMTO X1,Y1+10 

6060 DRAMTO Xl-3,Yl+7 

6070 DRAMTO Xl-3,Yl+3 

6080 DRAMTO XI,Y1 

6030 RETURN 

6200 COLOR 3 

6205 PLOT X3,Y3 

6210 DRAMTO X3+4,Y3 

6220 DRAMTO X3+6,Y3+2 

6230 DRAMTO X3+6,Y3+6 

6240 DRAMTO X3+4,Y3+8 

6250 DRAMTO X3,Y3+8 

6260 DRAMTO X3-2,Y3+6 

6270 DRAMTO X3-2,Y3+2 

6280 DRAMTO X3,Y3 

6230 PLOT X3+2,Y3+4 

6300 RETURN 

6500 PLOT X2,Y2 

6510 DRAMTO X2+6,Y2 

6520 PLOT X2+7,Y2+1 

6530 PLOT X2+8,Y2+1 

6540 PLOT X2+3,Y2+2 

6550 PLOT X2+10,Y2+3 

6560 PLOT X2+ll,Y2+4 

6570 PLOT X2+ll,Y2+5 

6580 PLOT X2+12,Y2+6 

6530 DRAMTO X2+12,Y2+12 

6600 PLOT X2+11,Y2+13 

6610 PLOT X2+11,Y2+14 

6620 PLOT X2+10,Y2+15 

6630 PLOT X2+3,Y2+16 

6640 PLOT X2+8,Y2+17 

6650 PLOT X2+7,Y2+17 

6660 PLOT X2+6,Y2+18 

6670 DRAMTO X2,Y2+18 

6680 PLOT X2-1,Y2+17 

6630 PLOT X2-2,Y2+17 

6700 PLOT X2-3,Y2+16 

6710 PLOT X2-4,Y2+15 

6720 PLOT X2-5,Y2+14 

6730 PLOT X2-5,Y2+13 

6740 PLOT X2-6,Y2+12 

6750 DRAMTO X2-6,Y2+6 

6760 PLOT X2-5,Y2+5 

6770 PLOT X2-5,Y2+4 

6780 PLOT X2-4,Y2+3 

6730 PLOT X2-3,Y2+2 

6800 PLOT X2-2,Y2+1 

6810 PLOT X2-1,Y2+1 

6820 PLOT X2+3,Y2+3 

6830 DRAMTO Xl+2,Yl+5 

6840 RETURN 

7000 POSITION 3,3:PRINT tt6;"TYPING" 

7020 POSITION 3,5:PRINT tt6; "TRAINER" 

7040 SOUND 0,50,10,8 

7060 FOR Dzl TO 50-.NEXT D 

7030 SOUND 0,0,10,8 

7100 SOUND 0,50,10,8 

7120 FOR D=1 TO 25:NEXT D 

7130 SOUND 0,0,10,8:50UND 0,50,10,8 

7140 FOR D=1 TO 25:NEXT D 


7150 SOUND 0,42,10,8 

7170 FOR D=1 TO 50:NEXT D 

7200 SOUND 0,0,10,0 

7210 SOUND 0,42,10,8 

7230 FOR D-1 TO 25:NEXT D 

7240 SOUND 0,50,10,8 

7260 FOR D=1 TO 25:NEXT D 

7270 SOUND 0,63,10,8 

7230 FOR D-1 TO 25:NEXT D 

7300 SOUND 0,0,10,8:S0UND 0,63,10,8 

7310 FOR Drl TO 25:NEXT D 

7320 SOUND 0,56,10,8 

7340 FOR Dzl TO 25:NEXT D 

7350 SOUND 0,0,10,8:SOUND 0,56,10,8 

7360 FOR D=1 TO 25:NEXT D 

7370 SOUND 0,50,10,8 

7410 FOR D=1 TO 50:NEXT D 

7420 SOUND 0,63,10,8 

7430 SOUND 1,127,10,2 

7440 SOUND 2,101,10,2 

7450 FOR D=1 TO 100:NEXT D 

7460 SOUND 0,0,10,0 

7470 SOUND 1,0,10,0 

7480 SOUND 2,0,10,0 

7430 RETURN 

8000 GRAPHICS 0 

8010 PRINT :PRINT 

8020 PRINT "YOU MILL SEE A SENTENCE" 
8030 PRINT "ON THE SCREEN." 

8040 PRINT :PRINT "TYPE AND ENTER IT." 
8050 PRINT ;PRINT "IF IT IS CORRECT," 
8060 PRINT "THE TRAIN MHISTLE MILL BLO 
N." 

8065 PRINT :PRINT "IF IT IS INCORRECT, 
YOU MILL" 

8066 PRINT "HAUE TINE TO CHECK YOUR TY 
PING." 

8070 PRINT :PRINT "YOU MILL BE SHOMN Y 
OUR SCORE" 

8080 PRINT "AFTER EACH SENTENCE." 

8030 PRINT :PRINT "AFTER TEN SENTENCES 

II 

8100 PRINT "YOUR FINAL SCORE IS SHOMN. 


8120 PRINT :PRINT 

8130 PRINT "PRESS ‘RETURN* TO CONTINUE 

■I 

8140 B=PEEKC7641:IF B<>12 THEN 8140 

8145 SOUND 0,23,10,8 

8146 FOR D=1 TO 10:NEXT D 

8147 SOUND 0,0,10,0 
8150 POKE 764,255:6=255 
8160 RETURN 

3000 GRAPHICS 18 

3010 POSITION 2,3 

3020 PRINT tt6;"RIGHT",RS 

3030 POSITION 2,5 

3040 PRINT tl6;"MR0NG",MS 

3070 GOSUB 7040 

3080 RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 640,5,840,733,174,607,803,64,5 

30,317,817,464,452,440,123,7735 

233 DATA 725,450,383,722,456,5.725,462 

,22,563,433,132,605,131,237,6717 

280 DATA 648,737,523,544,574,503,508,5 

03,434,221,836,830,473,154,371,8651 

440 DATA 421,10,832,838,734,533,137,31 

4,357,510,372,506,704,78,347,8073 

1010 DATA 456,568,468,785,718,125,543, 

534,483,373,356,618,247,334,323,8743 

2080 DATA 500,714,75,283,708,867,537,1 

,736,310,377,650,333,275,155,7133 

3070 DATA 833,758,306,727,520,518,522, 

807,631,817,116,872,875,353,313,10834 

4070 DATA 154,738,320,707,361,772,31,3 

87,305,747,41,774,711,356,15,3533 

4220 DATA 301,20,757,28,124,753,764,32 

4,68,41,332,13,371,323,388,8207 
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4370 DftTO 959,698,810,980,651,559,404, 
544,580,477,497,543,588,576,547,9493 
5150 DATA 580,599,551,518,536,352,347, 
352,353,363,656,683,320,485,550,7245 
5350 DATA 657,34,949,205,961,382,387,3 
30,299,21,398,19,400,19,405,5466 
5480 DATA 740,808,136,698,730,735,975, 
580,732,729,298,798,651,156,714,9480 
6220 DATA 743,748,747,778,745,742,316, 
662,798,153,722,669,673,679,523,9698 
6560 DATA 528,532,537,902,722.724,725, 
531,532,530,531,630,519,523,517,8983 
6710 DATA 518,519,517,518,762,685,684, 
680,676,665,663,682,747,817,597,9730 
7020 DATA 897,341,520,496,340,515,45,5 
17,344,524,477,343,519,347,522,6747 
7270 DATA 356,525,54,520,354,523,59,52 
5,353,527,357,528,516,296,489,5982 
7470 DATA 491,493,812,56,589,969,673,4 
4,159,494,590,861,734,421,423,7809 
8100 DATA 155,593,773,106,350,523,494, 
713,802,326,223,270,231,305,961,6825 
9080 DATA 803,803 




Graphics 8 Color Demo 


10 GRAPHICS 8:5ETC0L0R 2,0,15;SETC0L0R 
1,0,0:C0L0R 1 
20 FOR X=0 TO 200 STEP 2 
30 PLOT K,e:DRAMT0 K,ie 
40 NEXT X 

SO FOR X=1 TO 201 STEP 2 
60 PLOT X,20:DRAHT0 X,30 
70 NEXT X 
80 FOR X=8 TO 200 
90 PLOT X,40:DRAMT0 X,50 
100 NEXT X 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 137,79,108,393,90,207,399,111, 
225,758,2507 





ENTERTAINMENT 
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MOTORCYCLE 
MAZE RIDER 


16K Cassette 24K Disk 


by Charles Bachand 


Maze Rider is a game in which you roar through a 
twisting maze of tunnels on a motorcycle. You are 
hindered in this feat by the fact that your viewpoint 
is from inside the maze. The display is your window 
into the maze. 

In order to play Maze Rider, a joystick must be 
inserted into port #1, After typing RUN the 
program will initialize and generate an introduction 
screen. The program will ask you to respond to 
questions about game options. The first question is 
'‘Do you want to leave a trail?” If the answer is yes, 
the game will display a line on the ground where you 
have previously traveled. The "Extra Passages” 
option will add more interconnecting passages to the 
maze. The map option allows you to see a map of the 
maze displaying an overhead view of the game area. 
Motorcycle noise can be eliminated in the last option 
if desired. 

Pushing the joystick forward will move you 
forward within the maze. Pulling back on the joystick 
will make you move backward within the maze. 
Pushing the joystick to the left or right will change 
the direction that you are facing. Pushing the joystick 
to the left will make you turn in a counter clockwise 
direction and pushing to the right will make you 
turn in a clockwise direction. If the map option has 
been enabled, pushing the joystick trigger button 
will display an overhead view of the maze for about 
ten seconds. 

For the technical types out there who are 
interested in how things work, the maze in this game 
is generated using a modified random walk routine 
that stores the X and Y locations it has traveled to 
into two tables, which are stored on page six of the 
computer’s memory. As the cursor walks along, 
generating the maze, the X axis is stored at XPNT-f- 
PNTR. The index variable PNTR is then 
incremented by one. This operation continues until 
it runs into a dead end. At this point the program 
starts backtracking back to its origin. The index 
variable PNTR is decremented by one and the last X 
and Y coordinates are pulled from their locations in 
page six. The program then does LOCATEs up. 


down, left and right, looking for an unused space. If 
the program detects such a space around the cursor, 
the maze drawing process is turned back on. The 
cursor continues to advance and retreat until it 


bumps into 

its origin. □ 

Line 

Explanation 

100-640 

Generates maze 

640-830 

Draws maze interior 

840-1060 

Main program routine 

1070-1110 

End of game. 

1120-1130 

Draws map of maze 

1140 

Draws outline of maze 

1150-1230 

Title and options select 

1240 

Perspective view data 


leO REM MOTORCYCLE MAZE RIOER 

110 REM * COPYRIGHT 1386 C.BOCHAHD * 
120 REM 

130 REM for ONOLOG MftGiiZINE 

140 REM 

150 TOP-PEEK (106) ISWITCH-O 

160 G05UB 1150:G0SUB 1140 

170 PRINT GENERATING MAZE GRID * 


IBS KC-INT CRND(Z)*{(MIDTH-3)/2))*2 + 3 

190 YC-INT CRND(0)*C CLENGTH-3)/2))»2 + 3 

200 EX=KC : EY=YC : KPNT=1536 : YPHTz:1632 

210 SETCOLOR 1,0,14 

220 COLOR 2;PL0T XC,YC:C0L0R 1 

230 LNG=INT(RND(03*33*2+2 

240 DIRz:INT(RND(03*4) 

250 5=(DIR = 83-(DIR:ri3 

260 T=CDIR=:23-(DIRr33 

270 FOR lz:2 TO LNG STEP 2 

280 LOCATE XC+5*I,YC+T*I,P 

290 IF P AND 1=2 THEN POP :G0T0 230 

300 IF P THEN POP ;LNG=2;G0T0 250 

310 NEXT I:XC=XC+5*LNG;YC=YC+T*LNG 

320 IF PNTR>PMAX THEN PMAX=PNTRJMX=KC: 

my=yc:ms=5:mt=t 

330 DRAMTO XC,YC:PNTR=PNTR+1 

340 SOUND 0,D2-PNTR*8,10,8 

350 POKE XPNT+PNTR,XC 

360 POKE YPNT+PNTR,YC 

370 GOSUB 600;IF P THEN 390 

380 SOUND O,D2-PNTR*8,10,2;GOTO 230 

390 XC=PEEK (XPNT + PNTR) 

400 YC = PEEK (YPNT+PNTR) 

410 PNTR=PNTR-1;G0SUB 680 

420 SOUND 0.D2-PNTR*8,10,8 

430 IF P AND PNTR THEN 390 

440 POKE 77,Z:S0UND 0,D2-PNTR*8,18,2 
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450 PLOT KC,YC:IF PMTR THEN 236 

468 COLOR 3;PL0T H3<,KY;COLOR 1 

470 HOPi:iiDR(MftP$) :IF 1-EKTRO THEN 530 

480 FOR I=:l TO 25 

498 KC-INTCRNDC0)«(WIDTH-4)5+3 

506 YCrINTCRHDC0)*tLENGTH-4))+3 

510 Y~CKC+YC>/2;IF IHTCYJ-Y THEN 490 

520 PLOT KC,YC:NEKT I 

530 SOUND 0,6,e,O;FOR Y-l TO LENGTH 

540 FOR H=1 TO WIDTH i LOCl^TE K,Y,P 

550 POKE MftP+Y*40+K,PsNEKT K:NEKT Y 

560 5--M5:T=-MT:MS::0JFOR In© TO 6 

570 READ K:POKE KPNT+I,K:NEXT I:P3-0 

580 YPNT-KPNT+8:P0KE YPNT-1.79 

596 FOR 1=8 TO 6:PGKE VPKT+I,79"CPEEKC 

KPNT + I3+PEEK€KPHT+I-13)/4:NEXT 12 GOTO 

846 

600 LOCATE KC+2.YC,Pi 

616 LOCATE XC“2,YC,P2 

620 LOCATE KC,YC+2,P3 

630 LOCATE XC,YC“2,P4 

640 P=P1 AND P2 AND P3 AND P4:RETURN 

650 P1=0;GRAPHIC5 6sSETC0L0R 1,6,14;P0 

KE 752,l;PRINT :PRINT ”K00KING *’;A$,'* 

HOUES *’;M0UEJM0UE=M0VE + 1 

660 FOR YC=6 TO 6:P2=NRCl,YC) 

670 IF P2=2 THEN G05UB 830 

680 IF NOT P2 THEN POP :GOTO 836 

690 X1=P1:X2=PEEKCXPNT+YC);P1=K2 

708 IF FEET AND YC THEN IF P2=3 AND NR 

C1,VC-13=3 THEN PLOT 79,PEEK (YPNT+YC-1 

):DRAWTO 79,PEEKCYPNT+YC3 

710 FOR KC=0 TO 2 STEP 2 

726 IF XC THEN K1=158~H1:X2=158-K2 

730 KDl = Xl/2.'HD2=K2/2 

740 IF NRCKC,YC) THEN 766 

750 PLOT Xl,XDl:DRAWTO X2,KD2:PL0T Kl, 

79-KDl;DRAWT0 X2,79~XD2:GOTO 790 

768 PLOT Xl,XDl;DRAWTO XI,79-KDl:PLOT 

K1,XD2;DRAWT0 X2,XD2:PL0T X1,79-XD2:DR 

AWTO K2,79-KD2 

770 IF NRC1,YC+1) THEN DRAWTO K2,XD2 
780 GOTO 880 

790 P2=NRC1,YC+1):IF P2=6 OR P2=2 THEN 
DRAWTO X2,KD2 

800 IF FEET THEN IF YC AND NRCKC,YC)=3 
THEN PLOT 79,PEEKCYPNT+YC):DRAWTO Kl, 
PEEKCYPNT+YC3 

810 NEXT KC5NEXT YC:IF NOT HRC1,73 TH 
EN IF NRC0,63 OR KRC2,63 THEN PLOT 79, 
39:PL0T 79,46 
820 RETURN 

830 PLOT X2,KD2*.DRAWT0 159~K2, XD2 ; PLOT 
X2,79~KD2:DRAWTO 159-X2,79-XD2:RETURN 
846 SOUND 1,250,2,SND*4;COLOR 1:MAP=AD 
RC«AP^3:IF TOl THEN 860 
858 FOR XC=-1 TO IJFOR YC=e TO 7:NRCXC 
+ 1,YC)=PEEKCHAP ^ CHY+YC3*40 + HX-XC) INEXT 
YC:HEKT XC: A$ = ‘*S0UTH**260T0 926 
860 IF TO-1 then 880 

870 FOR KC=~1 TO 1;FOR YC=0 TO 7:NRtKC 
+1,VC3=PEEKCHAP+tKY~YC>*48+MX+XC5INEXT 
YC:NEXT XC:A$="NORTH”:GOTO 926 
880 IF SO-1 THEN 966 

890 FOR XC=~i TO 14 FOR YC = 0 TO 7:NRCXC 
+ 1, YC3=PEEKCMAP+ CHY~XC5*40 + MX~YC) :NEKT 
YC:NEXT XC : A$ = **WEST” : GOTO 928 
906 IF SOI THEN 920 

910 FOR XC=-1 TO l:FOR YC=0 TO 7:NRCXC 
+ 1, VC3=PEEK CMAP+ CMV + XC3^t40+HX + YC> :NEKT 
YCsNEXT XC: A$ = ”EAST*’ 

920 POKE 54286,0:SWITCH=16-SWITCH:POKE 
i06,TOP-SWITCH;GOSUB 650:POKE 54286,6 
4:P0KE 77,0 

930 IF STICKC03<13 THEN 938 
940 IF STRIGC03 OR HAPSW=0 THEN 988 
950 IF P3>2 THEN SOUND 6,56,12,6:PRINT 
"fS^KHREE LOOKS IS YOUR LIMIT**: FOR 1= 
1 TO i80:NEXT I:GOTO 986 
966 GOSUB 1140:P3=P3+l;SETC0L0R 1,6,14 
; PRINT »*4^CHECK MOTORCYCLE MAZE MAP It** 
;P3:G0SUB 1120 

970 FOR X=1 TO 10:FOR P-1 TO 4:F0R 1=1 
TO 10:NEXT I: COLOR P;PLOI MX,MY:NEXT 
P:NEKT X:S0UND 0,O,0,6:GOTO 848 
988 SOUND 0,8,0,0:P=STICKC83:IF P=15 0 
R P=5 OR P=6 OR P=9 OR P=10 THEN 940 


990 IF P=14 THEN MX=MX1S:MY=MY+T:SOUND 
0,120,6,SND*6:IF NOT PEEK CMAP4MY*40 + 
MX3 THEN HX=MX“S:MV=MY~T:P=8 
1060 IF P=13 THEN MX=KX-S:MY=MY-T:SOUN 
D 0,120,6,SND*6:IF NOT PEEKCMAP+MYN40 
+MX) THEN MX=MK+S:MY=MY+T;P=0 
1010 IF P=7 OR P=ll THEN P1=S:S=~T:T=P 
1 

1026 IF P=ll THEN S=~S:T=-T 

1030 IF P=6 THEN PRINT ► ►CRASH ??**; F 

OR P=15 TO 6 STEP -1;S0UND 8,128,12,P: 

FOR 1=1 TO 5:NEXT I:NEKT P:P=0:MS=0 

1040 I = MAP+MY3C40 + MX:IF PEEK CD =2 THEN 

1870 

1856 POKE I,3:IF P THEN 848 
1066 GOTO 940 

1070 PRINT YOU ARE FREE 

*'*:FOR K=1 TO 5:F0R Y=20O TO 6 STEP “4 
1080 SOUND Z,Y,10,XN3:NEXT YsFOR I=i T 
0 4:PL0T RNDC03*159,0:DRAWTO RNDC83«i5 
9,79;NEXT I2KEXT X:SOUND Z,Z,Z,Z 
1090 POKE 106,TOP 

1100 FOR 1=1 TO 100:HEXT I:GOSUB 11465 
SETCOLOR 1,0,14:PRINT **ISi ► *** YOU’RE 
FINAL MAP sGOSUB 1126 

1110 POKE 752,0:END 

1120 MAP=ADRCMAPS3:FOR Y=3 TO LENGTH-2 
:FOR X=3 TO WIDTH-2:COLOR PEEKCMAP+Y*4 
01X3 

1136 SOUND 6,290-Y*i4-X,16,6:PLOT X,Y: 
NEXT X:NEXT Y:RETURN 

1140 GRAPHICS 3:C0L0R 1:PL0T 1,1;DRAWT 
0 WIDTH,1:DRAWTO WIDTH,LENGTH:DRAWTO 1 
, LENGTH: DRAWTO 1,1 .'POKE 752,1:RETURN 
1150 GRAPHICS 2:SETC0L0R 1,8,14:PRINT 
It6;“ / Motorcycle \*‘:PRINT lt6;” / 

Maze rider \**:PRINT »6:0PEN ttl,4,0,‘*K 

» IV 

il60 WIDTH=39:LENGTH=19:DP=96:D2=DP*8 
1170 DIM MAP$C8063,A$C5),C$C1>,NRC2,75 
1186 PRINT »6:PRINT lt6:PRINT 116 :** S AN 
ALOG 490/880 £?*: PRINT tt6;** ITFfCTIt 

133 S3SS": PRINT tt6 

1198 PRINT "R4 DO YOU WANT TO LEAUE 
A TRAIL**; :GET ltl,A :IF CHR$ CA) =-*V’* THEN 
FEET=1 

1200 PRINT **N4 DO YOU WANT EXTRA PAS 
SAGES**; :GET ltl,A:IF CHR$CA)=**Y** THEN E 
XTRA=l:GOTO 1210 

1210 PRINT **1^4 DO YOU WANT TO USE TH 
E MAP**;:GET ttl,A:IF CHR^ CA) =**Y** THEN M 
APSW=l:GOTO 1220 

1228 PRINT DO YOU WANT MOTORCYCL 

E SOUND**; :GET ttl,A:IF CHR$CA3=”V‘* THEN 
SND = 1 

1230 RETURN 

1240 DATA 0,28,46,60.68,74,78 


CHECKSUM DATA 
(See pgs. 7-10) 


180 DATA 973,829,86,789,86,469,439.385 
,404,693,788,697,18,368,835,7853 
250 DATA 747.761,569,387,358,457,828,5 
40,163,271,171,179,514,336,458,6739 
400 DATA 438,712,267,423,694.456,100,9 
63,158,961,122,719,82,430.631,7696 
550 DATA 867,379.93.341.481,828,838,76 
9,779,958,394,608,285.382,423,8425 
706 DATA 88,115,600,785,415,343.948,76 
8,733,963,766,874,601.208.886.8953 
850 DATA 254.789.244.770.417,496,244,3 
17,487.497,589,527,451,885,494,7381 
1800 DATA 548,49,452,784,177,429,896,3 
22,878,159,677,368,241,580,79.6639 
1156 DATA 298,82,185,147.995,426,316,4 
95,788,240,3972 
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DINO BAHLE 


24K Cassette 32K Disk 
by Art V. Cestaro III 


Dino Battle is a game of primordial confronta^ 
tion, a fierce battle between two players. See if you 
can defeat a dinosaur! 

Your goal is to bite your opponent’s dinosaur on 
the back of the neck. By moving your joystick and 
pressing the firing button, you can move your dinO" 
saur and open and close his mouth. You may make a 
number of attempts before you succeed. Try to bite 
your opponent as many times as you can before the 
time is up. 

Your score is displayed on the side of each dino- 
saur at the start of the game. You receive one point 
each time you bite the other dinosaur. □ 


Line 

Explanation 

Y, Y1 

Vertical position of dinosaur 1 

3 

Sets GRAPHIC mode and colors 

12 

Sets time and score 

13-16 

Draws landscape 

80-81 

Prints text 

100-200 

Main loop: checks joystick and 
triggers and increments time 

300-315 

Moves dinosaur figures on screen 

1000-1015 

Turns dinosaur number 1 around 

1100-1115 

Turns dinosaur number 2 around 

3500-3595 

Makes dinosaur 1 open his mouth 
and try to bite the other one 

3600-3710 

Makes dinosaur 2 do the same thing 

3800 

Prints both players’ scores 

3900-3905 

Plots cacti 

3910-3930 

Plots rocks 

4000-4021 

Plots dinosaur 1, fall routine 

4500-4531 

Plots dinosaur 2, fall routine 

4600 

Erases the dinosaur 

4800-4810 

Moves dinosaur away from defeated 
opponent 

5000-5990 

Plots title 


7000^7110 

8000^8220 

10000-10035 

10040-11000 

12000-12900 


Opening display 
End of game 

Sets up player/missile graphics 
Reads shape data and stores it in the 
proper arrays 
Data for shapes 


Name 

Time 

Score 1 

Score 2 

TT 

X 

X2 

DRl 

DR2 

DFl 

DBl 

DF2 

DB2 

Y, Y1 

Y2, Y3 

RT, RET, RTl 

G, H, DD 

C, Z, 

I 


Variable 

Time in seconds of the game 
Players’ scores 

Timing variable 

Horizontal position of dinosaur 1 
Horizontal position of dinosaur 2 
Direction dinosaur 1 is facing 
Direction dinosaur 2 is facing 
Area in memory where player data 
is poked 


Vertical position of dinosaur 1 
Vertical position of dinosaur 2 
Return Flags 
Dummy variables 

Top of RAM: used for setting up 
player/missile area 


Arrays 

TFl, TF2 Flying dinosaur’s front 

TBl, TB2 Flying dinosaur’s back 

DlNFl 

D1NF2 Dinosaur front and back views 

DlNBl 

D1NB2 

DHR Dinosaur’s head and mouth open 

Each dinosaur is made up of two players, positioned 
next to each other so they make up one dinosaur 
shape. □ 
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0 REM reu i.o 

1 REM By ftrt U Cestaro III 10/13/81 

3 GRAPHICS 7;CLR :POi(E 752,1:POKE 712, 
197:P0KE 710,24:POKE 708,99:POKE 709,1 
95 

6 G05UB 3930 

12 TIME=59;TIM=0:SCORE1“0:SCORE2-0:COL 
OR 1 

13 YzINTCRHD( 0J*35+105:D=l:F0R X^O TO 
158 STEP 2:YlrINTtl5*RND(0)+Y-5*D):PL0 
T X,47:DRAHT0 X,Y:PL0T X+1,47 

14 DRAHTO X+1,CY+YlJ/2:YrYl:IF Y>40 TM 
EM YzY-10:Dz:2 

15 IF Y<20 THEM YzY+10;Dzl 

16 MEXT X 

17 GOSUB 390O:GOSUB 3918 
30 GOSUB 7000 

75 RET=0:G0SUB 1008e:G0SUB 16e0:G0SUB 
1100 

80 POKE 752,l:P0KE 656.0;P0KE 657.3:? 
:VEQQ3ai":P0KE 656,0;P0KE 657,28:? >* 

MTTnTMF 

81 POKE 656,0:P0KE 657,12:? "• I I: 
POKE 656,0:POKE 657,27; ? "U<^U f|»;POK 
E 656,0:POKE 657,16:? ■'■lEQSIiBV 

82 GOSUB 3800 

100 TT=TT+0.2:IF TT>1 THEM TT30:TIME=T 
IME--l:IF TIME<1 THEM TIMEr59: TIM=TIM“1 

104 IF STICKC0)=7 THEM X=X+2:IF DR1=1 
THEN GOSUB 1000 

105 IF STRIGtOJiiO THEM RT=0:G0SUB 3500 

110 IF STICKC13Z7 THEN X2=:X2+2:IF DR2= 

2 THEN GOSUB 1110 

111 IF X<55 THEN XzSS 

112 IF X>195 THEM X-ISS 
115 ON DRl GOSUB 300,305 

120 IF STICK(l)i:ll THEN X2zX2“2:IF DR2 
=1 THEN GOSUB 1100 

130 IF STICKC0)=11 THEN X:iX“2: IF DRlz2 
THEN GOSUB 1610 

132 IF STRIGCDziO THEN RT1=0:G0SUB 360 
0 

133 IF X2<55 THEN X2r55 

134 IF X2>195 THEN K2=195 

135 ON DR2 GOSUB 310,315 

169 IF TIM<1 AND TIME<2 THEN POKE 656, 

2:P0KE 657,18:? **0 : OO'*: GOTO 8060 

172 IF TIME<10 THEN POKE 656,2:P0KE 65 

7,18:? TIM;";0'*;TIME ;GOTO 180 

175 POKE 656,2:P0KE 657,18:? TIM;":“;T 

IME;" " 

180 POKE 77,0 
200 GOTO 100 

300 POKE 53248,X;POKE 53249,X-8:RETURN 
305 POKE 53249,X~8:P0KE 53248,X:RETURN 
310 POKE 53250,X2-8:P0KE 53251,X2:RETU 

RN 

315 POKE 53251,X2:P0KE 53250,X2-8:RETU 

RN 

1000 I>R1=:2:F0R G=1 TO 4;P0KE DB1TG,0:N 
EXT G;Y-65; Yl=69:DFlzY + J:DBl=:Yl + Jl;F0R 
G=1 TO 18:P0KE DB11G,DINB1CGJ 
1005 POKE DF1+G,DINF1 (G);MEXT G:FOR G= 
19 TO 22:P0KE DFl+G,DINFl(G):MEXT G:RE 
TURN 

1010 DRl=l:FOR G=1 TO 4:P0KE DF1+G,0:N 
EXT G ; Yi:69 ; Yl=65 : I>F1=Y +J ; DB1 = Y1 +J1: FOR 
G=1 TO 18:P0KE DF1TG,DINB2CG) 

1015 POKE DB1+G,DINF2CGJ;NEKT G:FOR G= 
19 TO 22;P0KE DBl^^G, DINF2 CGI : NEXT G:RE 
TURN 

1100 DR2=2:F0R G=1 TO 4:P0KE DB2«G,0:N 
EXT G: Y2=65: Y3=:69;DF2::Y2 + J2;DB2:iY3 + J3: 
FOR G=1 TO 18:P0KE DF2+G,DIMF2CG) 

1105 POKE DB2TG,DINB2CG):NEXT G:FOR G= 
19 TO 22:P0KE DF2+G,DINF2CGI:NEXT G:RE 
TURN 

1110 DR2rl:F0R G=1 TO 4:P0KE DF2+G,0:M 
EXT G:Y2=69:Y3r65:DF2=Y2+J2:DB2=Y3+J3: 
FOR G3l TO 18:P0KE DF2+G,DIMBlCGJ 
1115 POKE DB2 + G,DINF1 CG) :NEXT G:FOR Gi: 
19 TO 22:P0KE DB2+G,DINFlCG3:MEXT G:RE 
TURN 

3500 ON DRl GOTO 3516,3520 
3510 BB=DBl:GG=3590:G0T0 3550 
3520 BB=DFl:GG=3580 
3550 GOSUB GG 


3555 FOR Gi:50 TO 186:S0UND 0,G,1O,15:S 
OUND 6,160-(G~50),10,15:NEXT G:SOUND 6 
, 0 , 0,0 

3560 ON DRl GOTO 3563,3565 

3563 POKE BB,0:F0R G=1 TO 6:P0KE BB+G, 

DINF2CG):NEXf G:GOTO 3591 

3565 POKE BB,0:F0R G=1 TO 6:P0KE BB+G, 

DINFICG):NEXT G;G0T0 3591 

3570 RETURN 

3580 POKE BBT6,224:F0R G=0 TO 5:P0KE B 
BTG,DHRCGT1};NEXT G:RETURN 

3590 POKE 664^6,7:F0R G-O TO 5:P0KE BB+ 
G,DHL(GTl )-next G:RETURN 

3591 IF RT=1 THEN RETURN 

3592 IF DR1=2 AND DR2=1 AND PEEKC53260 
1=12 THEN GOSUB 4500 

3593 IF DRlzl AND DR2=2 AND PEEKC53261 
)=12 THEN GOSUB 4500 

3595 POKE 53278,0:RETURN 
3600 ON DR2 GOTO 3616,3620 
3610 BB=DB2:GG=3580:G0T0 3650 
3620 BBrDF2:GGz3590 
3650 GOSUB GG 

3655 FOR 6=50 TO 100:S0UND 6,G,10,15:5 
OUND 0,10O-CG-50),12,10:NEXT G:SOUND 6 
, 0 , 0,0 

3660 ON DR2 GOTO 3663,3665 

3663 POKE BB,e:FOR G=1 TO 6:P0KE BB^G, 

DINFKG) :NEXT G:G0T0 3700 

3665 POKE BB,0:F0R G=1 TO 6:P0KE BBTG, 

DINF2(G}:NEXT G 

3700 IF RT1=1 THEN RETURN 

3701 IF DR2=:2 AND DR1=1 AND PEEKC53262 
)=3 THEN GOSUB 4000 

3705 IF DR2=1 AND DR1=2 AND PEEKC53263 

)=3 THEN GOSUB 4000 

3710 POKE 53278,e:RETURN 

3800 POKE 656,2:P0KE 657,6;? SCOREl;" 

":POKE 656,2:P0KE 657,31:? SC0RE2;*' 

":RETURN 

3990 COLOR 2:FOR J=1 TO 4:H=INTf454RND 
t0]«10):G=RNDCe)«1454ie:GOSUB 3903:NEK 
T J:RETURN 

3901 DRAMTO G42,H+5:DRAMTO G42,H43:RET 
URN 

3903 PLOT G,H:DRAMTO G,H+9:PL0T G,H+4: 
DRAMTO G-2,H44:0RAMT0 G-2,H+1;PL0T G,H 
♦5 

3905 DRAMTO G+2,H+5:DRAMTO G+2,H+3:RET 
URN 

3910 COLOR l:FOR J=1 TO 3:H=484RND(0)* 
10:G=RNDCe}«145410;G0SUB 3913:NEKT J:R 
ETURN 

3911 DRAMTO G45,H+5:DRAMTO G+3,H+9:RET 
URN 

3913 PLOT G,H:DRAMTO G-5,H+S:DRAMTO G+ 
3,H+9;DRAMT0 G^HlDRAHTO G+4,H+1 
3915 DRAMTO G+5,H+5iDRAMTO G+3,H+9:RET 
URN 

3930 COLOR 3:FOR G=79 TO 47 STEP -1:PL 
OT 0,G:DRAMT0 159,G:NEHT G:RETURN 
4000 BBl=DFl:BB2=DBl:G0SUB 4600 
4003 Y=75;V1=74:DF1=Y+J;DB1=Y1+J1 

4005 ON DRl GOSUB 4010,4020 

4006 RTl=l:GOSUB 3600:G0T0 4810 

4010 FOR G=1 TO 9:P0KE DB1+G,DLF<G):P0 
KE DF1+G,DLBCG1rSOUND 0,120,8,15-G:NEK 
T G 

4011 POKE DFl+ie,DLBtlO};POKE DF1+11,D 
LBC11):F0R G=1 TO 6:S0UN0 0,120,8,15-G 
:F0R HH=1 TO 10:NEXT HHzNEXT G:RETURN 

4020 FOR G=1 TO 9:P0KE DBl+G,DRBCG3:PO 
KE DF1+G,DRF(G}:SOUND 0,120,8,15-G:NEX 

4021 POKE DBl+10,DRBC163:POKE DB1+11,D 
RBC11):F0R G=1 TO 6:S0UND 0,120,8,15-G 
:FOR HH=1 TO 10;NEXT HH:NEXT G:RETURN 
4500 BB1=DF2:BB2=:DB2:G0SUB 4600 

4503 Y2=74:Y3=75:DF2=Y2+J2:DB2=Y3+J3 
4505 ON DR2 GOSUB 4520,4530 
4510 RT=:l:GOSUB 35e0:G0T0 4800 

4520 FOR G=1 TO 9:P0KE DF2+G,DRBCG):PO 
KE DB2+G,DRF(G):SOUND 0,110,8,15-G:NEX 
T G 

4521 POKE DF2+10,DRB(10]:POKE DF2+11,D 
RBC11}:F0R G=1 TO 6:S0UND 0,110,8,15-G 
:FOR HH=1 TO 10: NEXT HH:NEXT G:RETURN 
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4530 FOR cm TO 9:P0KE DB2+G, DLB CG3 : PO 
KE DF2+G,DLF{G3:SOUND 0,110,8,15-G:HEX 
T G 

4531 POKE DB2+10,DLBC1OJ:POKE DB2+11,D 
LB(113;F0R Gzl TO 6:SOUND 0,110,8,15-G 
.-FOR HH=1 TO 16;NEXT HH:NEXT G:RETURN 
4600 FOR G=1 TO 22:P0KE BBllG,e:POKE B 
B2^G,0:NEXT G:RETURN 

4800 X=INTCRNDC0}»145450}:0N DRl GOSUB 
300,305:GOSUB IlOO:SC0RE1=SC0RE1+10:G 
OSUB 3800:RETURN 

4810 X2=INT(RNDC0)«145150):0N DR2 GOSU 
B 310,315:G0SUB 1000:SC0RE2=SC0RE2^18: 
GOSUB 3800:RETURN 

5000 COLOR l:PLGT 26,5:DRAIilT0 26,15:PL 
OT 26,5:DRAMT0 31,6:DRAMT0 31,14:DRAHT 
0 26,15:G0T0 5S90 

5100 PLOT 36,5:DRAMT0 36,15:PL0T 35,5: 
PLOT 37,5:PL0T 35,15:PL0T 37,15:G0T0 5 
SSO 

5200 PLOT 42,15:DRAMT0 42,5 : DRi^^MTO 46, 
15:DR0NT0 46,5:G0T0 5SS0 
5300 PLOT 50,5:DRAMT0 50,15 : DRAt4T0 55, 
15:DR0NT0 55,5:DR0I4T0 50,5:G0T0 5S90 
5400 PLOT 66,5:DRAHT0 66,15:DR0MT0 71, 
15:DR0WT0 71,5:DRAI4T0 66,5:PL0T 66,10: 
DRAHTO 71,10:G0T0 5990 

5500 PLOT 76,5:DRAWT0 81,5:DRAMT0 81,1 
5:PL0T 76,5:DRAMT0 76,15:PL0T 76,10:DR 
AMTO 81,10:G0T0 5990 

5600 PLOT 85,5:DRAMT0 91,5:PL0T 88,5:D 
RAMTO 88,15:G0T0 5990 

5700 PLOT 95,5:DRAWT0 101,5:PLOT 98,5: 
DRAMTO 98,15:G0T0 5990 

5800 PLOT 106,5:DRAHT0 106,15:DRAMTO 1 
11,15:G0T0 5990 

5900 PLOT 116,5:DRANT0 116,15:DRAWTO 1 
21,15:PL0T 116,10:DRAUT0 121,10:PLOT 1 
16,5:DRAMT0 121,5:G0T0 5990 
5990 RETURN 

7000 DD=17:DIH TFICDD),TB1CDDJ,TF2(DDJ 
,TB2(DD) 

7005 FOR Gzl TO DD:TFl(G3-O:TF2CGJ=0:T 
B1(G)=O:TB2(G)=0:HEHT G 

7010 FOR G=1 TO 14:READ C:TFlCG)zC:NEK 
T G:FOR Gi:l TO 13:READ C : TBl (G) =C : NEXT 
G 

7020 FOR G=1 TO 13 .'READ C : TB2 CG) =C ; NEX 
T G:FOR G=1 TO 14:READ C;TF2(G)=C:NEXT 


7025 RET=0:GOSUB 10000 

7030 POKE 704,49:P0KE 705,49:F0R G=5 T 
0 19;P0KE DFl+G,TFl(G-‘4) :NEXT G: FOR G:: 
1 TO 13;P0KE DB1+G,TB1CG):NEXT G 
7040 FOR Xi:220 TO 35 STEP “1:P0KE 5324 
8,X~7:P0KE 53249,X:S0UND 0,X,ie,6:F0R 
H-1 TO 3:NEXT H:NEXT X 

7045 FOR Grl TO 18:P0KE DF1+G,0:POKE D 
B1+G,0:NEXT G 

7051 POKE 704,49:P0KE 705,49:FOR G::! T 
0 13:P0KE DB1+G,TB2(G5:NEXT G:FOR G=4 
TO 18;P0KE DF1+G,TF2CG-3J:NEXT G 
7060 FOR Xi:30 TO 210:POKE 53249,X:POKE 
53248,X+7:S0UND 0,K,1O,6 

7062 IF X=75 THEN GOSUB 5000 

7063 IF X-85 THEN GOSUB 5100 

7064 IF Xi:91 THEN GOSUB 5200 

7065 IF Xi:103 THEN GOSUB 5300 

7066 IF X3119 THEN GOSUB 5400 

7067 IF X:il30 THEN GOSUB 5500 

7068 IF Xrl38 THEN GOSUB 5600 

7069 IF X-144 THEN GOSUB 5700 

7070 IF X=155 THEN GOSUB 5800 

7071 IF X-165 THEN GOSUB 5900 

7075 FOR H=1 TO 4:NEXT H;NEXT 
7080 ? "IS I 

":SOUND 0,90,12,11:S0UND 1,91,12,12:GO 
SUB 10040 

7085 COLOR 0:F0R G=5 TO 10:PL0T 25,G:D 
RAMTO 125,G:PL0T 25,15-tG-53:DRAMTO 12 
5,15-(G-5J:HEXT G 

7086 SOUND 0.80.12. 12:S0UND 1,81.1 2.14 

7090 ? "N IKEISBIBDEI33B'' 

TO 20:G05UB 7098:NEKT G 
PRESS START " 
7093 FOR G=1 TO 26:G05UB 7098:NEKT G:G 
OTO 7090 


7091 FOR G-1 

7092 ? "N 
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7098 IF PEEK 1532795=6 THEN POP :GOTO 7 
100 

7099 RETURN 

7100 ? "K Mil.’MilL—Alili.iiJiai 

■" 

7101 FOR G=1 TO 2;FOR H=15 TO 0 STEP - 
l;SOUNI> 0,12e,8,H 

7105 SOUND 1,122,8,H:F0R J=1 TO 8:NEXT 
J:NEKT H:FOR F=1 TO 60:NEKT F 
7107 FOR H=15 TO 0 STEP -1:S0UND 0,110 
,8,H;S0UND 1,112,8,H:F0R J=1 TO 8:NEXT 
J:NEXT H:FOR F=1 TO 60:NEXT F:NEXT G 
7110 ? "N":RETURN 

8000 FOR G=1 TO ie:POKE 65e,0:P0KE 657 
,15:? " GOI>E OVER ":SOUND 0,150,10,14: 

FOR Z=1 TO 15:NEXT Z _ 

8005 POKE 656,0:P0KE 657,15:? 

CaWIM ":SOUND 0,100,10,14:F0R H=1 TO 15: 
NEXT H:NEXT G 

8009 SO UND 0,0,0,0:P OKE 656,0:POKE 657 

,13:? '■ ■3;liiaaiain:ia '' 

8010 IF SC0RE1>SC0RE2 THEN 8020 
8013 IF SC0RE2>SC0RE1 THEN 8030 
8015 IF SC0RE1=SC0RE2 THEN 8040 

8020 POKE 656,6:P0KE 657,3:? " SCORE 
•■:FOR H=1 TO 15: GOSUB 8100: NE XT H 

8021 POKE 65e,0:P0KE 657,3:? 

■":FOR H=1 TO 15:GOSUB 8100:NEXT H:GOT 
0 8020 

8030 POKE 656,0:POKE 657,28:? " SCORE 
":FOR H=1 TO 15:G0SUB 8108:NE XT H 
8035 POKE 656,0:POKE 657,28:? ■*■^031 
■":FOR H=1 TO 15:G0SU6 8106:NEXT H:GO 
TO 8030 


8040 POKE 656,0: POKE 657,3:? SCORE 
■•:POKE 656,0:P0KE 657,28:? *' SCORE 

":FOR H=1 TO 15:G0SUB 8180 

8041 NEXT H 

8045 POKE 656,0:P0KE 657,3:? 

■‘':POKE 656,0:P0KE 657,28:? • 

":FOR H=1 TO 15:GOSUB 8100 

8046 NEXT H:GOTO 8040 

8100 IF PEEKC53279J=6 THEN POP :GOTO 8 
200 

8101 RETURN 

8200 SC0RE1=0:SC0RE2=e:TIM=0;TIME=59 
8210 FOR G=250 TO 0 STEP -3:S0UND 8,G+ 
5,10,15:S0UND 1,GF4,10,14:S0UND 2,G+3, 
10,13 

8215 SOUND 3,6+2,18,12:P0KE 712,RNDC0) 
«255:NEXT G:FOR G=0 TO 3:S0UND G,0,0,0 
:POKE 53248?G,35:NEXT G 
8217 POKE 712,197:G0SUB 3930:G0SUB 398 
0:G0SUB 3910 



8228 POKE 656,0:P0KE 657,13:? " 

•■:POKE 712,197:G0T0 75 
10800 POKE 559,46:I=PEEKC186J-24:P0KE 
54279,I:POKE 53277,3:P0KE 623,1 
10010 J=I»t256+512 : Jl=I»256'«-648 : J2=Hf25 
6+768:J3=I*256+896 

10815 FOR G=J TO J3+128:P0KE G,0:NEXT 
G 


10020 POKE 704,165:P0KE 705,165:P0KE 7 

06,220:P0KE 707,220 

10025 X=180:Y=17:V1=16 

18030 DF1=Y+J:DB1=Y1+J1:DF2=Y+J2:DB2=V 

+J3 

10035 IF RET=0 THEN RETURN 


18040 DD=22:DIM DINFl(DD),DINF2CDD),DI 
NBlCDD),0INB2CDD),DHR(6),DHLC6) 

10043 CC=ll:DIM DRFCCC),DRBCCCJ,DLFCCC 
),DLB(CC} 

10045 FOR G=1 TO DD:DINFlCG)=0:DINF2CG 
)=:0:DINB1CG)=0:DINB2CG)=6:NEKT G 
10050 RESTORE 12580:F0R G=1 TO 18:RE0D 
C:DINB1CG}=C:NEKT G;FOR G=1 TO 22:REA 
D C:D1NF1CG}=C:NEXT G 

10060 RESTORE 12600:FOR 6=1 TO 22:READ 
C:DINF2CGI=C:NEHT G:FOR G=1 TO 18:REA 
D C:DINB2tG}=C:NEXT G 


10865 RESTORE 12700:FOR G=1 TO 6:READ 
C:DHR(G)=C:NEXT G:F0R G=1 to 6:READ C: 
DHLCG)=C:NEXT G 

10066 RESTORE 12800:F0R G=1 TO 9:READ 
C:DRF(G)=C:NEXT G:F0R G=1 to CC:READ C 
:DRBCG)=C:NEXT G 


PAGE 122 


THE A.N.A.L.O.G. COMPENDIUM 


VOL. 1 


10068 RESTORE 12300:FOR G=1 TO 3:READ 
C:DLFCG)=C:NEXT G:FOR G=1 TO CC:RE0D C 
:DLBCG)=C:NEXT G 

10070 X-100;Xl=32:X2=150:X3=158:Y-64:Y 
1=68:Y2-64:Y3=68 

10071 DF1=Y+J:DB1=Y1+J1:DF2=Y2+J2:DB2- 
Y3+J3 

11000 RETURN 

12000 D0TO 1,6,28,47,63,87,175,31,28,5 
6,56,24,12,4 

12005 DATA 3,6,28,24,56,48,112,112,243 
,252,248,243,158 

12010 DATA 132,36,56,24,28,12,14,14,20 
7,63,31,153,112 

12020 DATA 128,36,56,244,252,234,245,2 
48,56,28,28,24,48,32 

12500 DATA 1,1,1,7,7,3,7,15,7,143,133, 

143,138,158,188,240,224,64 

12510 DATA 28,52,62,122,245,242,224,25 

1,245,240,240,224,132,128,132,224,240, 

112,48,36,36,248 

12600 DATA 56,44,124,34,175,73,7,223,1 
75,15,15,7,3,1,3,7,15,14,12,6,6,31 
12610 DATA 128,128,128,224,224,132,224 
,240,224,241,227,241,33,121,61,15,7,2 
12700 DATA 76,104,208,254,240,224,50,2 
2,11,127,15,7 

12800 DATA 12,15,223,55,255,254,252,24 
8,112,128,128,240,252,31,15,73,33,13,3 
0,12 

12300 DATA 48,240,160,231,252,127,63,3 
1,14,1,1,143,63,248,240,242,228,200,12 
0,48 




CHECKSUM DATA 
(See pgs. 7-10) 


0 DATA 303,124,404,671,656,206,623,300 

,405,203,3,332,475,873,35,6231 

100 DATA 250,433,808,32,763,388,356,83 

5,860,356,364,352,363,677,433,10468 

175 DATA 433,366,685,140,162,188,78,38 

3,435,400,430,657,488,658,435,6778 

3500 DATA 5,527,531,375,775,52,885,887 

,805,35,78,573,304,310,415,7277 

3600 DATA 14,533,538,378,772,61,862,58 

5,272,315,327,403,300,803,606,8635 

3303 DATA 60,614,285,623,345,631,374,3 

4,308,283,33,315,6,340,3,6186 

4500 DATA 113,562,338,832,353,40,336,7 

,440,600,342,627,324,621,208,8141 

5400 DATA 86,63,283,636,440,811,823,78 

4,757,768,778,338,183,221,432,8081 

7051 DATA 557,613,754,762,766,447,463, 

450,463,465,452,456,373,323,212,7574 

7086 DATA 417,633,658,803,61,333,818,5 

31,323,437,213,331,531,605,357,8441 

8010 DATA 215,224,226,614,322,330,134, 

757,501,375,737,383,738,773,585,8300 

8215 DATA 11,115,137,176,270,881,711,3 

73,302,726,404,643,831,613,628,7407 

10065 DATA 811,777,768,763,680,43,273, 

806,564,311,872,333,488,780,373,8654 

12800 DATA 251,140,331 




Moire Demo 


10 DEG 

20 A=INTC1.3W160) 

30 GRAPHICS 8^16 
40 SETCOLOR 2,0,0 
50 FOR l:=0 TO 160 STEP 5 
60 B=IMT(I/2) 

70 COLOR 1 
80 PLOT 0,B 
30 DRAHTO 1,160 
100 PLOT A,B 
110 DRAMTO A-I,160 
120 PLOT 0,160-B 
130 DRAMTO 1,0 
140 PLOT A,160->B 
150 DRAMTO A-I,0 
160 NEXT I 

170 IF PEEK C76410255 THEN END 
180 GOTO 170 


CHECKSUM DATA 
(See pgs. 7-10) 


10 DATA 217,62,458,287,54,4,732,508,18 

7,750,408,283,838,323,363,5486 

160 DATA 746,161,728,1635 
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TRIPLE THREAT DICE 

16K Cassette 24K Disk 
by Michael A. Ivins 


Do you like to gamble but can’t afford trips to Las 
Vegas or Atlantic City? If so, then this program is for 
you. By placing your bets carefully, you can be fairly 
sure of a high return, while impulse betting on the 
high odds might make you a big winner — or it might 
make you go broke. 

This game is modeled after a type of gambling 
machine found in Las Vegas casinos. These machines 
use three dice to play and give you several options to 
bet on. Unlike craps, you are betting solely on the 
outcome of a single roll of the dice. You may bet up 
to five coins (normally quarters) on each of the bet¬ 
ting options, with no limit (other than your total 
cash) to how many of the options you choose to bet 
on. 

You use your joystick to position the bet cursor 
next to the option you wish to bet. Pressing the 
trigger button will enter your bet one coin at a time 
until you reach five coins, after which it will not 
accept any more bets on that option. Moving the joy¬ 
stick to the left or right will move the cursor. After 
you have bet as many options as you wish, hold the 
joystick to the right until the pointer appears in the 
box marked ''ROLL DICE.” Press the trigger again, 
and the computer will roll the dice. 

After each roll of the dice the computer will dis¬ 
play your win or say "SORRY” if you did not win. 
At this time you have an additional option. If you 
should wish to take your winnings and quit, all you 
need do is pull the joystick toward you. A push on 
the trigger will return you to the betting routine. □ 


1 REH TRIPLE THREAT DICE 

2 REM BY MICHAEL A. IUIM5 

3 REM JULY, 1981 

10 DIM BETC315;COUNT=0 

15 GRAPHICS 0:? “THIS IS A GAME PATTER 
NED AFTER A”:? “GARBLING MACHINE IN LA 
S UEGAS.“ 

20 ? “YOU BET OH THE OUTCOME OF THE RO 
LL 0F“:? “THREE DICE. YOU HAVE MANY OP 
TIONS YOU" 

25 ? “CAN BET OH. TO SELECT THE OPTIO 
N ON":? “WHICH YOU WISH TO BET, USE TH 

30 ? “JOYSTICK TO MOUE THE ’>• UNTILL 
IT“:? “POINTS TO THE PROPER OPTION. Y 
0U“ 


35 ? 

■•THEN ENTER 

YOUR 

THE" 

:? "TRIGGER. 

YOU 

VE“ 



40 ? 

■■DOLLARS ON 

EACH 

45 ? 

:? ■■WHEN YOU 

HAUE 


YOU MAY BET UP TO FI 


G, HOLD":? “THE JOYSTICK TO THE RIGHT 
UNTILL A" 

50 ? “POINTER APPEARS IN THE BOX MARKE 
D“:? “'ROLL DICE" AND PRESS TRIGGER." 
60 ? :? “PRESS ar-tzit TO BEGIN" 

70 ? “GOOD LUCK! ! ! "* 

75 IF PEEKC53279) 06 THEN 75 
90 GOTO lOOOzREM DRAW BETTING LAYOUT 
100 M=10O:POSITION 7,20:? M; 

110 GOSUB 1280:REM CLEAR BETS RESET WI 


120 IF C0UNT=6 THEN N=100 

130 IF STICK(e)r9 OR STICKC03-1O OR ST 

ICKC0)=11 THEN B=B“l:GOSUB 1580 

132 IF STICK(03=6 OR STICKC03=7 OR STI 

CK(03=5 THEN B=BT1:G0SUB 1500 

135 IF B<32 THEN IF BETCB3i:5 OR Mr© TH 

EN 160 

140 IF B<32 AND STRIG(03=6 THEN BETCB3 
-BETCB3T1:POSITION X,Y;? BETCB3SOUND 

0,150,10,15:MrM-l 

141 IF B<32 THEN IF BETCB3::0 THEN POSI 


TION X,Y:? “ 

142 IF B<32 THEN IF BETCB3>0 THEN POSI 

TION K,Y:? BETtB3 

145 POSITION 7,20:? M;"» “j 

148 FOR DELAYnl TO 20:NEXT DELAY 

149 IF B>32 THEN B=32 

150 IF Bi:32 AND STRIG(03=:6 THEN 208 
155 FOR DELAYS TO 20:NEXT DELAY 
160 SOUND 6,0,6,O:GOTO 138 

200 C0UNT=C0UNTT1:REM ROLL AND DRAW DI 
CE 

205 GOSUB 2700 

210 Y=0: A = INTCRND(05*6 + 13 ;X::10:0N A GO 
SUB 10600,10010,10020,10030,10040,1085 
0 

220 X=14 :B=:INTCRND €033^6^13 : ON B GOSUB 

10000.10010.16020.10030.16040.10050 
230 X-18:C=:INT(RND(039e6+13 :0N C GOSUB 

10000.10010.10020.10030.16040.10050 
240 D-A+B+C:IF C0UNT>1 THEN COUHTzl 
256 REM PAY WINNING BETS 

260 IF BET (03-0 OR D<12 THEN 275 

265 MIN=WIN4BET(03:POSITION 6,21:? WIN 


270 POSITION 3,14:? '"+**; 

275 IF BET(13=0 OR D>9 THEN 296 

280 WIN=:MIN+BET (13 : POSITION 6,21:? WIN 


285 POSITION 3,15:? 

290 IF AOB or BOC or BET (23=0 THEN 3 
05 

295 MIN=WIN+(BET (23^^363 : POSITION 6,21: 
? WIN; 

300 POSITION 3,16:? "*+'»; 

305 IF (AOB AND AOC AND B<>C3 OR BET 
(33=0 THEN 320 

310 IF A=B OR B=C OR A=C THEN WIN=WINT 
(BET (33*63 :POSITION 6.21:? WIN; 

315 POSITION 3,17:? 

326 IF A=B AND B=C THEN GOSUB 2000 
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330 IF THEN G=A:G05UB 2100 

335 IF 0=C THEN G=0:G05UB 2100 

340 IF B=C THEN G=B;G05UB 2100 

350 IF D<11 THEN G05UB C(D-33*10J+2200 

352 IF D>10 THEN G05UB CABS(D-183»iG3+ 

2200 

360 IF 0=17 THEN G05UB 2216:IF 0=18 TH 
EN GOSUB 2200 

370 H=N+MIN:POSITION 7,20:? M; 

372 IF M=0 THEN 420 

373 IF H>=5000 THEN 5000 
375 IF HIN>e THEN 400 
380 GOSUB 2600 

382 POSITION 1,0:? "SORRY"; 

385 IF STRIGC03=O THEN POSITION 1,0:? 

" ";:GOTO 110 

3S0 IF STICKC0)=13 THEM 500 

395 GOTO 382 

400 GOSUB 2500 

402 POSITION 1,0:? "WINNER"; 

405 IF STRIGC03=e THEN POSITION 1,0:? 

" ";:GOTO 110 

410 IF STICK(0)=13 THEN 500 

415 GOTO 402 

420 ? "NI"H SORRY, BUT YOU HAVE GONE B 
ROKE":? "IF YOU WISH TO START AGAIN WI 


TH A" 

430 ? "NEW BA NKROLL PRESS SEUB, TO QU 
IT":? "PRESS aiOBD" 

440 IF PEEK C53279)<>6 AND PEEKC532793< 
>5 THEN 440 

450 IF PEEK(53279)-6 THEN C0UNT=0:G0T0 
90 

460 IF PEEK(53279)-5 THEN ? "GOODBYE A 
ND BETTER LUCK NEXT TIME":END 
500 ? "NIT IS A WISE GAMBLER WHO KKNOW 
S WHEN TO QUIT." 

510 ? :? "THANK YOU FOR PLAYING AND GO 
OD LUCK TO YOU THE NEXT TIME." 

520 ? :? "GOODBYE.":END 

1000 GRAPHICS 0:P0KE 752,1:P0KE 82,1:S 

ETCOLOR 2,12,12:? " 

USE JOYSTICK"; 

1002 SETCOLOR 1,12,0:SETCOLOR 4,12,12 
1005 ? " TO 

MOUE BET" 

1010 ? " POI 

NTER" 

1020 ? :? "PAYS 216-1 PAYS 18-1 TOT 
AL PAYS" 


216-11 


36-11 
1045 ? 
21-1 
1050 ? 

14-1 
1055 ? 
10-1 
1060 ? 
9-1 

1065 ? 
8-1 

1070 ? 
8-1 

1075 ? 
9-1 

1080 ? 
10-11 


21-11 
1095 ? " 


ir 


1 r 


1 

II 

3-ONES 

M 

2-OMES 1 

1 

II 

3-TM05 

M 

2-TWOS 1 

1 

■1 

3-THREES 

il 

2-THREES 1 

1 

II 

3-FOURS 

M 

2-FOURS 1 

1 

II 

3-FIVES 

II 

2-FIVES 1 

1 

II 

3-SIXES 

11 

2-SIXES 1 



J L 

■ 

II 




r“ 

II 




1 

II 

HI (OVER 

111 1-11 

1 

II 

LO (UNDER 

101 1-11 

1 

II 

ANY 3 OF 

KIHD 36-11 

1 

II 

ANY 2 OF 

KIND 6-11 

u. 



_1 

II 


1100 ? "ICASH: 
72-11" 

1105 ? "I WIN: 
216-11" 

1110 ? 


M ROLLII 
II DICE I I 

Ji L,,,i. i.,.l L. 


3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 


j •• 


1120 GOTO 110 

1200 POKE 752,l:F0R 1=0 TO 31:8ET<I)=e 
:nekt I 

1210 FOR 1=6 TO ll:POSITION 2,1:? " 
;:P05ITI0N 14,1:? :HEXT I 

1220 FOR 1=14 TO 17:P05IT10H 2,1:? " 

"':NEXT I 

1230 FOR 1=6 TO 21:P0SITI0N 26,1:? " 

"':NEXT I 

1240 POSITION IS,20:? " 4F 
1270 HIN=e:POSITION 6,21:? ■■ 

1280 B=e:G05UB 1500 
1290 RETURN 

1500 IF B<0 THEN B=0:IF B>32 THEN B=32 

1510 IF B=0 THEN POSITION 3,14:? 

■I • I j^— 2 • Y=14 

1511 IF B=1 THEN POSITION 3,14:? " *♦> 

^4- II. ;){:;2:y=15 

1512'iF B=2 THEN POSITION 3,15:? " 4*> 
4F :X=2:V=16 

1513 IF B=3 THEN POSITION 3,16:? " *F> 
";:P0SITI0N 3,6:? " ■•j:x=2:V=l7 

1514 IF B=4 THEN POSITION 3,17:? " : 

POSITION 3,6:? •■>♦* ••;:X=2:Y=6 

1515 IF B>4 AND B<9 THEN POSITION 3,BF 

l:? ■■ *F>4F :X=2:Y=B*2 

1516 IF B=9 THEN POSITION 3,10:? ■■ ♦+> 

";:POSITIOH 15,6:? ■■;:X=2:Y=ll 

1517 IF B=10 THEN POSITION 3,11:? 
:POSITION 15,6:? ■■>*♦ ";:X=14:Y=6 

1518 IF B>10 AND B<15 THEN POSITION 15 

,B-5:? •* **>4* :X=14:Y=B-4 

1519 IF B=15 THEN POSITION 15,10:? '• 4 
F>"; ;POSITION 27,6;? " ■*; :X=14:Y=11 

1520 IF B=16 THEN POSITION 15,11:? ■’ " 
;:POSITION 27,6;? ">4F •■;:X=26:V=6 

1521 IF B>16 AND B<31 THEN POSITION 27 

,B-11:? " 4F>4F ;X=26:Y=B-10 

1522 IF B=31 THEN POSITION 27,20:? " 4 

F>"; ;POSITION 19,20;? ••;;X=26:Y=2 

1 

1523 IF B=32 THEN POSITION 27,21;? '• " 
;:POSITION 19,20;? 

1550 RETURN 

2000 IF BETCA+3)=0 THEN RETURN 
2010 MIN=MIN+fBETtA+35»2161;POSITION 6 
21:^ WIH" 

2020 POSITION 3,A+5:? "+"; 

2030 RETURN 

2100 IF BET(G+9)i:0 THEN RETURN 

2110 WIN“WIN+BET(G+9)*18:P0SITI0N 6,21 

:? WIN; 

2120 POSITION 15,G+5:? "+"; 

2130 RETURN 

2200 IF BET(13+D)r0 THEN RETURN 
2202 WIN=WIN+8ET(13+D)*216:POSITION 6, 
21:? WIN; 

2204 POSITION 27,D+3:? "+"; 

2206 RETURN 

2210 IF BET(13+D)=0 THEN RETURN 

2212 WIH-MIN+BET(13+D)*72:POSITION 6,2 

1:^ MIN * 

2214 POSITION 27,D+3:? "+"; 

2216 RETURN 

2220 IF BETC13+D)=0 THEN RETURN 

2222 MIN::MIN + BET(13 + D)9^36:POSITION 6,2 

1:? WIN; 

2224 POSITION 27,D+3:? "+"; 

2226 RETURN 

2230 IF BET(13+D)=0 THEN RETURN 

2232 MIN=WIN+BETC13+D)*21:POSITION 6,2 

1:? WIN; 

2234 POSITION 27,D+3:? "+"; 

2236 RETURN 

2240 IF BET(13+D)z0 THEN RETURN 

2242 MIHi:WIN+BETC13+D)*14:P0SITI0N 6,2 

1:? WIN; 

2244 POSITION 27,D+3:? "+"; 

2246 RETURN 

2250 IF BET(13+D)=0 THEN RETURN 

2252 MIN~WIN+BETC13+D)*ie:P0SITI0N 6,2 

1:? WIN; 

2254 POSITION 27,D+3;? "+" ; 

2256 RETURN 

2260 IF BET(13+D)=0 THEN RETURN 
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2262 Mim:|4IM+BETC13+D)*9:P05ITI0N 6,21 

■ -7 min * 

2264 p65ITION 27,D+3:? "+•*; 

2266 RETURN 

2270 IF BETtl3+Dl=0 THEN RETURN 

2272 MIN=:WIN+BETC13+DJ*8: POSITION 6,21 

:? WIN; 

2274 POSITION 27,D + 3:? 

2276 RETURN 

2500 FOR Izl TO 10 

2505 FOR SZ40 TO SO STEP 5 

2510 SOUND 0,S,10,10 

2530 NEXT S 

2540 FOR S=90 TO 40 STEP -5 
2550 SOUND 0,S,10,10 
2570 NEXT S 
2580 NEXT I 

2590 SOUND 0,0,0,0:RETURN 

2600 SOUND 0,260,10,10 

2620 FOR DELAV=1 TO ieO:NEXT DELAY 

2630 SOUND 0,241,10,10 

2640 FOR DELAY=1 TO 150-.NEXT DELAY 

2650 SOUND 0,O,0,0:RETURN 

2700 FOR Izl TO 20 

2710 FOR S-0 TO 50 STEP 20 

2720 SOUND 0,S,8,15 

2730 NEXT SlSOUND 0,8,0,0 

2740 NEXT I 

2750 POKE 77,0:RETURN 

5006 ? CHRS(1251;“THIS NACHINE HAS NO 
MORE MONEY." 

5010 ? S? "IF YOU WISH 
BANKROLL":? "AND PLAY 
MANAGE-" 

5020 ? "MEN^T HAS REFILLED IT, 

ss":? "QyEBD- TO quit press _ 

5030 IF PEEKC53279) 06 AND PEEK (53279) 
05 THEN 5030 

5040 IF PEEK (53279) :=5 THEN ? "THANK YO 


TO GASH IN YOUR 
AGAIN AFTER THE 


THEN PRE 


SELECT 


X,Y+l:? 

X,Y+2:? 

X,Y:? 
X,Y+l:? 
H,Y+2;^ 

X,Y:? 
x,Y+l:? 
X,Y+2:^ 

X, Y;? 

X,Y+l:? 
X,Y+2:? 



U FOR PLAYING";? "GOODBYE!"! 
5050 C0UNT=0:G0T0 1006 

10000 POSITION X,Y:^ 

10001 POSITION 
16002 POSITION 
16603 RETURN 
10610 POSITION 
10011 POSITION 
10612 POSITION 
10013 RETURN 
10620 POSITION 
16621 POSITION 

10022 POSITION 

10023 RETURN 

10030 POSITION 

10031 POSITION 

10032 POSITION 

10033 RETURN 

10040 POSITION X,Y:? 

10041 POSITION K,Y+l:? 

18042 POSITION X,Y+2:? 

16043 RETURN 

10050 POSITION x,y:? 

10051 POSITION X,Y+l:? 

10052 POSITION X,Y+2:-> 

10053 RETURN 


END 





1055 DATA 549,35,101,873,27,87,67,111, 
102,404,356,257,868,548,199,4584 
1228 DATA 682,788,226,362,614,794,459, 
991,183,191,167,944,79,466,436,7374 
1518 DATA 720,852,599,718,893,935,799, 
182,53,69,784,203,782,193,787,8569 
2200 DATA 905,944,198,799,906,30,199,8 
00,907,35,200,801,908,25,201,7858 
2236 DATA 802,909,31,202,803,910,24,20 
3,804,911,751,204,805,912,751,9022 
2274 DATA 205,806,347,111,418,534,289, 
453,538,509,257,757,623,766,635,7248 
2650 DATA 256,356,281,606,436,511,94,1 
08,973,526,942,891,148,170,268,6506 
10002 DATA 250,49,136,246,240,51,150,2 
12,230,53,902,250,220,55,118,3162 
10041 DATA 216,222,57,120,218,224,59,1 
116 


CHECKSUM DATA 
(See pgs. 7^10) 

1 DATA 503,632,390,141,268,152,941,724 

,364,964,357,926,652,485,701,8200 

90 DATA 7,758,336,439,680,570,166,814, 

491,127,146,339,678,261,339,6151 

160 DATA 157,784,804,588,315,334,580,4 

56,813,248,964,920,252,975,45,8235 

295 DATA 696,951,120,800,962,547,800,8 

07,810,363,993,310,143,562,985,9843 

375 DATA 859,824,685,727,478,749,801,9 

11,496,456,705,583,643,981,307,10125 

460 DATA 704,326,95,158,803,846,105,96 

5,524,223,490,533,705,549,460,7486 
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16 K Cassette 24 K Disk 


by Dan Devos 


Bicycle is a one player game. You are a messenger 
working for the largest shipping company in the 
world. As part of your daily routine, you must run 
memos and invoices from the main shipping offices 
out to the loading and receiving docks. Leaping on 
your trusty bicycle, you proceed across the vast 
parking lot, past rows of idling tractor trailer rigs, 
dodging the many potholes that impede your 
progress. However, the potholes are not the only 
things you have to look out for. The drivers of the 
trucks are in a hurry to leave, and often they can’t 
bother to watch out for one poor little messenger on 
a bicycle! Needless to say, you have to be careful 
where you’re going! 

Playing the game* 

The cyclist is continually proceeding at a fixed 
rate, and he can also move up and down. Every time 
you are hit by a truck or fall into a pothole, you lose a 
cyclist. There is a total of three cyclists in a game. 

Scoring* 

For every space you move, you get one point. For 
every section of the parking lot, there are two truck 
drivers walking to their trucks. If you hit a walking 
truck driver you get 500 points. Watch out! The 
truck drivers can stand over the pot holes and when 
the cyclist hits them he falls into the hole. 

The program* 

This program uses a machine language subroutine 
to move player missile graphics. The program draws 
two rows of trucks in Graphics Mode 1. Then three 
players, exactly the same as the edited characters, are 
put on top of three of the trucks. These trucks are 
erased and the player trucks can then move 
smoothly. The rest of the program just moves the 
players. Type in the program and wait until the 
screen display says ‘Tress Start.” □ 


0 GOTO 30060 

1 BB-C0;T=C9 5yi:C0iU=eOsl)IH CH0R$tC8),W 
HICHCC3,C25 i CHORS^-'PQUUWHZ" 

2 GRAPHICS Ci7lCHSET=(PEEKfl063-C32J*C 
256:CH0RG=57344;P0KE 623,Cl 

3 FOR I=C0 TO SllJPOKE CH5ET+I,PEEKtCH 
0RG+I3 IHEHT I 

4 FOR I~C1 TO C7 


5 CHP05=CHSET+(A5C(CHARS(13 5-C325*C8 

6 FOR J=C0 TO C7 

7 READ AlPOKE CHP05+J,A 

8 HEKT J:NEKT I 

3 FOR IZC32 TO 39;P0KE CH5ET+I,C256-C1 
--PEEK(CH0RG + I5 ;HEKT I 
10 POKE 756,CH5ET/C256 

15 DATA 0,0,223,148,213,85,223,0 

16 DATA 0,16,120,254,127,38.4.8 

17 DATA 8,8,28,20,54,0,0,0 

18 DATA 0,8,28,28,83,42,28,8 

18 DATA 112,112,248,248,252,252,226,22 

20 DATA 226,226,254,254,255,127,181,24 

21 DATA 223,85,27,0,8,0,8.0 

31 BB = C0; V=:C0;5ETCOLOR C2 . C3, C4 : SETCOL 
OR C3,C0,12jSETCOLOR Cl,C8,C8^SETCOLOR 
C0,C8,C4 


32 B8 = C0JH~C3;POSITIOW C5,18r? I1C6 H‘ME 
N:uum”:P0SITI0N C8.C20:? »C6;'MJUU" 

35 T-COlU-COiSETCOLOR C2,C3,C4J5ETC0L0 
R C3,C0,I2 


5 8 PO SITI ON C2 


12 ;? nC6\ 

M H H H M 

K K « K } 

( ite Z Z Z 2 z1 


54 5ETC0L0R Ci,C8,C8:J-INT(C17*RHD(C03 
+C2):K-INTCC4#RHD(C03+C8) 

55 LzINT (C173(RHD CCOJ +C23 ; M=IHT (C4»RND ( 
C03+C8):P0SITI0N J,K:? ttC6j"q” 

56 POSITION L,H;? ltC6: “q" 

5? SETCOLOR CO, C8, C4 1 N-IHT (C17WMD (C05 
1C23 : OrlHT CC3^tRND (CO) 1C83 
60 P::INT(C17*RND(C8)+C2) *. OrINT (C3*RND ( 


CO)+C85 ^ POSITION 

65 POSITION N,0+C1;? UC6;:POSITION 

P,0:? «C6;"v*';P0SITI0N P.O+Cl:? »C6i*'U 
11 


70 IF AA THEN 4806 

100 AArClrPOKE 752,C1:P0KE 53257,COlPO 
KE 53258,C0;POKE 53258,C8 
110 PC0L8r26:PCOLlr52:PC0L2r52IPC0L3r5 
2 

1880 FOR I=:i536 TO 1706:READ AjPOKE I, 
AsNEHT I 

1018 FOR Irl774 TO 1787;P0KE I,C0;NEXT 
I 

1020 PMrPEEK(166)-C16;PMBASErC256*PM 
1030 FOR IrPMBA5E+1823 TO PMBASE+2046: 
POKE I C8;NEXT I 

1640 FOR irPM8A5E+1025 TO PMBASE+1934: 
READ AjPOKE I,A:NEXT I 

1050 FOR I=PMBA5Efl281 TO PMBA5E+1288: 
READ A;P0KE I,A;NEXT I 

1860 FOR IrPMBASE+153? TO PMBASE+1555: 
READ A;P0KE I,A:NEXT I 

1061 FOR I=:PHBA5E + 1783 TO PMBASE + 1811: 
READ ASPOKE I,A;NEKT I 

1070 POKE 704,PCOL8:POKE 705,PCOLl;POK 
E 796,PC0L2:P0KE 787,PC0L3 
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1080 PLK=53248;PLY=1788:PLL=1784 
1090 POKE 559,62:P0KE 1788,PM+C4;POKE 
53277^C3:P0KE 54279,PM 
1100 X~U5RC1696) 

2000 D0TO 162,3,189,244,6,240,89,56,22 

1,240,6,240,83,141,254,6,106,141 

2010 DPTii 255,6,142,253,6,24,169,0,109 

,253,6,24,109,252.6,133,204,133 

2020 DATA 206.189,240,6.133,203,173,25 

4,6,133,205,189,243,6,170,232,46,255 

2030 DATA 6,144,16,168,177,203,145,205 

,169,0,145,203,136,202,203,244,76,87 

2040 DATA 6,160.0,177,203,145,205,169, 

0,145,203,200,202,208,244,174,253,6 

2050 DATA 173,254,6,157,240,6,189,236, 

6.240.48.133.203.24.138.141.253.6 
2060 DATA 109,235,6,133,204,24,173,253 
.6,109,252,6,133,206,189,240,6,133 
2070 DATA 205,189,248,6,170,160,0,177, 

203.145.205.200.202.208.248.174.253.6 
2080 DATA 169,0,157,236,6,202,48,3,76, 
2,6,76,98,228,0,0,104,169 

2090 DATA 7,162,6,160,0,32,92,228,96 
3000 DATA 48,48,32,56,36,56,110,181,16 
5,66 

3010 DATA 112,112,248,248,252,252,226, 

226,226,226,254,254,255,127,181,245,22 

3,95,27 

3020 DATA 112,112,248,248,252,252,226, 

226,226,226,254,254,255,127,181,245,22 

3,95,27 

3030 DATA 112,112,248,248,252,252,226, 

226,226,226,254,254,255,127,181,245,22 

3,95,27 

4000 POKE PLL,C10:P0KE PLL+Cl,C20;POKE 
PLL+C2,C20:POKE PLL + C3,C20:A^CO rB-OO 
4010 POKE PLX,A+C48:P0KE PLY,B1C32 
4020 G-IMT(C4^^RHDfCG)l+Cl :D-G*C16:E~95 
;POKE PLX+C1,D+C48:P0KE PLY+C1,E+C32 
4030 G-G + G:P05ITI0H G,12:? ttC6;" ";P05 
ITION G.13:? tlC6;" "IPOSITION G,14:? U 
C6 * '* ** 

4040 IzlHJ (C5^€RHD CCG) ) +C5 : P-I*C16 : Gr95 
:P0KE PLX+C2,F+C48:P0KE PLY+C2,G+C32 
4050 I-I + I.-POSITION 1,12:? tlC6;" ”:P05 
ITIOH 1,13:? ttC6;" '':P05ITI0N 1,14:? n 
06;** ** 

4060 RzIHT CC9«RND CCO) 5 +C1: H = Ri^C16 ; I::39 
:POKE PLX+C3,H+C48:P0KE PLY+C3,I+C32 

4070 R-R + R:P05ITI0N R,C5;? ttC6;** **; P05 
ITION R,C6:? ttC6;** **:P05ITI0N R,C7:? tt 
C6;** •* 

4071 POKE 53278,CG;IF BB THEN 4080 

4072 BBzCl.-SOUND CO, 200, CIO, C8 : SOUND C 
1,201,CIO.C8 

4073 POSitlON C5,18:? ttC6;**press Start 

II 

4074 R-R+Cl:SETCOLOR C1,R,C8:IF PEEK(5 
3279)<>C6 THEN 4873 

4075 POSITION C5,18:? ttC6;** 

**:SETCOLOR Cl. C8 , C8 : SOUND CO,C0,CO,CO.- 
SOUND C1,C0,C0,C0 

4080 POSITION C5,C17:? ttC6; **SCORE : **; Y . 

4081 IF INT(CA/C8)4C1))^C8+C4> J*C8 + C8 0 
R IHT(CA/C8)+C1)*C8+C4<J*C8 THEN 4120 
4090 IF INTC(B/C8)1C1)*C8+C4>K*C8 AND 
INT(tB/C8)+Cl)*C8+C4<K*C8+C8 THEN 3080 
0 

4120 IF INT((A/C8)+C1)*C8+C4>L*C8+C8 0 
R INT((A/C8)+C1)*C8+C4<L*C8 THEN 4148 
4130 IF INTC(B/C8)+Cl)*C8 + C4>FHtC8 AND 
INTCCB/C8)+Cl)*C8 + C4<M>tC8 + C8 THEN 3080 
0 

4140 IF T THEN 4198 

4150 IF INTCCA/C8)+C13*C8+C4>N*C8+C8 0 
R INT((A/C834C1)*C84C4<N*C8 THEN 4190 
4160 IF INT(CB/C8)+C1)*C8+'C4>0*C8 AND 
INT (CB/C8>+C1)*C81^C4<0)^C8 + C16 THEN lOO 
00 

4190 IF U THEN 4228 

4200 IF INT(CA/C8)+C1)*C8+C4>P*C8+C8 0 
R INT((A/C8)+C1)*C8+C4<P*C8 THEN 4228 
4210 IF INTCCB/C8)+C1)*C8+C4>Q*C8 AND 
INTCCB/C8)+C1)*C8+C4<0*C8+C16 THEN 180 
10 

4220 IF INTCCB/C8)+C1)*C8+C8<63 OR INT 
C(B/C8)+C1)*C8+C8>96 THEN 38000 


4230 IF NOT STRIG (CO) THEN 9000 
4300 E=E-Cl:POKE PLX+Cl,D+C48:POKE PLY 
+ C1,E + C32:G=G--C1:P0KE PLX + C2, F+C48 : POK 
E PLY+C2,G+C32 

4310 in + ClrPOKE PLX + C3,H + C48:P0KE PLY 
+C3,I+C32 

4608 IP PEEK(53260) THEN 30800 

5000 A:iA + C5 

5001 IF STICK(C0)=13 THEN B=B+C3 

5002 IF STICK(C0)=C7 THEN A=A+C1 

5003 IF STICK (C0)-14 THEN B=:B-C3 

5004 IF A>165 THEN 20008 

5005 Y:::Y + C1:S0UND Cl, 58 , CIG, C8 : SOUND C 
1,CO,C0,C0:POKE PLX,A+C48:P0KE PLY,B+C 
32:G0T0 4080 

9000 FOR ZZ-Cl TO 38:NEXT ZZ 

9001 IF NOT STRIG(CO) THEN 4390 

9002 GOTO 9001 

10000 T^Cl :POSITIOH N,0:? ttC6 ; **F**: POSI 
TION N,0 + Cl:? ttC6;** *':GOTO 10060 
10010 UrCl .-POSITION P,Q:? «C6;**F'*:P0SI 
TION P,Q + C1.-? ttCe;*' **:GOTO 10068 
10060 U-V+Cl:Y=Y+5O0;FOR KK=C256 TO Cl 
STEP -Cl:SOUND C0,KK,C10,14:NEKT KK;S 
OUND C0,C6,C0,C0:G0T0 4080 
20000 POSITION N,0:? «C6;'* ‘*:P0SITI0N 
N,0+C1:? tlC6;“ •*;POSITION P,0:? ttC6;** 
**:POSITION P,Q+C1:? ttC6;** ** 

20810 POSITION J,K:? ttC6;** •*:POSITION 
L,M:? ttC6j** ** 

20020 GOTO 35 

30008 W=W-Cl:POKE PLX,A+43:P0KE PLY,B+ 
C32:F0R XK=14 TO CO STEP -Cl 
30010 SOUND C0,256,C1O,XX:FOR YY=C1 TO 
r^'NFHT VV'WFHT MW 

30020 POSITION N,0:? »C6;** **:P0SITI0N 
N,O^Cl;? ttC6;** **:P0SITI0N P,Q:? «C6;** 
**:P0SITI0N P,Q+Cl:? ltC6;** ** 

30030 POSITION J,K:? ttC6;** **:P0SITI0N 
L,M;? ttC6;** ** 

30031 POSITION C5,19:? ttC6; **MEN : *': FOR 
Z::CO TO WrPOSITION C9 + W,19:? ttC6;** **:P 
OSITION C9+W,C20:? ttC6; ** **:NEKT Z 
30040 IF NOT M THEN 31 

30050 GOTO 35 

30060 Cl:il ;C2r2 : C3=3 : C4::4 : C5 = 5 : C6“6 : C7 
= 7:C8=8:C9=:9:ClOrl0:Ci6rl6:C17=17:C20- 
20 ;C32 = 32 :C48:=48:C256=256 
30070 GRAPHICS C1:SETC0L0R C2,C0,CO:PO 
SITION C5,C8:? ttC6;*** BICYCLE *»‘:POSIT 
ION C9,C10:? »C6;**BV*‘ 

30080 POSITION C6,12:? »C6;**DAN DEMOS** 
30090 FOR T=C1 TO 200;SETC0L0R C0,T,C8 
IPOSITION C5,C8:? ttC6;*** BICYCLE *«‘:NE 
XT T:GOTO 1 


CHECKSUM DATA 
(See pgs. 7-10) 

0 DATA 633,344,996,665,276,726,280,49, 

214,585,127,436,580,861,385,7157 

19 DATA 280,270,31,833,464,387,401,358 

,16,468,564,29,504,789,386,5780 

100 DATA 665,304.46,296,542,845,568,59 

5,609,612,172,12,272,246,433,6217 

2018 DATA 175,662,640,727,304,533,798, 

647,2.556,537,538,539,378,590,7626 

4020 DATA 957,920,999,940,59,194,351,8 

84,906,101,959,678,731,821,740,10240 

4130 DATA 822,549,766,915.551,753.920, 

839,864,417,868,469,363,8i4,854,10764 

5003 DATA 823,772,423,19.855,743,711,7 

33,948,757,303,907,539,631,763,9927 

30030 DATA 309,802,886,915,636,321,770 

,187,4826 
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COLOR 

SLOT MACHINE 


24K Cassette or Disk 
by Michael A* Ivins 


The re^defined character set is a powerful tool 
which can be used in many different ways. The 
characters can be used for special animation effects, 
and are especially useful when combined with 
certain types of modified display lists. Finally, they 
can be used to create colorful graphic displays in the 
text mode, GR.O. This last application is the subject 
of this article. 

If you have ever done much playing around with 
GR.8 you know that getting four colors in this mode 
is not as difficult as you might expect. For the new¬ 
comers I include example Program 1 to show what I 
mean. 

10 GRAPHICS 8:5ETC0L0R 2,0,15 

20 SETCOLOR 1,0,0:C0L0R 1 

30 FOR X=0 TO 200 STEP 2:PL0T X,0 

40 DRAMTO X,10:NEXT X 

50 FOR X=1 TO 201 STEP 2:PLOT X,20 

60 DRAMTO X,30:NEXT X 

70 FOR X=0 TO 200:PLOT X,40 

80 DRANTO X,50:NEXT X 

Program 1. 

This may seem to have little to do with re-defined 
character sets, but bear with me, Fm coming to it. 
The example should show what appear to be three 
bars on a white background with blue at the top, red 
next and black at the bottom. The program was 
supposed to draw two sets of evenly spaced vertical 
lines and one solid bar, so what happened? You 
would expect the bottom bar to be black. The only 
differences between the top two bars is in the posi¬ 
tioning of the vertical lines, yet we get the two colors. 


This effect is due to a curious property of the 
graphics screen whose technical name is ’'artifact- 
ing.” Simply stated, the principle is that a single pixel 
of GR.8 (the smallest the ATARI will generate) will 
be one color while another pixel one space or any 
odd number of spaces away will have a different 
color. By now you are probably asking, *'If this guy 
wants to talk about re-defined character sets, why all 
this stuff about colors in GR.8?” Every character has 
eight bytes associated with it, and the pattern made 
up by those bits which are ones determines the shape 
of the character. Two examples of this are shown in 
Figure 1 with lA showing the bit pattern of the 
letter and IB showing a percent sign. Each 

pixel has a GR.O character, whether it be text or 
control graphic, is identical to a single pixel of GR.8. 
By applying the same techniques which gave us 
colors in GR.8 to re-defining characters, we can get 
many kinds of colored graphic characters. 


A 

B 

00000000 

00000000 

00011000 

01100110 

00111100 

01101100 

01100110 

00011000 

001100110 

00110000 

01111110 

01100110 

01100110 

01000110 

00000000 

00000000 


Figure !• 


There is one important factor which should be 
mentioned at this point. The colors you can get from 
your special characters (or a GR.8 display) will 
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depend on the chosen background color and chosen 
luminosity of the foreground. For your own appli¬ 
cations you should experiment with the combina¬ 
tions of foreground and background color which 
gives the effect you want most. For the purpose of 
this article and the game program which accompan¬ 
ies it 1 use a white background (SETCOLOR 2,0,15) 
and a black foreground (SETCOLOR 1,0,0). 

I give two examples in Figures 2 and 3. For 
greater ease of use I have enlarged the pattern of bits 
so you can see them better than in the previous 
example. 1 have also labeled the values of the bits and 
given the decimal values that you would poke into 
the character table to make the changes. With the 
specified colors, the character defined in Figure 2 
will give you a solid blue block while the one in 
Figure 3 will make a solid red block. 


128 64 32 16 8 

10 10 1 

10 10 1 

10 10 1 

10 10 1 

10 10 1 

10 10 1 

10 10 1 

10 10 1 

10 10 1 


Decimal 
4 2 1 value 

010 170 

010 170 

010 170 

010 170 

010 170 

010 170 

010 170 

010 170 

010 170 


Figure 2 (Blue Block). 


Decimal 


128 

64 

32 

16 

8 

4 

2 

1 

value 

0 

1 

0 

1 

0 

1 

0 

1 

85 

0 

1 

0 

1 

0 

1 

0 

1 

85 

0 

1 

0 

1 

0 

1 

0 

1 

85 

0 

1 

0 

1 

0 

1 

0 

1 

85 

0 

1 

0 

1 

0 

1 

0 

1 

85 

0 

1 

0 

1 

0 

1 

0 

1 

85 

0 

1 

0 

1 

0 

1 

0 

1 

85 

0 

1 

0 

1 

0 

1 

0 

1 

85 



Figure 

3 (Red Block). 




Simple red and blue blocks alone make for rather 
dull graphics, but I’m sure you can see that by clever 
arranging of the dots you can create many interesting 
shapes. If the shape you want is too large to fit into a 
single 8x8 grid then use two, three or even more 
characters. To give one example of the kinds of 
things that can be done with color graphics 
characters and hopefully have a little fun at the same 
time, I include my program for Color Slot 
Machine. 

Before getting into a description of the game itself 


there is a comment 1 would like to make. Calcula¬ 
ting out all the numbers for special characters you 
have drawn on graph paper is very slow work and it 
tends to be boring. Fortunately this is the sort of task 
which lends itself to being ''computerized.” There 
are, in fact, many character editor programs on the 
market as well as some which have been published in 
magazines. These all allow you to make changes in an 
enlarged matrix and see the effects of these changes 
on the normal sized character. They let you save the 
special character set or "font” for use with your own 
programs. I used such a program which went as far as 
writing the actual subroutine that does the work in 
the Slot Machine game. 

The game. 

After the title display, the program will draw a 
colorful slot machine on the screen making use of 
several kinds of colored graphics characters. There 
are two ways to play, which you choose by pressing 
the OPTION button any time there is no bet placed. 
For those who might be unfamiliar with slot 
machines I will describe the options. Single line play 
uses only those symbols which line up in the center 
of the pay windows. In this version additional 
"coins” bet give bigger payouts when a winning 
combination comes up. The five line version gives 
more ways to win by adding top, bottom and dia¬ 
gonal paylines for the number of coins played. Single 
line play can pay more when it pays, but the five line 
version can give more ways to win so you win more 
often. 

Playing the game itself is simple. To enter a single 
coin bet, press the trigger button of the joystick and 
release. If you wish to bet the maximum bet of five, 
simply hold the trigger button down until the beeps 
stop. In the single line version the paychart changes 
to reflect payout for the size of the bet, while the five 
line version employs line pointers to indicate how 
many lines are in play. When you have made your 
desired bet, move the joystick in any direction to 
spin the reels. More details are given in the program 
documentation. Happy gambling! □ 


PROGRAM DOCUMENTATION 

The first thing the program does is to jump to the 
routine which alters the character set and since that is 
the main thing I wish to. illustrate, I will cover this 
first. 

Line 32000 The first step resets RAMTOP. 
Next a graphics command to set the new top of 
memory. Now we poke the location of the new 
character set. 

Line 32005 This defines a machine language 
routine which will copy the old character set out 
of ROM into the protected area of RAM. 

Lines 32010-32015 These lines are here to 
give you something to look at while the char¬ 
acter set initializes. You won’t see anything at 
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this point since the area pointed to by CHBAS 
(location 764) is blank. 

Line 32020 This executes the machine 
language routine so that the material printed in 
the previous lines can now be seen on the screen. 

Lines 32030-32040 Now we make the 
actual changes. We first read the number that 
tells where to start and then put in the new 
numbers. Some of the characters look a bit 
funny (like a cluster of cherries with a blue leaf 
or a purple bell) but this is the best I could do 
with these colors. 

Now we return to the main program and from this 
point I will take things in the sequence they are 
shown in the program. 

Lines 10-11 These set up the reels of 30 
''symbols” on each. If you wished to change the 
odds of the game, this is the place to do it. You 
could make it harder to win by changing the 
symbols or by adding no pay symbols or blanks. 

If you wanted to, you could set up the reels so 
that you would win on every play, which I 
would consider to be boring 

Line 30 Jumps to the routine which draws 
the machine. 

Lines 40-100 Here we set the initial values 
for game counters and display them. This also 
lets you know you are playing the one line 
version. 

Line 120 This displays the betting prompt. 

Line 125 If the bet is the maximum or the 
bankroll is zero then the betting routine is 
skipped. 

Line 130 Wait for trigger press, increment 
bet, decrement bankroll and start sound. Also 
gosub to change the paychart. 

Line 135 Jump to the five line version if 
OPTION is pressed and bet is zero. 

Line 145 Erase play prompt if bet reaches 
maximum. 

Line 150 A delay is slow betting. 

Lines 160-168 Display bet, shut off sound, 
display bet. 

Lines 170-175 Return to betting loop if 
stick not moved or if stick moved but bet zero. 

Line 180 Zero out the attract mode. 

Lines 290-310 Jumps to the routine that 
animate the handle and spin the reels. 

Lines 311-315 Reads the symbols on the 
payline and jumps to payroutine. 

Lines 320-327 Calculates the proper length 
of windsound and jumps to that routine. 

Lines 330-340 Resets bet to zero and if any 
money is left you are returned to the betting 
routine. 

Lines 350-420 This is the routine that is 
activated if you go broke. It resets the left 
margin, erases the paychart and then gives you 
your quit or start over options. Starting over 


redraws the machine and paychart and resets all 
values to beginning levels. Quitting naturally 
ends the game. 

Lines 500-590 The functions here are 
similar to the betting loop of the single line 
version. The main difference is in setting line 
pointers instead of changing the paychart. 

Lines 600-610 This reads all payable 
locations. Caution should be noted here. Be 
sure when you type these lines in that you use 
the abbreviation LOC, for LOCATE and POS, 
for POSITION, or you won’t get everything in 
on those lines. 

Lines 620-676 This section checks tor 
winning combinations and jumps to the payout 
routine if one is present. I originally tried to 
make this section more brief, but kept getting 
errors. 

Lines 680-698 Checks for win and goes to 
sound routine if appropriate. 

Lines 700-720 Resets bet, erases line 
pointers and jumps back to betting routine if 
not bankrupt. 

Lines 1000-1055 This creates the siren for 
winning and is a simple tone with rising and 
falling pitch. 

Lines 1300-1360 This is the routine which 
resets the paychart according to the size of the 
bet in the one line play version. 

Lines 2000-2090 This is the routine 
which actually draws the machine. Notation 
should be made here that the paychart is not 
truly complete. Most combinations will pay 
with a bar (single or double) on the last reel. I 
did not have room to fit this on the screen. 

Lines 2300-2390 This animates the handle 
by first erasing the knob and redrawing it lower 
and doing the reverse by drawing a section of 
the handle and the knob one space higher. This 
routine also clears any old wins. 

Lines 2400-2495 This is the payout 
routine for the single line version. 

Lines 2600-2690 This is the super jackpot 
routine and is triggered if three of the "seven” 
symbols appear on the center line with maxi¬ 
mum bet in the one line version and on the fifth 
line with maximum bet in the five line version. 
This has first an explosion sound, a slower siren 
than the regular windsound followed by another 
explosion. Then the words "SUPER JACK¬ 
POT!!!” are flashed. I suggest that you type in 
"GOSUB 2600” from the direct mode as you 
won’t be seeing much of this routine unless you 
change the odds. 

Lines 2950-3180 This animates the spin of 
the reels. I had originally tried to make the reels 
turn two full spins plus a random bit extra, but 
this slowed down the action of the game too 
much, doing it from BASIC. Therefore we just 
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assume those spins without showing them and 
take a certain number plus a random amount. 
From this point the reels are moved visibly by 
a fixed number of spaces for each reel. 

Lines 4000-4080 This is the pay routine for 
the five line version. □ 


1 REM COLOR SLOT MACHINE 

2 REM BY MICHAEL A. IUIN5 

3 REM NOUEMBER 1981 

4 G05UB 32000 

10 DIM L$(60),M$C603,R$(60),PAY$C9):0P 
EH tt2,12,0,"S:":HIN50UND=1000:FPAY-4e0 
0;SPIHr:2950 

11 PAY$=" hk--««2[ff*:CH::97:DB=146:5B::16 
0 

15 L$=**abcdefgtiHabghefcd!!Ill9hcd|ief i jc 
dghcdghSZcdefcdcdabghefcdcdefgh^ 

20 M$="abHefghefabghefcdZSefcdabefghi 
jef abcdghSef abefHghabcdefcd" 

25 R$="ghcdef:SghefghefcdZ:cdcdefHcdi 
J 9 b|BcdghIZcdcdefghef|ISefefcd" 

30 BAHKROLL-lO0:BET::O:WIH=0:Lrl :M-l:R= 
1 

40 GOSUB 2000:REM DRAM hMCHINE 
90 POSITION 20,20:? "1 LINE PLAY" 

100 POSITION 20,22:PRINT "BANKROLLB 
ANKR0LL:P0SITI0H 20,23:PRIHT "BET:";BE 
T;:P0SITI0H 30,23:PRINT "WIN:";MIN; 

12 0 IF BET<5 THEN P OSITION 20,21:PRINT 


IPLAY 1 TO 5 C0IN5I 


125 IF BANKR0LL=0 OR BET=5 THEN 145 
130 IF STRIGCOJrO THEN BET=BETT1:GOSUB 
1300:SOUND 0,50,10,14:BANKROLL=BANKRO 
LL-1 

135 IF PEEK (532793=3 AND BET=0 THEN 50 
0 

145 IF BET=5 THEN POSITION 20,21:? " 

II ■ 

150 FOR DELftY=l TO 5:NEXT DELAY 
160 POSITION 24,23:PRIHT BET; 

165 SOUND 0,0,0,0 

168 POSITION 29,22IPRINT BANKROLL;" 

170 IF STICK(0)=15 THEN 120 
175 IF BET=0 THEN 120 
180 POKE 77,0 

290 GOSUB 23eO:REM PULL HANDLE 

310 GOSUB SPIN 

311 LOCATE 5,8,LM:P0SITI0N 5,8:? CHRSf 
LH) 

312 LOCATE 8,8,MM:P0SITI0N 8,8:? CHRSl 
MH) 

313 LOCATE 11,8,RM:P0SITI0N 11,8:? CHR 
$(RN} 

315 GOSUB 2400 

320 IF HIN>e AND MIN<BET«10 THEN DUR=2 
:GOSUB MINSOUND 

325 IF MIN>=BET«ie AND MIN<BET«25 THEN 
DUR=3:GOSUB MINSOUND 

326 IF MIN>=BET*25 AND MIN<=BET»50 THE 
N DUR=5:GOSUB MINSOUND 

327 IF MIN>BET«5e AND MIN<2eee THEN DU 
R=10:GOSUB MINSOUND 

330 BET=0:POSITION 24,23:PRINT BET;" " 


^40 IF BANKR0LL>0 
350 POKE 82,20 
360 FOR 1=0 TO 23: 

II 

370 POSITION 20,0: 

HAVE GONE BROKE": 
Y MORE":? "CHA NGE 
380 ? "PRESS Hawaii 
QUIT" 

390 IF PEEKC532791 
>5 THEN 390 
400 IF PEEKC53279J 
TO 11 

420 POSITION 20,18 
R PLAYING, BETTER" 
END 

500 POSITION 20,20 


THEN 120 

POSITION 20,1:? " 

* : NEXT I 

?'"I‘M SORRY":? "YOU 
? "IF YOU MISH TO BU 
PRESS aiED" 

□ IF YOU":? "MISH TO 

06 AND PEEKC53279)< 

=6 THEN POKE 82,2:G0 

:? "THANK YOU":? "FO 
:? "LUCK NEXT TIME"; 

:? "5 LINE PLAY"; 


510 BET=l;GOSUB 1300:BET=0 
520 POSITION 20,22:? "BANKROLL:";BANKR 
OLL;:POSITION 20,23;? "BET:";BET;:POSl 
TION 30,23:? "MIN:";MIN; 

530 IF BET<5 THEN POSITION 20,21:PRINT 


IPLAV 1 TQ 5 COINSI 


532 FOR DELAY=1 TO 5:NEXT DELAY 
535 IF BANKR0LL=0 OR BET=5 THEN 560 
540 IF 5TRIG(0)=0 THEN BET=BET+1:BANKR 
0LL=BANKR0LL-1:SOUND 0,50,10,14 
545 IF PEEKC53279J=3 AND BET=0 THEN 90 
550 IF BET=1 THEN POSITION 4,8:PRINT " 

552 IF BET=2 THEN POSITION 4,6:PRINT " 
■"; 

554 IF BET=3 THEN POSITION 4,10:PRINT 
" ■"; 

556 IF BET=4 THEN POSITION 4,4:PRINT " 
■*11 ■ 

558 IF BET=5 THEN POSITION 4,12:PRINT 

■ ■ 11 a 

560'P0SITI0N 29,22:PRINT BANKROLL;" "; 
:P05ITI0N 24,23:PRINT BET; 

562 IF BET=5 THEN POSITION 20,21:PRINT 

■f 11 

565 FOR DELAYrl TO 20:NEXT DELAY 

566 SOUND 0,0,0,0 

570 IF 5TICKfOJ=15 THEN 530 
575 IF BET=0 THEN 530 
580 GOSUB 2300 
590 GOSUB SPIN 

600 LOCATE 5,8,LM:P0SITI0N 5,8:? CHR5C 
Lm:LOCATE 8,8,MM:P05ITION 8,8:? CHR$( 
MM3;L0CATE 11,8,RM:POSITION 11,8:? CHR 
$(RMJ 

605 LOCATE 5,6,LT : POSITION 5,6:? CHRSt 
LT3:L0CATE 8,6,MT:POSITION 8,6:? CHR$( 
MTJ:LOCATE 11,6,RT:POSITION 11,6:? CHR 
SCRT) 

610 LOCATE 5,10,LB:P0SITI0N 5,10:? CHR 
5CLB}:L0CATE 8,10,MB:P0SITI0N 8,10:? C 
HR5(M81:LOCATE 11,10,RB:POSITION 11,10 
:? CHR$(RB) 

620 IF (LN=CH AND MMOCH) OR (LM=CH AN 
D MM=LM1 THEN F=LM:S=MM:T=RM:GOSUB FPA 

Y 

621 IF LM=DB AND MM=SB AND CRM=DB OR R 
M=SBJ THEN F=LM;5=MM:T=RM;G0SUB FPAY 

622 IF LM=MH AND RM=mi THEN F=LM:S=MM: 
T=RM:GOSUB FPAY 

623 IF LM=DB AND CMM=:D6 OR l>m=SB) AND 
RM=SB THEN F=LM:S=MM:T=RM:GOSUB FPAY 

624 IF LMOCH AND LMODB AND LMOSB AN 
D LMOieS THEN IF LM=MM AND (RM=DB OR 
RM=5BJ THEN 629 

625 IF LM=SB AND rm=DB AND CRM=D6 OR R 
M=SBJ THEN F=LM:5=MM;T=RM:G0SUB FPAY 

626 IF LN=SB AND tMM=DB OR NN=SB) AND 
RM=0B THEN F=LM;5=MM:T=RM:GOSUB FPAY 

628 GOTO 630 

629 F=LM;S=MM;T=RM:GOSUB FPAY 

630 IF BET=1 THEN 680 

631 IF LT=DB AND MT=SB AND CRT=D6 OR R 
T=SBJ THEN F=LT:S=MT:T=RT:G05UB FPAY 

632 IF CLT=CH AND MTOCHJ OR CLT=CH AN 
D MTrCHJ THEN F=LT:5=MT;T=RT:GOSUB FPA 

Y 

633 IF LT=DB AND CMT=SB OR MT=DB) AND 
RT=SB THEN F=LT:5=MT:T=RT:GOSUB FPAY 

634 IF LT=MT AND RT=M7 THEN F=LT:S=MT: 
T=RT:GOSUB FPAY 

635 IF LT=SB AND MT=DB AND CRT=DB OR R 
T=5B) THEN F=LT:5=MT:T=RT:GOSUB FPAY 

636 IF LTOCH AND LTO105 AND LTODB A 
ND LTOSB THEN IF LT=MT AND tRT=DB OR 
RTrSBJ THEN 640 

637 IF LT=SB AND CMT=SB OR MT=DB) AND 
RT=DB THEN F=LT;S=MT:T=RT:GOSUB FPAY 

638 GOTO 642 

640 F=LT;S=MT;T=RT;GOSUB FPAY 

642 IF BET=2 THEN 680 

643 IF LB=DB AND NB=SB AND (RB=DB OR R 
B=SBJ THEN F=LB:S=MB:T=RB:GOSUB FPAY 

644 IF CLB=CH AND MBOCHJ OR <LB=CH AN 
D MB=CHJ THEN 652 

645 IF LB=DB AND CMB=DB OR M6=SB} AND 
RB=5B THEN F=LB:5=MB:T=RB;GOSUB FPAY 
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646 IF LB=HB AND RB=MB THEN 652 

647 IF LB=SB AND hBrDB AND (RB=DB OR R 
B=SBJ THEN F=LB:S=HB:T=RB:G05UB FRAY 

648 IF^LBOCH AND LBOlOS AND LBODB A 
ND LBOSB THEN IF LB=HB AND CRB=DB OR 
RB=SB] THEN 652 

649 IF LB=SB AND CH6=DB OR IW=5B} AND 
RB=DB THEN F=L6:S=HB;T=RB:GOSUB FPAV 

650 GOTO 654 

652 F=LB:S=HB:T=RB:GOSUB FPAV 

654 IF BET=I THEN 680 

655 IF LT=DB AND MHrSB AND CRB=DB OR R 
B=SB> THEN F=LT:S=HM:T=RB:G05U6 FPAV 

656 IF CLT=CH AND f1M=CH) OR CLT=CH AND 
miOCH) THEN 664 

657 IF LT=DB AND CHH=DB OR MIzSBl AND 
RB=5B THEN F=LT:S=MM:T=RB:G0SUB FPAV 

658 IF LT=HH AND RB=NM THEN 664 

659 IF LT=S6 AND m=DB AND CRB=DB OR R 
B=SB) THEN F=LT:S=HN:T=RB:GOSUB FPAV 

660 IF LTOCH AND LTO105 AND LTODB A 
ND LTOSB THEN IF LT=HH AND CRB=DB OR 
RB=SB} THEN 664 

661 IF LT=5B AND tNH=DB OR ffli=SB) AND 
R6=DB THEN F=LT:S=HM:T=RB:G05UB FPAV 

662 GOTO 665 

664 F=LT:S=MM;T=RB;605UB FPAV 

665 IF BET=4 THEN 680 

666 IF LB=185 AND MM=LB AND RT=HH THEN 
HIN=HIN+20e0:G05UB 2600 

667 IF LB=DB AND MHrSB AND fRT=DB OR R 
T=SBJ THEN F=LB:5=HM:T=RT:605UB FPAV 

668 IF CLB=CH AND NHOCH) OR CLB=CH AN 
D NM=CH) THEN 676 

669 IF LB=DB AND CHN=DB OR WlrSB) AND 
RT=5B THEN F=LB:5=NM:T=RT:GOSUB FPAV 

670 IF LB<>105 AND LB=NM AND RT=HM THE 
N 676 

671 IF LB=SB AND l«l=DB AND (RT=D6 OR R 
T=SBJ THEN F=LB:5=NN:T=RT:GOSUB FPAY 

672 IF LBOCH AND LB0165 AND LBODB A 
ND LBOSB THEN IF LB=MN AND CRT=DB OR 
RT=SB) THEN 676 

673 IF LB=SB AND CHN=DB OR fM=SB) AND 
RT=DB THEN F=LB:S=MM:T=RT:GOSUB FPAV 

674 GOTO 680 

676 F=LB:SrMM:T=RT:GOSUB FPAY 

680 BANKROLL=BANKROLL+HIN:POSITION 29, 

22:? BANKROLL; 

685 IF HIN>8 AND MIN<16 THEN DUR=2:G0S 
UB MINSOUND 

690 IF HIN>=10 AND MIN<25 THEN DUR=3:G 
OSUB MINSOUND 

691 IF HIN>r25 AND NIN<=5e THEN DUR=S: 
GOSUB MINSOUND 

695 IF MIN>50 AND MIN<2000 THEN DUR=10 
: GOSUB MINSOUND 

700 POSITION 4,4:? "JPOSITION 4,6:? 

"j"; :POSITION 4,10:? POSITION 4, 

12:? "h"; 

705 BET=0:P0SITI0N 24,21:PRINT BET; 

710 IF BANKR0LL>0 THEN 530 

720 GOTO 350 

1000 REM MINNER SOUND 

1018 FOR in TO DUR 

1815 FOR 5=48 TO 90 STEP 5 

1020 SOUND 0,5,10,10 

1025 NEXT S 

1030 FOR 5=90 TO 40 STEP -5 
1035 SOUND 8,5,10,10 
1040 NEXT S 
1050 NEXT I 

1055 SOUND 0,0,0,0:RETURN 

1300 PS=2 

1310 FOR 1=1 TO 8 

1320 POSITION 34,PS:? ASC(PAY$tl,I))«B 

£J III 11. 

1325 P5=P5+2 
1330 NEXT I 

1340 IF BET<5 THEN POSITION 34,18:? 05 

CCP0YSC9,Sn*BET;” :RETURN 

1350 IF BET=5 THEN POSITION 34,18:? OS 

CtPOY5t9,9))*10; 

1360 RETURN 

2000 POKE 752.1:? CHR$C125):POSITION 2 
,2:PRINT ••H.l-i-H-l-hH.hH.h ab P 

AYS 2" 


2005 POKE 756,PEEK(106)+1:SETC0L0R 1,0 
,0:SETC0L0R 2,0,15 
2010 PRINT 
2012 PRINT 
PAYS 5" 

2014 PRINT 




db db 






2016 PRINT •• 
PAYS 10" 

2020 PRINT 
2025 PRINT 
PAYS 14" 

2030 PRINT " 
2035 PRINT " 
PAYS 18" 

2040 PRINT "hH 

2045 PRINT "H-h 
PAYS 20" 

2046 PRINT 
2048 PRINT 

PAYS 20" 

2050 PRINT 
2055 PRINT 
PAYS 50" 

2060 PRINT 

2065 PRINT 
PAYS 200" 

2066 PRINT " 

2068 PRINT " 

2069 PRINT " 

2070 PRINT "rrf 
2080 PRINT 
2090 RETURN 


r 

i«l" 


■mr 


Cd Cd Cd 


ef ef ef 


gh gh gh 


MIX BARS 


i j i j i i 


2100 POKE 752,1:FOR 1=19 TO 23 
2110 POSITION 20,1 
2120 PRINT " 

2130 NEXT I 
2140 RETURN 
2200 FOR 1=1 TO 5 


2210 P OSITION 28,16:PRINT 


CQINSI 


PLAY 1 TO 5 


2220 FOR DELAY=1 TO 10:NEXT DELAY 
2230 POSITION 20,16:PRINT "PLAY 1 TO 5 
COINS"' 

2240 Fofi DELAY=1 TO 10:NEXT DELAY 
2250 NEXT I 
2260 RETURN 

2300 POKE 752,1:P05ITI0N 17,7 
2310 FOR 1=1 TO 5 
2320 PRINT " 

2325 FOR DELAV=1 TO 20:NEXT DELAY 

2338 NEXT I 

2340 FOR 1=1 TO 5 

2350 PRINT "IfFlF"; 

2355 FOR DELAY=1 TO 2e:NEXT DELAY 
2360 NEXT I 

2370 MIN=0:POSITION 34,23:? MIN;" "; 
2390 RETURN 

2400 IF LM=CH AND HMOCH THEN HIN=BETK 
2 

2410 IF LM=CH AND HH=CH THEN MIN=BET»5 
2420 IF LM=99 AND HN=LN AND RH=HM THEN 
MIN=BET«18 


2425 IF LH=99 AND HM=99 AND (RH=DB OR 
RH=SB] THEN MIN=MIN«10 

2430 IF LH=iei AND HH=LH AND RM=HM THE 
N MIN=BET«14 

2435 IF LM=101 AND NM=101 AND (RM=D6 0 
R RM=SB) THEN MIN=6ET«14 
2440 IF LM=103 AND NM=LH AND RH=HM THE 
N MIN=BET«18 

2445 IF LH=183 AND NM=103 AND (RN=DB 0 
R RM=SB) THEN MIN=BET«18 
2450 IF LN=DB AND HN=LH AND RM=HM THEN 
MIN=BET«50 

2452 IF LH=SB AND HH=LH AND RH=HM THEN 
MIN=BET«20 

2453 IF LH=DB AND HM=SN AND (RM=DB OR 
RH=SB) THEN MIN=6ET«20 

2454 IF LH=DB AND (NM=DB OR NM=S6) AND 
RH=SB THEN MIN=BET«20 

2455 IF LM=SB AND HM=DB AND (RH=DB OR 
RH=SB) THEN MIN=BET«20 

2456 IF LM=SB AND (MH=DB OR HM=SB) AND 
RH=DB THEN MIN=BET«2e 

2460 IF LM=ie5 AND NM=LH AND RM=NM AND 
BET<5 THEN MIN=BET«200 
2478 IF LM=105 AND NH=LN AND RH=NH AND 
BET=5 THEN MIN=BET«20e0:GOSUB 2600 
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2480 POSITION 34,23: PRINT HIN;'* *‘;:BPN 
KROLLzBANKROLL^MIN 

2480 POSITION 28,22:PRINT BANKROLL;" " 
2485 RETURN 

2600 FOR 1=0 TO 200 STEP 5 

2605 SOUND 0,1,0,15 

2610 NEXT I 

2615 FOR 1=1 TO 5 

2620 FOR S=40 TO 80 STEP 2 

2625 SOUND 0,S,10,10 

2630 NEXT S 

2640 FOR S=80 TO 40 STEP -2 

2645 SOUND 6,S,10,10 

2650 NEXT S:NEXT I 

2655 FOR 1=1 TO 20 

2660 FOR 1=0 TO 200 STEP 5 

2665 SOUND 0,1,0,15 

2670 NEXT I:SOUND 0,0,0,0 

2672 FOR 1=1 TO 18 

2673 FOR DELAY=1 TO 40:NEXT DELAY 

2674 POSITION 20,20:? JiliMI 

D”; 

2675 FOR DELAY=1 TO 20:NEXT DELAY 

2676 FOR DELAY=1 TO 20:NEXT DELAY 
2678 POSITION 20,20:? " 

■I ■ 

2680 NEXT I 

2685 POSITION 20,20:PRINT " 

■ I ■ 

2680 RETURN 

2800 FOR 1=1 TO 200 STEP 25 
2810 SOUND 0,1,6,8 
2820 NEXT I 

2830 SOUND 0,0.0,0:RETURN 

2850 L=L+INTCRNDC0)*6)*2:IF L>58 THEN 

L=L-60 

2860 H=M^16^INT(RNDC03«6}«2:IF M>58 TH 
EN M=M“60 

2870 R=R^22^INT(RND(e)«6)«2:IF R>58 TH 
EN R=R“60 

3000 POKE 77,0;FOR X=1 TO 15 

3010 POSITION 11,10:PRINT R$(R,R+13:R= 

R+2:IF R>58 THEN R=1 

3020 POSITION 11,8;PRINT R$ (R,R^l) :R=R 
+2:IF R>58 THEN R=1 

3030 POSITION 11,6:PRINT R$CR,R41) 

3040 R=R-2:IF R<1 THEN R=R+60 
3045 IF X=ll THEN GOSUB 2800 
3050 IF X>10 THEN 3110 

3060 POSITION 8,10:PRINT M$(H,H+l);M=M 
+2:IF M>58 THEN M=1 

3070 POSITION 8,8:PRINT H$CM,M+1):M=H+ 

2:IF M>58 THEN M=1 

3080 POSITION 8,6:PRINT N$CN,N^1) 

3100 M=M-2:IF M<1 THEN M=M+60 
3105 IF X=6 THEN GOSUB 2800 
3110 IF X>5 THEN 3160 

3120 POSITION 5,10:PRINT L$CL,L+1J;L=L 
+2:IF L>58 THEN L=1 

3130 POSITION 5,8:PRINT L$CL,L+1):L=L+ 

2:IF L>58 THEN L=1 

3140 POSITION 5,6:PRINT L$CL,L+1) 

3150 L=L-2:IF L<1 THEN L=L+60 
3160 NEXT X 
3165 GOSUB 2800 

3170 L=L-2:IF L<1 THEN L=L+60:M=M-2:IF 
M<1 THEN M=N+60:R=R-2:IF R<1 THEN R=R 
+60 

3180 RETURN 

4000 IF CHR$CF)="a" AND CHR$CS)<>"a" T 
HEN M=2 

4010 IF F=CH AND S=CH THEN M=5 

4020 IF F=88 AND S=88 AND T=88 THEN 11= 

10 

4025 IF F=88 AND S=88 AND CT=DB OR T=S 
B) THEN M=10 

4030 IF F=101 AND S=101 AND T=101 THEN 
N=14 

4035 IF F=101 AND S=101 AND CT=DB OR T 
=SB) THEN M=14 

4040 IF F=103 AND S=103 AND T=103 THEN 
M=18 

4045 IF F=103 AND S=103 AND CT=DB OR T 
=SB) THEN M=18 

4050 IF F=DB AND S=F AND T=S THEN M=20 
4052 IF F=DB AND S=5B AND CT=DB OR T=S 
B) THEN M=20 


4053 IF F=DB AND CS=DB OR S=SB) AND T= 
SB THEN U=20 

4054 IF F=SB AND S=DB AND CT=DB OR T=S 
B) THEN M=20 

4055 IF F=SB AND CS=DB OR S=SB) AND T= 
DB THEN H=2e 

4058 IF F=SB AND S=F AND T=S THEN H=29 
4060 IF F=105 AND S=F AND T=S THEN M=2 
00 

4065 HIN=MIN+U:POSITION 34,23:PRINT HI 
N * 

4080 RETURN 

10008 U=0:F0R 1=0 TO 200 STEP 25 

10005 SOUND 0,1,0,15 

10006 SOUND 1,I,2,15;S0UND 2,1,4,15 
10018 NEXT I 

10015 SOUND 0,0,0,e:S0UND l,0,e,0:S0UN 

D 2,0,0,0 

10080 STOP 

20000 FOR 1=1 TO 5 

20005 FOR S=0 TO 200 STEP 5 

20010 SOUND 0,S,8,15 

20015 NEXT S 

20028 FOR S=20O TO 0 STEP -5 

20025 SOUND 0,S,8,15 

20030 NEXT S 

20035 NEXT I 

20040 SOUND 0,0,0,0 

20045 STOP 

32000 POKE 106,PEEKC106)-5:GRAPHICS 2: 
START= CPEEK C106) +1))(256 : POKE 756, START 
/256;P0KE 752.1 

32005 DIM XFR$C38):RESTORE 32016:FOR X 
=1 TO 38;READ N:KFR$CX,X)=CHR$CN):NEXT 
X 

32010 ? tt6;“' K - KX >e KKMI(ICICMM » 

32011 ? tt6;" * fgmrrni 

32012 ? tt6;" * slot 

32013 ? tt6;" * ITT-TliffTta 

32014 ? tt6;'* I H CM X KMXK i CMK) l»« 

32015 ? "BY MICHAEL A. lUINS" 

32016 DATA 104,168,0,133,203,133.205.1 
68,224,133,206,165,106,24,105,1,133,20 
4,160,0,177,205,145,203,200 

32017 DATA 208,248,230,264,230,206,165 
,206,201,228,208,237.86 

32020 Z=USR(ADRCHFR$n:RESTORE 32100 
32030 READ X;IF K=-l THEN RESTORE :RET 
URN 


32040 FOR Y=0 TO 7;READ Z;POKE X+Y+STA 


RT,Z;NEXT Y:GOTO 32030 

32100 DATA 520,170,170,170,170,178,170 
,170,170 

32101 DATA 528,170,85,170,85,170,85,17 
0,85 

32102 DATA 536,170,0,170,0,170,0,170,0 

32103 DATA 544,160,160,160,160,10,10,1 

0,10 

32104 DATA 552,80,80,80,80,5,5,5,5 

32105 DATA 560,128,128,160,160,168,168 
,170,170 

32106 DATA 568,2,2,10,10,42,42,170,179 

32107 DATA 584,234,184,46,138,46,186,2 

24.170 

32108 DATA 600,167,28,114,200,114,156, 

38.170 

32108 DATA 608,170,0,170,255,255,170,0 
,170 

32110 DATA 616,1,171,7,175,31,181,127, 
255 


32111 DATA 624,255,127,181,158,175,167 
,171,168 

32112 DATA 776,2,82,82,81,1,81,80,80 

32113 DATA 784,170,168,128,64,64,64,0, 
0 


32114 DATA 782,1,5,5,21,21,5,5,1 

32115 DATA 800,64,80,80,84,84,80,80,64 

32116 DATA 808,2,10,10,42,42,10.10,2 

32117 DATA 816,128,160,160,168,168,160 
,160,128 

32118 DATA 824,1,2,1,2,5,10,21,3 
32118 DATA 832,0,128,64,128,64,160,88, 


32120 DATA 840,85,85,64,0,1,5,4,20 

32121 DATA 848,85,84,4,16,80,64,0,0 

32122 DATA -1 
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CHECKSUM DATA 
(See pgs. 7-10) 

1 DATA 536,632,899,895,184,307,678,879 

,220,295,143,351,720,17,548,7304 

130 DATA 158,933,148,360,909,92,994,46 

8,797,966,134,68,248,261,668,7204 

315 DATA 806,170,901,19,825,100,364,78 

6,155,968,421,996,516,310,354,7691 

510 DATA 331,142,28,364,552,940,749,33 

3,334,453,342,473,808,774,350,6973 

566 DATA 181,487,816,825,96,930,995,30 

6,27,725,148,803,578,759,836,8432 

628 DATA 726,175,819,805,105,911,237,8 

39,650,945,734,214,825,612,890,948? 

645 DATA 646,76,646,390,680,737,111,83 

1,733,26,811,137,767,613,838,8042 

662 DATA 746,192,836,995,720,954,798,5 

90,747,461,825,752,161,432,797,16086 

690 DATA 996,245,74,90,719,369,720,55, 

744,95,402,526,271,413,518,6237 

1050 DATA 489,246,280,158,568,667,496, 

408,565,794,71,732,697,143,187,6501 

2016 DATA 760,436,815,167,822,168,181, 

736,991,278,542,614,61,168,807,7546 

2069 DATA 726,241,977,790,616,427,15,4 

92,788,147,589,373,111,375,497,7158 

2260 DATA 793,627,151,542,387,498,154, 

528,390,501,794,799,130,865,610,7769 

2425 DATA 469,248,664,267,687,646,662, 

567,691,520,680,796,269,418,88,7672 

2495 DATA 812,150,565,505,170,97,432,5 

37,289,434,540,368,156,571,407,6033 

2672 DATA 361,399,971,401,403,22,512,1 

64,808,356,320,512,260,328,643,6460 

2970 DATA 689,592,351,313,607,554,746, 

858,246,17,304,508,372,576,227,6960 

3130 DATA 999,295,504,542,960,928,794, 

496,822,983,821,378,545,399,564,10030 

4050 DATA 649,949,978,953,12,710,997,8 

69,793,951,446,245,662,525,488,10227 

20000 DATA 262,370,531,689,687,486,678 

,683,565,495,288,843,671,391,128,7767 

32013 DATA 277,683,590,657,594,768,663 

,960,69,606,40,500,932,128,17,7484 

32107 DATA 702,619,597,366,154,959,307 

,428,122,866,127,406,371,919,754,7697 

32122 DATA 832,832 




VOL. 1 


THE A.N.A.L.O.G. COMPENDIUM 


PAGE 135 


HALLS OF 

THE LEPRECHAUN KING 

16K Cassette 24K Disk 

by Keith Evans and Ted Adkinson 


Alas! The Leprechaun King has awakened from 
his long slumber, and he has taken all of the world’s 
gold. Every nation is bankrupt. The world’s only 
chance is Smiley, the famous gold miner. With his 
dexterity and wit, Smiley just might be able to recap¬ 
ture all of the gold, pick up the magic key, and put 
the gold in a sanctuary. But unless he’s careful, the 
Leprechaun King will give him the Midas touch, 
turning him into a 24'Carat gold tombstone. 

When the game begins, take some time to notice 
where everything is positioned. Smiley is in the 
upper middle of the screen, and the Leprechaun King 
is in the upper right hand corner. Throughout the 
maze there are pots of gold. To collect one, j ust touch 
it. If you look in the lower right corner, you will see 
the magic key surrounded by walls. Collect about 
half of the gold, and the key will move to the center 
of the maze. 

After Smiley gets the key and all of the gold, he 
goes to the sanctuary chamber at the far lower right 
corner, directly to the left of the cross. Push the trig¬ 
ger button, and a section of the wall will disappear. 
This is the entrance to the sanctuary where Smiley 
has to store the gold. Deposit gold by simply touch¬ 
ing the cross. 

Another important part of this game is the gold 
tombstones. When Smiley loses a life, a tombstone 
appears as a resting place for all of the gold he was 
carrying. A new Smiley has to touch the tombstone 
to collect the gold that the old Smiley was carrying. 

You start with three lives. The game is over when 
you use them all up. To see how many lives you have 
left, look in the upper right or left hand corner of the 
screen where vertical bars indicate lives remaining 
(including the one currently in use). 

An expert player might get to the third maze and 
find it is totally different. Two clues about this maze: 
the key appears in the lower middle of the screen, 
and the section of disappearing wall lies directly 
below the cross. □ 


The program. 

Lines 1-10 — Variable initialization, title 
Lines 120-372 —Character set redefinition 
Lines 395-507 — Maze drawing, placing of 
the gold 

Lines 510-624 — Joystick reading, move¬ 
ment of Smiley 

Lines 630-999 — The Leprechaun’s logic 
Lines 1000-1120 — Maze and character set 
data 

Lines 1150-1154 — Lives left indicator 
Lines 1500-1510 — ''Midas Touch” sound 
effects 

Lines 2000-2020 — Counts bags of gold 
taken, places key in the maze if enough has been 
taken 

Line 2500 — Draws tombstone, checks men 
left 

Lines 2510-2570 — Erases Smiley’s trail 
Line 2575 — Starts game over when all men 
are used up 

Lines 2610-2700 — Puts the gold Smiley 
was carrying in a tombstone when he is killed 
Lines 3000-3050 — Subroutine to flash 
maze 

Lines 4000-4350 — Actually moves Lepre¬ 
chaun. 

Line 5000 — Plays ''Oh, when the saints... 
clears screen 

Lines 6000-6007 — Displays score at end 
of game 

Line 6010 — Clears screen 
Lines 7000-8030 — Data for ''Oh, when 
the saints...” 

Lines 9000-9130 — Subroutine to play 
''Oh, when the saints. . .” 

Lines 9150-9260 — Plays ''Good night, 
ladies...” 
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Lines 9270-9290 — Data for *'Good night, 
ladies...” 

Line 9300 — Sound effects of gold being 
cashed in 

Lines 10000-10020 — Color rotation sub¬ 
routine 


1 CLR :Krl0:Yi:l:MX-17:MVz2:Klrl0:Yl=l 

5 GRAPHICS 2 + 16:? It6; ":? tt6;" " 

6 ? mr' THE HALLS OP THE**:? tt8;L 
EPRECHAN KING**;? tt6; ** ** 

7 ? ite;** created**:? tt6;** ■* 

8 ? Jte;** _ by**;? tt6;** *• 

9 ? lt6;** g ng i cog ••:? ue;** •*:? 

tt6;** 

10 FOR ZZZzl TO 20:G0SUB iee0e:NEXT zz 

z 

120 POKE 106,PEEKfl06)“2 
130 GRAPHICS 1+16 
150 A-PEEKC106)*256 
190 SET=PEEKC106) 

200 POKE 756,SET 
220 FOR C-0 TO 7 
230 POKE A+C,0 
240 NEXT C 
250 FOR C::8 TO 63 
260 READ CHAR 
270 POKE A+C,CHAR 
280 NEXT C 

369 FOR C=64 TO 71:P0KE A+C,146:HEKT C 

370 FOR 0-72 TO 79:P0KE A+C,144;KEXT C 

371 FOR C-86 TO 87:P0KE A+C,128:HEKT C 

372 FOR C-88 TO 95:READ CHAR:P0KE A+C, 

CHAR:NEXT C 

395 IF TIH>::1 AND TIM<3 THEN RESTORE 1 
048 

396 IF TIM>=3 THEM RESTORE 7800 

397 TIMrTIH+l 

398 »I~2:IF TIKzl OR TIH-S THEM MMul 
400 READ GR1,GR2,GR3,GR4 

410 IF GRlr-1 THEN GOTO 446 

420 COLOR 35:PL0T GRl,GR2:DRAHTO GR3,G 

R4 

436 GOTO 400 

446 READ G1,G2 

450 IF Gl=-1 THEN 508 

460 COLOR 130:PLOT G1,G2 

476 GOTO 440 

500 IF TIM<4 THEN COLOR 35:PL0T 3,2;PL 
OT 7,3:PL0T 6,3;PL0T 1,16:C0L0R 32:PL0 
T 12,14 

502 BAGS=8:DBAGS-6;GOLD=0:KEY-6:IF TIM 
<4 THEN COLOR 37:PL0T 18,22 

503 IF TIM<4 THEN RESTORE 1120 

564 IF TIM>=:4 THEN RESTORE 7696:L0CATE 
10,11,ZZ:IF ZZ-32 THEN COLOR 37:PL0T 
10,11 

506 X=10: Y=l:READ RMX;READ RMY:HX=:RNX: 
MYiiRMY : Xl = 10 ; Yl=l 

507 READ SD0,SD01,SD,SD1,SC,SC1,K,E,AX 
,AY,NB 

510 X1=K;Y1=Y 

515 POKE 711,251 

516 POKE 77,0 

520 IF STICKC03-15 THEN GOTO 580 

536 J=:STICK(03 

540 IF J=ll THEN K-K“l 

550 IF J=7 THEN K=:K + 1 

560 IF J=14 THEN YnY-l 

570 IF J=13 THEN Y=Y+1 

580 LOCATE X,Y,I:IF 1:^35 THEN X-K1:Y=:Y 
1 

590 IF 1=130 THEN GOSUB 2008 
595 IF 1=38 THEN GOLD=GOLD+DGOLD:BAGS= 
DBAGS.’FOR ZZ = “30 TO 30:SOUND 0,ABSfZZ3 
,ie,8:NEXT ZZ:SOUND 6,6,6,6 


600 IF 1=1 THEN GOSUB 15e8:GOTO 2506 
605 IF 1=37 THEN KEY=1:ZZZ=60:FOR ZZ=6 
0 TO 40 STEP -1:S0UHD 0,ZZ,10,8:SOUND 
l,ZZZ,10,8:ZZZ=ZZZ--l:NEXT ZZ 
666 SOUND 0,e,0,6;S0UND 1,0,0,6 
615 IF J015 THEN COLOR 32:PL0T K1,Y1 
620 COLOR 36 .-PLOT X,Y 

622 IF X=SDO AND Y=SD01 AND KEY=1 AND 
STRIG<;e)=0 THEN COLOR 32:PL0T SD,SD1 

623 IF X=SC AND Y=SC1 THEN PGOLD=PGOLD 
+GOLD:COLOR 39:PL0T SC,SCI:X=AX:K1=X:Y 
=AY:Y1=Y:GOLD=0:GOSUB 9380 

624 IF BAGS<=N8 AND 1=39 THEN 5800 
630 im=WIN-l 

640 IF MM=1 THEN 518 

650 LOCATE MX-1,MY,D1 

660 LOCATE MK,MY“1,D2 

670 LOCATE MK+1,MY,D3 

680 LOCATE MH.MY+l.p4 

690 IF XOMX AND YOMY THEN 756 

700 IF X=l«< AND MY>Y THEN FD=2:FDl=e 

710 IF X=MX AND KY<Y THEN FD=4:FD1=0 

720 IF Y=MY AND MX>K TiiEM F&=i:FDi=6 

730 IF Y=MY AND MX<K THEN FD=3;FD1=0 

740 GOTO 790 

750 IF MX<X THEN FD=3 

760 IF MX>X THEN FD=1 

770 IF «Y<Y THEN FD1=4 

780 IF MY>Y THEN FD1=2 

790 REM 

795 IF FD1O0 THEN 900 

806 IF FD=4 AND D4<>35 THEN RD=4;G0T0 

1150 

810 IF FD=3 AND D3<>35 THEN RD=3:G0T0 
1150 

820 IF FD=2 AND D2<>35 THEN RD=2:G0T0 
1150 

830 IF FD=1 AND Dl<>35 THEN RD=1:G0T0 
1150 

840 RD=INTCRNDC0)*43+1 
856 IF RD=1 AND Dl=35 THEN 840 

860 IF RD=2 AND D2=35 THEN 840 

876 IF RD=3 AND D3=35 THEN 840 

886 IF RD=4 AND D4=35 THEN 840 

890 GOTO 1150 

900 «AY5=0:IF FD=1 AND Dl<>35 THEN WAY 
5=WAYS+1;W1=1 

902 IF FD=2 AND D2<>35 THEN WAYS=WAYS+ 
l:W2=l 

964 IF FD=3 AND D3<>35 THEN MAYS=»4AYS+ 
l:M3=l 

906 IF FD=4 AND D4<>35 THEN MAYS=WAYS+ 
l:W4=l 

908 IF FD1=1 AND Dl<>35 THEN l<AYS=WAYS 
+l:Mll=l 

910 IF FD1=2 AND D2<>35 THEN WAYS=WAYS 
+l:M22=l 

912 IF FD1=3 AND D3<>35 THEM WAYS=WAYS 
+l;W33=l 

914 IF FD1=4 AND D4<>35 THEN WAYS=MAYS 
+l:M44=l 

916 IF WAYS=2 THEN 4080 
918 IF Wl=l THEN RD=1 
920 IF W2=l THEN RD=2 
922 IF W3=l THEN RD=3 

924 IF W4=l THEN RD=4 

925 GOTO 4070 

926 GOTO 1150 
999 GOTO 510 

1006 DATA 170,84,124,170,146,254,40,16 
8 

1010 DATA 126,60,66,223,209,219,66,66 
1020 DATA 170,85,170,85,170,85,170,85 
1030 DATA 60,126,219,255,189,195,126,6 


1635 DATA 0,0,7,253,85,87,0,0 

1037 DATA 28,54,119,65,119,119,119,127 

1038 DATA 24,24,126,126,24,24,24,24 

1039 DATA 31,35,69,249,137,138,140,248 

1040 DATA 13,13,14,13,2,14,4,14,5,15,4 
,15,5,16,8,16,15,15,16,15,13,16,14,16, 
2,18,5,18,7,18,9,18,15,18,17,18 

1041 DATA 1,0,18,0 

1050 DATA 2,19,3,19,7,19,9,19,11,19,13 
,19,5,26,7,20,16,20,18,20,2,21,3,21,5, 
21,7,21,9,21,14,21.2,22,3,22 
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1060 DOTrt 1,1,1,5,18,1,18^7,5,1,3,4,16 
,6,16,8,18,12,18,16,16,14,16,17,16,20, 
16,22,13,10,13,11,13,17,13,18 
1070 DftTA 5,5,5,10,8,13,8,14,3,16,3,17 
,0,0,0,23,0,23,15,23,15,23,15,0,3,1,5, 
1,11,1,16,1,11,2,16,2,11,4,16,4 
1080 DATft 4,6,5,6,3,3,5,3,6,4,7,4,3,5, 
4,5,11,5,12,5,14,6,16,6,11,7,12,7,2,8, 
6,8,8,8,5,8,11,8,14,8,5,5,6,5 
1050 D0T0 11,5,13,5,16,5,17,5,1,10,3,1 
0,6,10,7,10,15,10,17,10,6,11,7,11,5,11 
,11,11,2,12,3,12,17,12,18,12,5,13,6,13 
1055 DATA 10,13,16,17,11,13,11,17,-1,0 
,0.0 

1100 DikJtk 4,2,5,5,13,7,4,5,8,5,12,10,1 
8,11,15,12,3,13,5,13,5,14,13,14,12,15, 
4,16,15,17,6,18,4,21,12,22,15,20 
1110 DOT0 2,6,-1,0 

1120 DftTfl 17,2,15,22,16,22,18,22,5,12, 
17,22,-15 

1150 IF Lire THEN COLOR 8:PL0T 15,0:PL 
OT 0,0 

1151 IF Ll::-! THEN COLOR 5:PL0T 15,0:P 
LOT 0,0 

1152 IF LIi:-2 THEN COLOR 10:PL0T 15,0: 
PLOT 0,0 

1154 GOTO 4110 

1500 C0UNT=:800:F0R ZZ = 20 TO 0 STEP -1: 
SOUND 0,COUNT,10,ZZ:SOUND l,COUHT+tZZ* 
555 ,lO,ZZ:COUNT:iCOUNT-10:NEXT ZZ 
1510 SOUND 0,8,0,0:S0UHD 1,0,0,0:RETUR 
N 

2000 BDGSrBOGS-l:GOLD=GOLDFINT CRND CO)* 
100) 11: DBAGS=:DB0GS-1 

2005 FOR ZZr20 TO 0 STEP -1:SOUND 0,20 
,10,ZZ:NEKT ZZ.SOUND 0,0,0,6 
2010 IF DB0GS=-10 OR BftGS3-10 THEN COL 
OR 37:PL0T K,E:COLOR 35:PL0T SC,SCI 
2020 RETURN 

2500 COLOR 38:PL0T X,Y:REK :LI=LI-1:IF 
LI=:-3 THEN GOSUB 5156:G0SUB 66e0:G0T0 
2570 

2510 LOCATE X,Y,ZZ:IF ZZ“36 THEN COLOR 
32:PLOT K Y 

2520 LOCATE X+1,Y,ZZ:IF ZZ=36 THEN COL 
rip *77 * PI flT U-f 1 V 

2530 LOCATE X-i,Y,ZZ:IF ZZ=:36 THEN COL 

nP *77 • PI PT Jl—1 V 

2540 LOCATE X,Y-1,ZZ:IF ZZ=36 THEN COL 
flP "77 * PI fIT W V—f 

2550 LOCATE H,Y11,ZZ:IF ZZ:i36 THEN COL 
OP ^7*PI OT K V+1 

2555 LIzLI-l:IF LIz-3 THEN GOSUB 5156: 
GOSUB 6O0e:GOTO 2570 
2560 COLOR 38:PL0T X,Y 

2570 X-ie:Yrl:XlrK:Yli:Y;MX=17:MYi:2:0KK 

=MX:OKY=HY 

2572 D-32 

2575 IF LI::-3 THEN LI~0:G0T0 355 
2610 FOR FN36 TO 500.’NEXT FN 
2617 DGOLD=GOLD : G0LD=:0 : X=10 : Yzl: Xl^lO : 
Yli:l 

2620 MX=:RMX:MY=RKY 

2630 D=:32 

2700 GOTO 503 

3000 FOR COUNTnO TO 5 

3010 SETCOLOR 0,8,8 

3015 FOR ZZ-1 TO 50:NEXT ZZ 

3020 SETCOLOR 8,2,8 

3025 FOR ZZ=1 TO 50:NEXT ZZ 

3030 NEXT COUNT 

3040 SETCOLOR 8,2,8 

3050 RETURN 

4000 RM=INT(RND(0)*2)11 
4010 IF RW-l THEN lllO 
4020 IF Mlzl then RDrl 
4030 IF M2rl THEN RD=:2 
4040 IF W3rl THEN RD=3 
4050 IF W4=l THEN RD-4 
4060 GOTO 1150 
4070 IF Mll-1 THEN RD=1 
4080 IF 1422^1 THEN RD32 
4050 IF W33=l THEN RDr:3 
4100 IF M44=l THEN RD-4 
4110 IF RDrO THEN 4388 
4120 IF RD=1 THEN MH=MX-1 


4130 IF RD::2 THEN MY=MY-1 
4140 IF RD=3 THEN MKuMX+l 
4150 IF RD=4 THEN MY=MY+1 

4155 LOCATE Olfl(,OMY,ZZ:IF ZZ=36 OR ZZ= 
35 THEN 4162 

4160 COLOR D:PLOT OMX,ONY 
4162 D=32 

4165 LOCATE HX,I1Y,D:IF D-36 THEN GOSUB 
1500’.GOTO 2500 
4170 COLOR l:PLOT HH,MY 
4175 OMX-MX:OMYzMY 

4180 FD=0 : FD1=0 : RD=:0 : D1=0 : D2=0: D3=6 : D4 
-O:WAYS=0:RD::0 

4156 141=0:142=0: U3=6 :144=0: M11=0: U22=0: M 
33=0:M44=e 

4200 GOTO 510 

4300 RD=INTCRNDC0)*4)41 

4310 IF RD=1 AND Dl=35 THEN 4360 

4320 IF RD=2 AND D2=35 THEN 4300 

4330 IF RD=3 AND D3=35 THEN 4300 

4340 IF RD=4 AND D4=35 THEN 4306 

4350 GOTO 4126 

5000 GOSUB 3000 .-GOSUB 5009:G0SUB 6600: 
TIH=TIM+l:G0T0 355 

6000 COLOR 32:C1=0:C2=0:IF LI<>-3 THEN 


GOTO 6005 

6001 IF LI=-3 THEN GOSUB 601 0:POKE 756 

,224:P0SITI0N 0,5:? 116;” ”;P 

GOLD 

6002 POSITION 4,10:? tt 6 ;”push trigger” 
:IF LI=-3 THEN TIK=0 

6003 SETCOLOR 1,12,10:IF STRIGC0)=0 TH 
EN 6005 

6004 FOR ZZ=1 TO 56:NEXT ZZ:SETCOLOR 1 
,e,0:F0R ZZ=1 TO 50:NEXT ZZ;G0T0 6003 

6005 RESTORE 1040:IF LI=-3 THEN PGOLD= 
0 

6007 COLOR 32;G0SUB 6010:P0KE 756,SET: 
RETURN 

6010 FOR Cl=e TO 23:PL0T 6,C1:DRAUT0 1 
5,Cl:NEXT Cl:RETURN 

7000 DATA 8,0,15,0,15,0,15,23,15,23,0, 
23,0,23,0,0,3,3,5,3,5,2,5,2,5,1,11,1,1 

4.3.16.3.14.2.14.2 

7010 DATA 5,4,11-6.5,6.11.4.16,5,14,5. 

14, 6 ,14, 6 ,5,10,11,10,11, 16 , 11 , 12 ,11,12 

,5,12,5,12,5,10,3,5,5,5,5,6,5,6 

7020 DATA 3,5,3,10,5,5,5,10,14,5,14,10 

,16,5,16,10,3,12,3,13,5,12,5,13,14,12, 

14,13,16,12,16,13 

7030 DATA 10,15,10,17,5,16,11,16,3.17. 
5,17,14,17,16,17,3,15,5,15,14,15,16,15 
,8,20,5,20 

7040 DATA 11,20,12,20,8,22,5,22,11,22, 

12.22.2.22.2.23.17.22.17.23.12.21.12.2 
1,8,21,8,21,3,15,3,20 

7050 DATA 3,16,3,17,16,16,16,17,16,15, 
16,20,2,10,3,10,6,10,5,10,2,12,3,12,6, 
12,5,12,13,10,14,10 

7060 DATA 16,10,17,10,13,12,14,12,17,1 

2.17.12, -1,-! 

7070 DATA 4,2,15,2,4,6,15,6,10,4,10,6, 

5,5,11,5,4,5,15,5,2,11,4,11,6,11,13,11 

,15,11,17,11,4,13,15,13 

7080 DATA 5,15,11,15,5,17,11,17,4,16,1 

5,16,4,20,15,20,5,21,11,21,4,2,-1 

7050 DATA 10,21,10,13,10,12,10,11,10,2 

2 . 10 . 12 , -28 

8000 DATA 121,6,56,6,51,6,81,1,0,8,121 
,8,56,8,51,8,81,1 

8010 DATA 0,8,121,8,56,8,51,8,81,2,56, 
2,121,2,56,2,108,1 

8020 DATA 0,8,56,8,56,8,108,8,121,2,12 

1.6.56.2.81.4.81.4.51.2 

803G DATA 0,8,51,8,56,8,51,8,81,2,56,2 
,108,4,108,4,121,1,-1 


5000 RESTORE 8000 

5610 READ PITCH 

5020 IF PITCH=-1 THEN 5130 

5040 READ DURATION:DURATION=INTC50/DUR 

ATION) 

5050 SOUND 0,PITCH,1O,8 

5060 IF PITCH=0 THEN 5080 

5070 SOUND 1,PITCH+1,10,8 

5080 FOR ZZ=1 TO DURATION.’NEXT ZZ 

5050 SOUND 0,0,0,0 
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9100 SOUND 1,0,0^9 

9110 FOR ZZ=1 TO 5:NEXT ZZ 

9120 GOTO 9019 

9130 RETURN 

9150 RESTORE 9270 


9160 REDD DURATION:IF DURATI0N=~1 THEN 
RETURN 

9170 DURATI0N=:IN7(DURATI0N«10) 

9180 READ PITCH: IF PITCH::© THEN 9200 

9190 PITCH=PITCH*3 

9200 SOUND 0,PITCH,10,8 

9210 SOUND 1,PITCH+1,10,8 

9220 FOR ZZ=1 TO DURATION:NEXT ZZ 

9230 SOUND 0,0,0,0 

9240 SOUND 1,0,0,0 

9250 FOR ZZm TO 3: NEXT ZZ 

9260 GOTO 9160 

9270 DATA 2,47,2,60,1,81,3,60,2,47,2,6 
0,1,53,3,53,2,47,2,60,1,45,2,45,1,45 
9280 DATA 1,47,1,47,1,53,1,53,3,60,1,0 
,1.5,47,.5,53,1,60,1,53,1,47,1,47,2,47 
,1,53,1,53,2,53 

9290 DATA 1,47,1,40,2,40,1.5,47,.5,53, 
1,60,1,53,1,47,1,47,2,47,1,53,1,53,1,4 
7,1,53,3,60,1,0,-1 


9300 FOR ZZZ=1 TO 3:FOR ZZr20 TO 0 STE 
P -l:SOUND 0,20,18,ZZ;NEXT ZZ:SOUND 0, 

o,o,o:next zzz:return 

10000 FOR Z-1 TO 3 
10010 A=PEEKC708) 

10020 POKE 708,PEEKC7113:POKE 711,PEEK 
C710}:P0KE 710,PEEKC7O9):POKE 7e9,A:NE 
XT Z:FOR B=1 TO 10:NEXT B:RETURN 




CHECKSUM DATA 
(See pgs. 7-10) 

1 DATA 0,703,82,669,687,337,397,37,199 

,539,211,426,288,786,730,6091 

250 DATA 162,99,303,742,713,712,721,64 

2,282,323,121,875,275,455,697,7122 

430 DATA 704,833,696,201,728,445,337,5 

1,429,826,926,151,238,959,36,7560 

530 DATA 918,74,785,93,91,205,828,681, 

484,731,983,17,973,483,857,8203 

624 DATA 488,689,493,829,812,831,814,1 

82,910,911,917,918,746,924,929,11393 

770 DATA 167,170,113,918,228,224,220,2 

16,977,846,853,860,867,983,660,8302 

902 DATA 660,667,674,27,30,40,50,918,8 

10,807,811,815,974,970,746,8999 

1000 DATA 226,165,214,287,97,68,763,80 

,750,137,418,548,616,647,412,5428 

1095 DATA 418,873,132,916,490,600,859, 

724,251,119,657,327,491,783,339,7979 

2510 DATA 724,239,248,210,201,494,202, 

783,213,871,731,517,774,208,903,7318 

3000 DATA 810,677,667,660,668,195,662, 

788,842,933,0,5,10,15,719,7651 

4070 DATA 706,715,724,726,908,549,557, 

551,559,311,753,204,808,251,772,9094 

4180 DATA 625,95,887,819,607,611,615,6 

19,730,1,991,985,398,561,836,9380 

6005 DATA 105,951,595,618,605,393,695, 

974,457,283,942,188,257,974,783,8820 

8020 DATA 596,86,199,110,118,997,893,4 

00,342,698,223,218,588,743,801,7012 

9158 DATA 226,485,338,695,558,894,342, 

698,223,225,593,761,514,393,665,7610 

9300 DATA 852,309,60,626,1847 


For those interested, here are some of the 
techniques used in this program. First is '"redefined 
character sets,” which when carefully laid out can 
simulate a high resolution graphics screen, but re¬ 


quiring much less memory. They are fairly easy to 
design. Each character can be one of four different 
colors. Step one is to design some characters. Here’s 
Smiley as an example: 



Make an 8 by 8 grid, mark the blocks to be filled 
in, then add up the corresponding numbers to de¬ 
termine its POKE value. 

Following is a program which defines a space and 
a Smiley character, and then prints out a picture of 
Smiley on the screen. 


10 GRAPHICS 2+16:REM START OUT WITH A 
GRAPHICS STATEMENT 

20 POKE 106,PEEKC106)-2:REM SET ASIDE 
2 PAGES OF MEMORY FOR THE CHARACTER SE 
T 

30 CHBASE=PEEKC106}N256:REM THIS IS WH 
ERE THE CHARACTER SET WILL BE POKED IN 
TO MEMORY 

40 SET=PEEKC106):REM THIS IS WHERE THE 
CHARACTERS WILL GO IN TERMS OF PAGES 
OF MEMORY 

50 READ VALUE;IF UALUE^-l THEN 95:REM 

READ IN PART OF A CHARACTER 

60 POKE CHBASE+C,VALUE:REM PUT THE HUM 

BER IN MEMORY 

70 C=C+l;G0T0 50 

75 REM DATA FOR SPACE 

80 DATA 0,0,0,0,0,0,0,0 

85 REM DATA FOR SMILEY 

90 DATA 60,126,219,255,189,195,126,60, 

95 POKE 756,5ET;REM TELL THE COMPUTER 
WHERE THE HEM CHARACTER SET IS LOCATED 
100 COLOR l:PLOT 5,5:REM PUTS SMILEY 0 
N SCREEN AT 5,5 

110 GOTO 110:REM ENDLESS LOOP FOR DISP 
LAV PURPOSES 


To determine the number for the COLOR state¬ 
ment in line 100: first, Smiley is to be green. Color 
register number 1 normally contains green, so it is 
used. Smiley has been defined in the program above 
as the second character in the redefined set. (The 
space was the first.) 

With these pieces of information I looked up the 
number in a chart, like the following one: 

COLOR REGISTER 0 = 32, 33 through 95 

COLOR REGISTER 1 = 0, 1 through 124, 

(125*), 126, 127 

COLOR REGISTER 2 = 160, 161 through 223 

COLOR REGISTER 3= 128, 129 through 

154, (155*), 156 
through 255 

*155 selects the same thing as 32. 125 has no 
effect. 

Smiley’s color is set by color register 1, so look in 
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the second row. Since he is the second character, use 
the 2nd number in the 2nd row, which is 1. As an¬ 
other example, if Smiley were to be controlled by 
color register 2, the correct number would be 161. 
Try 161 in the example program above and see what 
happens. 

Before you get too carried away, remember that 
the example program will not allow text to be dis¬ 
played on the screen. To switch back to text only, 
type POKE 756, 224. 

Another section of the Halls of the Leprechaun 
King which is interesting is its color rotation sub¬ 
routine (10000-10020). Adding this to a program’s 
title makes it very colorful. Here is how it works. 
Memory locations 708-711 contain the numbers 
which determine the colors which will be displayed 
from each color register. The subroutine rotates the 
colors from one register to another so that every¬ 
thing on the screen flashes through each color. Try it 
in one of your programs. □ 


Circle Radius Demo 


10 XCEHTER=310/2:YCEI(TER=132/2 
100 GRAPHICS 8 
110 COLOR 1 

120 ? "EHTER RADIUS:INPUT RADIUS 

130 LET RADIUS=RADIUS43-1 

140 LET X=0 

150 LET Y=RADIUS 

160 LET DIAHETER=3-2«RADIUS 

170 IF X<=Y THEN GOSUB 1000:IF DIANETE 

R<0 THEN DIAHETER=0IAHETER44»X46:X=X41 

:G0T0 170 

180 IF X>Y THEN EMD 

130 DIAMETER=DIANETER44WCX-Y)410 

200 Y=Y-1 

210 X=X41:G0T0 170 
1000 REH 

1010 PLOT XCENTER4X,YCENTER4Y 
1020 PLOT XCENTER4Y,YCENTER4X 
1030 PLOT XCEHTER4Y,YCENTER-X 
1040 PLOT XCENTER4K,YCEHTER-Y 
1050 PLOT XCEXTER-X,YCEMTER-Y 
1060 PLOT XCEHTER-Y,YCEHTER-X 
1070 PLOT XCEHTER-Y,YCEHTER4H 
1080 PLOT XCEHTER-X,YCENTER4Y 
1030 RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 50,308,474,753,651,436,523,773 
,371,580,245,356,504,275,35,7000 
1020 DATA 35,100,102,105,105,102,104,7 
88,1501 
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STUNTMAN 


16K Cassette 24K Disk 


by Steven Pogatch 


Your stunt man has been hired to climb to the top 
of every building he can find. This is not as easy as it 
may seem, though, because the tenants of the build' 
ings will do anything to get you off the building. 
There are six (6) levels to each building, each pro¬ 
gressing in difficulty. 

In the first section, windows constantly close to 
keep you from getting past them. Next, men stick 
their heads out of the windows, trying to get in your 
way. After that, flower pots fall from the window 
ledges, closing all windows in their way. After pass¬ 
ing this section, a crazy bird drops girders on you. Be 
careful here — they can be deadly if they hit you on 
the head. Once you get past the bird, you have to 
avoid King Kong, waiting for you on his part of the 
building. He is very angry and is throwing down any¬ 
thing he can find on top of you. Last (but not easiest), 
girders (3 lanes wide) come crashing down from the 
building. Look out! 

If you are lucky enough to get through all of this, 
there will be a brief intermission telling you to go on 
to the next building. 

On the top left corner of the screen are three 
numbers. The first one represents the section, the 
second represents the building number, and the third 
represents the number of men you have left. If you 
manage to score 10,000, 30,000 or 50,000 points, 
you will be awarded a free stunt man. The score is 
displayed in the lower left hand corner. You can 
move left, right and up with the joystick. For every 
movement you make, you are rewarded 50 points. 
You start out with 6 stunt men. Good luck climbing 
— you’ll need it. □ 


The program. 

Lines 1-30 — Initialization 

Lines 40-1000 — Movement of a player, 
activate obstacle(s) 

Lines 1000-2000 — Death (fall) of stunt 
man 

Lines 2000-3000 — Section 1 (windows & 
men) 


Lines 3000-4000 — Section 2 (flower 
pots) 

Lines 4000-5000 — Section 3 (bird) 
Lines 5000-6000 — Section 4 (King Kong) 
Lines 6000-10000 — Section 5 (girders) 
Lines 10000-11000 — Bonus stunt man 
Lines 11000-32000 — Go on to next build¬ 
ing (intermission) 

Lines 32000-325000 — Redefines charac¬ 
ter set 

Lines 32500-32700 — Title 
Lines 32700-32750 — End of game 


1 G05UB 32090:CLR 

2 GOSUB 32500:5H=6:B=1 

5 GRAPHICS 1:P0KE 756,PEEKtl063+1 
10 5ETC0L0R 2,0,0:P0KE 710,S4:P0KE 711 
,45:F0R A=0 TO 1S:P0SITI0N 5,A:? 
eeeeeeeeeee";NEXT A 

20 FOR A=5 TO 16 5 F-RMD COJ^^IS: IF F>1 TH 
EM POSITION A,F;? »6; f" : NEXT A 
30 X-IO: Y=18;0X=X:0Yi:Y 

40 POSITION 0X,0Y:? tt6;"e":POSITION OX 
,0Y+l:? tt6;“e*' 

41 LOCATE K,Y,Z:IF Z=102 OR Zr225 OR Z 
=66 THEN GOSUB 1000 

42 POSITION X,Y:? tt6 j "[3" : POSITION X,Y+ 
1:? It6;"[ll" 

43 IF SC=10e00 OR SC=50000 OR SC=10000 
0 THEN SH=SHll;GOSUB 10000 

44 IF Y=0 THEN L=L+1:G0T0 5 

45 0X=X:0Y=Y 

46 SOUND 0,Y+20,3,15:F0R A=1 TO 15:NEX 
T A:S0UND 0,0,0,0 

47 G=:RND(0)«4:IF G>3.7 THEN FOR A=5 TO 
16:P0SITI0N A,RND(03»18:? tt6; " f ; NEXT 
A 

48 ON L GOSUB 2000,3000,4000,5080,6000 
;IF L = 6 THEN 1=0:6=6*^1:60506 11088 

49 POSITION 8,19:? tt6;SC:POSITION 1,1: 
? lt6;L:POSITION 1,2:? tt6;6:POSITION 1, 
3;? tt6;SH 

50 IF STICKC0J=14 AND Y>0 THEN Y=Y-1:S 
C=5C+58:G0T0 40 

60 IF STICK(0J=11 AND X>5 THEN X=X-1:S 
C=5C+50;G0T0 40 

70 IF STICKC0J=7 AND X<16 THEN X=X+1:S 
C=SC+50;G0T0 40 
100 GOTO 42 

1000 SOUND 0,40,6,10:F0R A=1 TO 25:NEX 
T A:S0UND 0,0,0,0:S0UND 1,0,0,0 
1010 FOR A=Y TO 18:P0SITI0N X,A:? tt6;" 
0”: POSITION X,A + l:? tt6;"[I]": POSITION X, 
A-l:? 116POSITION X,A:? tt6;"e“ 

1020 SOUND 0,A^20,10,10:NEXT A:S0UND 0 
,0,0,0:SH=SH-1 

1030 IF SH<0 OR SH=0 THEN GOTO 32790 
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1040 GOTO 10 
2000 REM DOCTORS 

2010 C=C+l;IF C=ll THEN C=1:DC=RND(0J» 
10 

2020 IF DC>6 THEN POSITION C+5,RNDC0)» 

18:? 1*6 ;"B" 

2040 RETURN 
3000 REM POTS 

3010 D=D+l:IF D=ll THEN D=1;DC=RNDfOJ* 
10 

3020 IF DC>7 THEN FOR A=2 TO YrPOSITIO 
N D+5,A:? 1*6;"B":POSITION D+5,A-1:? 1*6 
;*'f:NEKT A:POSITION D+5,V;? It6;"e" 
3030 RETURN 
4000 REM BIRD 

4010 BD=BD4^1:IF BD=11 THEN BD=1 
4020 POSITION BD+5,2:? 1*6; "C" : POSITION 
BO+6,2:? **6;"D":POSITION BD+4,2:? **6; 
•■e":BDD=RND*0)*lO 

4022 IF BD=1 THEN POSITION 15,2:? I*6;" 
ee" 

4025 IF BDD>3 THEN 4030 
4027 RETURN 

4030 FOR BDDA=4 TO 1S:P0SITI0N BDF5,BD 

da:? **6;‘'eM *':position BD+5,BDDA-1:? **6 
■ 110011 

4040 LOC0TE K,Y,Z:IF THEM G05UB 

1000 

4050 SOUND 0,BDDA^1O0,1O,8:NEKT BDDO:5 
OUND 0,0,0,0 
4060 RETURN 
5000 REM KONG 

5010 KM=KN+l:IF KN=12 THEN KL=KL11:KN= 
1 

5015 IF KNul THEN KM=KN+1:IF KL-IZ THE 
N KLi:l 

5026 POSITION KN+5,KL + 1:? tt6;'W 5 POSIT 
ION KN + 5,KL + 2;? tt6;‘W 5 POSITION KN-1+5 

K i j. < ■ -o siiAaisnn-CTTTnM i/i 

1- ■ X I : , <r .roxxixun ivn x<-u),rvi-<xa: 

tt6 

5025 POSITION 16,KL+l:? tt6;“e":POSITIO 
N 16,KL+2:? 

5026 REM FOR 0=1 TO 12P0SITI0N 15,0? II 
6;"e"NEXT 0 

5027 LOC0TE X,Y,Z:IF Z=235 THEN GOTO 1 
006 

5036 QQQ=RND coition 
5646 IF 0Q0<6 THEN RETURN 
5045 IF QQQ>6 0ND QQQ<7 THEN 5650 

5046 IF Q0Q>7 0ND QQQ<8 THEN 5206 

5047 IF QQQ>8 0ND QQQ<S THEN 5300 

5048 IF QQQ>S 0ND QQCXlO THEN 5406 

5050 FOR 0=KL+4 TO 17 

5060 POSITION KN + 5,0:? 116; "B'*: POSITION 
KN+5,0-1:? ll6;"e“:LOC0TE X,Y,ZZ:IF ZZ 
=66 THEN 1066 

5070 SOUND 6,0T2OO,16,8:NEXT 0;SOUND 6 
,0,0,0:POSITION KN+5,17:? tl6;"e" 

5086 RETURN 

5200 FOR 0=KL+4 TO 17 

5210 POSITION KN + 5,0:? 116 ; "I"*: POSITION 
KN+5,0-l:? lt6;"e":LOC0TE X,Y,ZZ:IF ZZ 
=73 THEN 1000 

5220 SOUND 6,0+266,16,8:NEXT 0:SOUND 6 
,6,e,0:P0SITI0N KN+5,17:? Il6;'*e" 

5230 RETURN 

5300 FOR 0=KL+4 TO 17 

5310 POSITION KN+5,0:? 116; "M-*: POSITION 
KN+5,0-l:? ll6;“*e";LOC0TE X,Y,ZZ:IF ZZ 
=77 THEN 1000 

5320 SOUND 6,0+200,16,8:NEXT 0:SOUND 6 
,0,O,6:POSITION KN+5,17:? Il6;"e“ 

5330 RETURN 

5400 FOR 0=KL+4 TO 17 

5410 POSITION KN+5,0:? 116 ; "0" : POSITION 
KN+5,0-1:? ll6;*'e":LOC0TE X,Y,ZZ:IF ZZ 
=65 THEM 1000 

5420 SOUND 6,0+200,16,8:NEXT 0:SOUND 0 
,0,0,6:P0SITI0N KN+5,17:? Il6;"e-' 

5436 RETURN 
5560 RETURN 

6000 REM GIRDERS 0RE ME0N 

6005 GG=RNDC61«10+l:IF PL=1 THEN PL=1S 

6010 IF GG<4 THEN RETURN 

6020 TTT=RNDC0J»12+1 

6030 IF TTT<5 THEN RETURN 


6040 FOR 0=2 TO 1S:P0SITI0N TTT,0:? 116 
;"MMM*':POSITION TTT,0-l:? 116;■‘eee“:SOU 
ND 0,0,TTT,12:SOUND 1,TTT,0,12 
6045 LOC0TE X,Y,ZZ:IF ZZ=77 THEN GOTO 
1000 

6047 NEXT 0 

6050 SOUND 0,0,0,0:S0UND 1,0,0,0 
6060 POSITION TTT,19:? Il6;"eee" 

6070 RETURN 

10000 RESTORE 10500 

10010 RE0D SO:IF S0=-1 THEN SOUND 0,0, 
0 0:RETURN 

10020 SOUND 0,SO,10,14:F0R 0=1 TO 2:NE 
XT 0:GOTO 10010 

10500 D0T0 243,4,162,4,121,6,36,2,102, 
4,243,4,162,4,121,6,81,2,60,8,-1 
11000 GR0PHICS 0:P0KE 752,1:POSITION 1 
,1:? •• GO ON TO BUILDING •■;B:FOR 

0=1 TO 3:F0R Q=1 TO 50:S0UND 0,0,10,8 
11005 NEXT Q:NEXT 0:SOUND 0,0,0,0 
11010 FOR 0=0 TO SC STEP 150:SOUND 0,1 
3,32,8:F0R 0=1 TO 20:NEXT Q:SOUND 0,0, 
O,0:POSITION 10,5:? "SCORE0:NEXT 0: 
GOTO 5 
31333 END 

32000 POKE 1O6,PEEKC1O6)-5:GR0PHICS 0: 
ST0RT= CPEEK C106)+13 »256:POKE 756,ST0RT 
/256:P0KE 752,1 

32010 DIM XFR5€38J:RESTORE 32015:F0R X 
=1 TO 38:RE0D N:XFR$€X}=CHR5(N3:NEXT X 

32015 D0T0 104,163,0,133,263,133,205,1 
63,224,133,206,165,106,24,105,1,133,20 
4,160,6,177,205,145,203,200 

32016 D0T0 208,243,230,204,236,206,165 
,206,201,228,208,237,36 

32020 Z=USRC0DRCXFR$33:RESTORE 32100 
32030 RE0D X:IF X=-l THEN RESTORE :RET 
URN 

32040 FOR Y=0 TO 7:RE0D Z:POKE X+Y+ST0 
RT,Z:NEXT Y:GOTO 32036 

32100 D0T0 264,60,126,213,255,231,183, 

135.126 

32101 D0T0 272,106,50,36,255,126,126,1 

26.126 

32102 D0T0 280,30,207,255,255,127,15,3 
6,60 

32103 D0T0 288,30,26,255,254,224,0,0,0 

32104 D0T0 236,255,123,123,123,123,123 
123 255 

32105 D0T0 304,0,126,126,126,126,126,1 
26,0 

32106 D0T0 312,135,153,153,231,60,60,6 

0,0 

32107 D0T0 320,60,60,36,36,36,231,231, 
0 

32108 D0T0 328,60,36,60,8,24,16,24,8 
32103 D0T0 336,60,30,126,123,165,123,1 
26,60 

32110 D0T0 344,60,102,165,165,165,213, 
60,231 

32111 D0T0 352,126,102,102,126,8,8,40, 
56 

32112 D0T0 360,0,0,255,182,255,0,0,0 

32113 D0T0 -1 
32500 GR0PHICS 17 

3 2510 FOR 0=1 TO 22:P 0SITI0N 0,0:? 116; 

; SOUND 0,0+25,10 
,12:NEXT 0:POSITION 4,10 

32511 SOUND 0,0,0,0 

32512 ? tt6;".-Stunt-wan. 

32520 POSITION 2,13:? Il6;"0n STEUEN PO 
G0TCH": POSITION 5,14:? lt6;"PRESS ST0RT 

■ I 

32525 POSITION 7,18:? 116€c J 1382" 
32530 IF PEEK€53273)=6 THEN RETURN 
32540 GOTO 32530 

32700 GR0 PHICS 18:P0SITI0N 1,2:? II6;"0 
EdSElSIS*':POSITION 1,5:? II6;"SC0RE="; 

sc 

32710 POSITION 1,6:? «6;"PRESS ST0RT " 
32715 IF PEEK€53273)06 THEN 32715 
32755 CLR :GOTO 2 
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CHECKSUM DATA 
(See pgs. 7'10) 


1 DftTft 405,17,266,468,407,384,263,358, 

118,164,663,867,893,543,529,6451 

49 DATft 998,821,816,783,492,194,510,48 

5,459,615,525,997,243,785,81,8804 

3010 DftTft 6,681,786,5,59,187,45,657,80 

1,289,454,979,791,45,102.5887 

5015 475,635,855,276,239,438,357, 

196,192,201,498,693,954,593,795,7397 

5200 694,964,594,796,697,983,597, 

799,700,957,600,802,802,620,636,11241 

6010 DATA 517,459,374,919,585,488,737, 

366,796,650,292,498,329,393,275,7678 

11010 DftTft 684,592,284,910,654,591,768 

,663,960,879,634,535,45,170,526,8895 

32106 DftTA 354,269,972,836,628,478,887 

,833,312,711,575,597,203,329,343,8327 

32540 DATA 224,776,906,306,215,2427 
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DUNGEONS & DRAGONS 
CHARACTER GENERATOR 


24K Cassette 32K Disk 
by Bob Curtin 


When I first bought my ATARI, one of the things I 
put high on my list of priorities was to try one of the 
computer adventure games on the market. I wasn’t 
impressed with the game, but I was impressed with 
the ease of play. Pressing a few buttons took care of 
movement, combat, encumbrance, game time and all 
the rest, and it dawned on me that my computer 
could be a big help to me in my ongoing DUN" 
GEONS & DRAGONS campaign. 1 set to work 
writing a series of utility programs for it. This, the 
first, generates both player and non"player charac" 
ters in an average of about four minutes. Normally, it 
takes anywhere from twenty to forty minutes to 
generate a character "'by hand,” and then there’s a 
strong possibility of missing a few modifiers along 
the way. The computer always remembers. 

Though the program was written to take the work 
out of generating characters, the Dungeon Master 
and players are still left with choices to make. As in 
D&cD, the player still has choice of name, gender, 
race, class, and character level. Those categories 
greatly affect the final character statistics, and it 
would be an injustice to randomly choose them for 
the player. By the same token, there are certain mini" 
mum ability scores, or racial requirements, which 
must he met to assume the role of a particular race or 
class. The user doesn’t have to know or worry about 
it; the computer will figure it all out and tell the 
player if he or she doesn’t measure up. The player 
may continue to choose alternatives until one of his 
choices meets all requirements. The program will 
then continue on. 

The system used is based on the standard AD" 
VANCED DUNGEONS & DRAGONS game. 
There is an omission, however — by choice, not 
error. I didn’t incorporate the maximum level re" 
strictions imposed on certain races, such as an Elf 
being able to rise no higher than 7th level as a fighter. 
If a Dungeon Master wants to adhere to those limits. 


it’s a simple matter to just look it up; while it’s not so 
simple to get the computer to do what it’s told not to. 
For those of you who want to ignore the limits, the 
computer doesn’t know any better. Indulge. 

1 fudged a couple of other values, too. For in" 
stance, line 195 contains the random number gen" 
erator for the characters’ basic abilities. Notice that 
variables A and C have a +2 for the add"On number. 
1 did this to give the players a break. All you hard" 
line Dungeon Masters out there gnashing your teeth 
can switch back to +1 if you want. (Essentially, 
they’re now rolling 3D6-h2.) 

The program. 

As I said, there are five inputs. They are, in order: 
name, gender, race, class and character level. Here is 
an example of each. 

Name — after the title, the computer will ask for a 
character name. This is the only ”open” input, and 
— although you have to work at it — it can be 
screwed up. For example, entering a couple of 
control characters through the escape key will cause 
some grief later on down the line. Other than that, 
anything but an input of YES, NO, Y or N will be 
taken as the character name. If you don’t want a 
name, just hit the return key. Entering NO or N will 
fetch a list of names from memory as suggestions to 
the player. 

GENDER — The computer will only accept M or 
F. Lower case letters will not work. 

RACE and CLASS — Only the exact initials 
listed in parentheses on the respective menus will be 
accepted. 

CHARACTER LEVEL — Any level between 1 
and 18 (inclusive) will be accepted. If a value below 1 
is entered, the value will be upped to 1. If a value over 
18 is entered, a short message will be displayed and 
the program will loop back for another input. Any 
illegal entry, such as a letter instead of a number, will 
also cause the loop back for re"entry. 
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As the character builds, the computer does the 
appropriate calculations, comparisons and modifi¬ 
cations between inputs, and then displays the results. 
After the information has been copied from the 
screen, the player may continue the program by 
pressing any key. 

Program outline* 

Lines 5-26 — Initialization 
Lines 50-75 — Character Race Modifier 
Routine 

Lines 80-82 — Custom Display List 
Lines 86-88 — Title (so, my vanity’s show¬ 
ing). This can be deleted by eliminating lines 80 
through 96 and changing the last statement in 
line 20 to GOTO 100. 

Lines 100-111 — Thief, Magic-user, and 
Monk Data 

Lines 159-179 — Name Input 
Lines 180-187 — Gender Input 
Lines 190-192 — Race Menu 
Line 195 — Basic Ability Scores 
Lines 200-225 — Race Input 
Lines 226-229 — Ability Score Display 
Lines 235-243 — Class Menu and Class 
Input 

Lines 245-254 — Class Trigger and Gold 
Piece Generator 

Lines 263-269 — Exceptional Strength 
Routine 

Lines 276-332 — Hit, Damage, Armor 
Class, and Dexterity Modifiers 

Lines 335-341 — Modifier Display 
Lines 345-374 — Height and Weight Rou¬ 
tine (modified by race and gender) 

Lines 375-438 — Hit Point Generation 
Routine (modified by race and ability) 

Lines 460-475 — Thieves Ability 
Lines 500-530 — Magic-user Abilities 
Lines 550-599 — Monk Abilities 
Lines 2000-2020 — Name List 
Lines 2550-2730 — Race Limitations 
Lines 5000-5975 — Class Limitations 
Lines 6132-6200 — Thief Abilities Modi¬ 
fiers (by race and ability scores) 

Lines 7000-7055 — Psionics Routine 
Lines 8000-8020 — Input Error Routine 

A few suggestions for the DM. 

Never lose sight of the fact that the only reason a 
player will participate in one of your D&D sessions 
is to have FUN! Nothing will dampen the enthu¬ 
siasm of a new player faster than being forced to 
assume the role of a character too weak to take any 
kind of initiative, do any exploring, or even stand 
fast with the rest of the party. Force your players into 
a position of constant impotence and you’ll soon 
find your dungeon devoid of adventurers. 

Although I’m certainly not in favor of the give¬ 


away dungeon, killer dungeons are, if not worse, at 
least as bad. Surviving and advancing up the ladder 
of experience — developing a character is what D&cD 
is all about. To have a developed character snuffed 
out by the undetectable, unseeable or unknowable is 
bound to cause you to gain a reputation as a 'Vheap 
shot” dungeon master. Having a character killed 
because of one’s own recklessness or bad luck or a 
had choice between alternatives can be lived with. But 
the skewering of some hapless player for no rhyme 
or reason is unforgivable. 

Give your players a break. Pick a number — I use 
five — and let each player run off that many char¬ 
acters. The player can then choose one of them to 
start the game with, and should that character come 
to an untimely end, there are four more from which 
to choose. That way, no more valuable playing time 
is taken up generating characters. 

Normally, novice players start at level one. How¬ 
ever, after a player has campaigned for some time, it’s 
usually the practice to let him or her start higher than 
that. If they have a character killed off, you could, for 
instance, have them start a couple of levels lower 
than the character who was killed. Another way is to 
roll a six or eight-sided die. 

Above all, be fair. Remember that you, and con¬ 
sequently all of the creatures you control, have per¬ 
fect intelligence. Your players do not; they only 
know what you tell them. It behooves you to give 
that little extra. If a player can’t see something, don’t 
wait for him to ask; tell him. 

Good luck. Good dungeoning. □ 


5 TRAP 8006 

10 DIM N$ C40), Z$ C36},R£ CIO),P$(10),E$( 
20) , Dli$ (20) , GN$ (20) ^ HES (22) , 5T$ O) , MiS 
(7),IN$ (20),DX5(16),CN$(20),CHS(10) 

12 DIM HAS(22),H0$(22),BS(10),YS(19),T 
(19,8) , rflJ (20 , ^) , F (6) , J (15) , G$ (10) , X (10 
) ,M(33) ,HK(17M)/H$(34),D$(16) 

15 DOES HOT HAVE ENOUGH'*: 5TS=:**5TR 

EHGTH" S INSi:"INTELLIGENCE" : MI$=:"MI5D0M" 
:DXS="DEXTERITY":CNS="C0N5TITUTI0N" 

18 CHS-“CHARISMA":BS=" TO BE A"sE$="EL 
VE5 CANNOT BE ": Di4Sr“DMARVES CANNOT BE 
”;GNS=“GN0I«5 CANNOT BE “ 

20 HES="HALF-ELVES cannot be ":HAS::"HA 
LFLING5 CANNOT BE ":H0S="HALF-0RCS CAN 
NOT BE ":YS=" HO.ATTACKS" 

25 Kl=lS K2=K1+K1S K3=K1+K2:K4=K1+K3:K5= 
K1 + K4:K6-K3^K3:K7-K4+K3 2 K8=K2+K6:K9=K1 
+K8;K16=K9+K1;K11=25:K12=50:K13-1OO 

26 K14=75;K15-125 2 K16=150 2 K17r200 2 K241 
=2412K0=K1“K12G0T0 88 

50 FOR E-Kl TO K62J(E)=F(E)2 NEXT E2O=0 

2 IF RS-"H" THEN Y-Kl20=K52 RETURN 

54 IF R$="E" THEN Y=K220=K52J(K4)“J(K4 

) +K12 J (K5) =: J (K5) -Kl 2 RETURN 

56 IF RS="D" then Y=K320=K52J(K5)=J(K5 

)TKl2 J (K6)=J(K6)-K12 RETURN 

58 IF R$::"G" THEN Y::K4 2 0=K5 2 RETURN 

60 IF R$="HE" THEN Y=K520rK52 GOTO 75 

62 IF R$r"HA" THEN YrK6 2 0-K5 2 J(Kl)=J(K 

1)-K12 J (K4)=J (K4)+K12 RETURN 

64 IF R$::"H0" THEN Y=:K7 2 0=K5 2 J (Kl) - J (K 

1) +K12 J (K5) = J (K5) TKl 2 J (K6) = J (K6) -K2 2 RE 

TURN 
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75 RETURN 

88 POKE 712,128:? '‘N" :DL=PEEK C560)+256 
*PEEK(561);POKE 752,K1:P0KE 553,K0 

81 Z1=:PEEK(DL + K4) : Z2=PEEK (DL+K5) : POKE 
DL+K3,71:P0KE DL+K4,Z1:POKE DL+K5,Z2:P 
OKE DL+K6,K7:P0KE DL+K7,K6 

82 POKE DL+K8,K6:P0KE DL+K9,K6:POKE DL 
+K10,K6:P0KE DL+K11+K2,65:P0KE DL+K11+ 
K3,PEEK(560):POKE DL+29,PEEK(561) 

88 POKE 82,0:POKE 553,34:P0KE 710,128: 
? DUNGEONS & DROGONS":? " RONDOM C 
HOROCTER":? »• GEHEROTION PROGRAM" 

92 ? " BY BOB CURTIN" 

93 ? :? ;? " THIS PROGRAM MAS NRITTE 

N TO TAKE";? " SOME OF THE BURDEN 

OFF OF THE" 

94 ? " USUALLY HARRIED DUNGEON MAST 
ER." 

95 '? :? " PLEASE BE SURE TO PRESS B 
":? " AFTER EACH INPU 

T."; 

96 ? ;? :? " GOOD LUCK! GOOD DUNG 

EONING!":FOR E“K1 TO K10A3*5:NEHT E 

100 FOR IzKl TO K8:FOR X=Kl TO K10+K8; 
READ N:T(X,I)=N:NEXT X:NEXT I 

101 FOR I=K1 TO K3:F0R Xi:K9 TO K10 + K9: 
READ N:MU(X,I)i:N:NEXT X:NEXT I 

102 FOR I=:K1 TO K4:F0R X-Kl TO K10 + K7: 
READ N:MK(X,I)=:N:NEXT K:NEXT I 

103 DATA 30,35,40,45,50,55,60,65,70,80 
,90,100,105,110,115,125,125,125,25,29, 
33,37,42,47,52,57,62,67,72,77,82,87 

104 DATA 92,97,99,99,20,25,30,35,40,45 
,50,55,60,65,70,75,80,85,90,95,99,99,1 
5,21,27,33,40,47,55,62,70,78,86,94,99 

105 DATA 99,99,99,99,99,10,15,20,25,31 
,37,43,49,56,63,70,77,85,93,99,99,99,9 
9,10,10,15,15,20,20,25,25,30,30,35,35 

106 DATA 40,40,50,50,55,55,85,86,87,88 
,90,92,94,96,98,99,99.1,99.2,99.3,99,4 
,99.5,99.6,99.7,99.8,0,0,0,20,25,30 

107 DATA 35,40,45,50,55,60,65,70,75,80 
,80,80,35,45,45,45,55,55,65,65,75,85,9 
5,4,5,5,5,6,6,7,7,8,9,10,6,7,7,7,9,9 

108 DATA 11,11,14,18,99 

109 DATA 10,9,8,7,7,6,5,4,3,3,2,1,0,-! 
,-1,-2,-3,150,160,170,180,190,200,210, 
220,230,240,250,260,270,280,290,300 

110 DATA 320,1,1,1,54,54,32,32,32,2,2, 
52,52,52,3,3,4,4,13,14,16,16,27,28,39, 
212,312,313,413,416,517,520,624 

111 DATA 530,832 

159 POKE 82,2:GRAPHICS 1:P0KE 752,1:P0 
KE 712,128:P0KE 710,128 

160 RESTORE ;? tt6: ? 116:? tt6;" DUNGEONS 
& DRAGONS":? tl6;"CHARACTER GENERATION 

II 

170 ? "HAUE YOU THOUGHT OF A NAME":? " 
FOR YOUR CHARACTER";:IHPUT N$ 

175 IF N$-"YE5" OR N$::"Y" THEN ? "NWEL 
L, MHAT IS IT";:INPUT N5 

179 IF N$="NO" OR N$z:"N" THEN GRAPHICS 
0:P0KE 710,6:POKE 709,0:POKE 752,1:G0 

SUB 2000 

180 ? "«HHAT GENDER IS ";N$:" (M/F)";: 
INPUT G$;Oi:0:IF G$="M*' OR G5="F" THEN 
0=:K5 

187 IF 0OK5 THEN ? "fSM/F ONLY, PLEASE 
!":FOR E=K1 TO 1500:NEXT E:GOTO 180 
190 ? «6:? »6:? »6;" HUMAN (H)" 

;? 116;" ELF (E)":? 116;" DMA 

RF (D)" 

192 ? 116;" GNOME (G)": ? 116;" 

HALFLING (HA)":? 116;" HALF-ELF (HE 
)":? 116;" HALF-ORC (HO)" 

195 FOR E-Kl TO K6:A=INT(K6^RND(Kl)+K2 
) : B=INT (K6^RND (Kl) +1) : C-INT (K6)(RND (Kl) 
+K2) :D::A + B+C;F(E)-D:NEXT E:GOTO 205 
200 POP :? 

205 ? "MHAT RACE";:IHPUT R$:GOSUB K12 
210 IF 0OK5 THEN ? "^INITIALS ONLY, P 
LEASE!".GOTO 205 
215 GOSUB 2550 

220 FOR ErKl TO K6:IF J(E)>K9+K9 THEN 
J(E)=K9+K9 

224 IF J(E)<K3 THEN J(E)=K3 


225 F(E)=J(E):NEKT E 

226 GRAPHICS K1:P0KE 712,50:POKE 710,5 
0 :? 116:? 116:? 116 

227 ? 116:? 116:? 116;? II 6 ;" STRENGTH 
";F(K1):? 116;" INTELLIGENCE ";F(K 

2):? 116;" MISDOM ";F(K3) 

228 ? no;" DEXTERITY ";F(K4):? 116 

;" CONSTITUTION " ; F (K5) : ? 116; " CHAR 
ISMA ";F(K6) :? 116:? 116 

229 ? 116;" BASIC ABILITIES"; POKE 752, 
l:? " PRESS ANY KEY TO CONTINUE" 

230 OPEN 111,4,0,"K:":GET 111,E:CL0SE 111 
:IF E>0 THEN 235 

235 GRAPHICS 1:P0KE 709,96:POKE 710,16 
8;P0KE 712,98:P0KE 752,1 

236 ? 116:? 1 16;? 116 

237 ? m ;" iJirfSiisid : ? 1 16; " 

^*;? 116;" 


_ 

; ? 116; 
238 ? 116;" 





*;? 116 ; 



116;" 


116;" 

116:? 116:? 116;" CH 
THE ABOVE LIST" 


THEN 0=K5;Z=K2:GP3IHT(K1 
THEN 0=K5;Z::K3:GP-INT(K1 
THEN 0=K5:Z::K4:GP::INT(K1 
THEN 0::K5:Z::K5:GP::INT(K1 
THEN 0=K5:Z=K6:GPi:INT(Kl 


_ ;? no; 

239 ? 116;" 

OOSE FROM":? 116; 

240 GOTO 243 

241 POP :? 

243 Z=KO:O=K0:ESi:K0:? "1«1AT CLASS"; :IN 
PUT P$ 

245 IF P$z"F" THEN OzK5 : Zi:Kl: GP=INT (15 
0^ND(l)+50) 

246 IF P$i:"R" 

6«RND(Kl)+50) 

247 IF P$z"P" 

6«RND(l)+50) 

248 IF P$r:"C" 

6»RND(l)+30) 

249 IF P$-"D" 

6*RND(l)+30) 

250 IF P$r"T" 

3*RND(l)+20) 

251 IF P$:i"A" THEN 0=K5 : Z-K7 : GPnINT (Kl 
3*RND(l)+20) 

252 IF P$r"l«aj" THEN 0rK5 : Z=K8 ; GP-INT (6 
0*RND(1)+2O) 

253 IF P$-"I" THEN 0=:K5 : Zi:K9 : GP“INT (60 
NRHD(l)+20) 

254 IF P$z«W THEN 0rK5 : Z“K10 ; GP-INT (1 
5*RND(l)+5) 

255 IF 0OK5 THEN ? "CORRECT INITIALS 
ONLY, PLEASE!";? :G0T0 243 

262 GOSUB 5000 

263 IF P$i:"F" OR P$=:"R" OR P$=:"P" THEN 
IF F(Kl)zK10+K8 THEN 265 

264 GOTO 276 

265 GRAPHICS 2 + 16:P0KE 711,4:? 11K6:? 11 
K6:? 11K6:? 11K6;" ";N$;" HAS ":? 1 IK 6 ;" 
EXCEPTIONAL":? 11K6;" STRENGTH" 

269 ? 116:ESrINT(K13*RND(Kl)+Kl) :? 116;" 

E.S.RATING 18/";ES:F0R E^Kl TO 2008: 
NEXT E 

276 MH::8 : MD=0 : MA“0 : MR-0 : K325=325 : K335= 
335 

310 IF ES-K13 THEN MHrK3;MDrK6:GOTO K3 
25 

311 IF ES>i:K13-K9 THEN MH-K2 : MDzK5 : GOT 
0 K325 

312 IF ES>:i3^^Kll+Kl THEN MH-KZ ; MD=K4 : G 
OTO K325 

313 IF ES>=K12+K1 THEN MH=K2:MD-K3:GOT 
0 K325 

314 IF ES>=K1 THEN MH-Kl:MDrK3:GOTO K3 
25 

315 IF A-K9+K9 THEN mi=:Kl: ND=K2 : GOTO K 
325 

316 IF AZK10+K7 THEN MH=K1: ra>=Kl:GOTO 
K325 

317 IF A=K10+K6 THEN MD=K1:G0T0 K325 

318 IF A=K3 THEN 1W--K3: ^B>=-K2: GOTO K3 
25 

319 IF A=K4 THEN WH--K2:MD=-K2:GOTO K3 
25 

320 IF A<=K6 THEN MH=-K1:G0T0 K325 

325 IF D=K9+K9 THEN m=K3:MA=-K4:GOTO 
K335 

326 IF D=K9+K8 THEN WzKZ : MA=-K3 : GOTO 
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K335 

327 IF D=K8+K8 THEK MRzKl: : GOTO 

K335 

328 IF D=:K7+K8 THEN MW-'-Kl:GOTO K335 
323 IF DrK6 THEN rtt=:Kl:GOTO K335 

330 IF D=K5 THEN ; Mft=:K2: GOTO K33 

5 

331 IF D=:K4 THEH ^B^=:-K2 : M6=K3 : GOTO K33 
5 

332 IF D:zKZ THEH : M0=K4 : GOTO K33 

5 

335 GRAPHICS 1:P0ICE 712,128:P0KE 708,2 
2:P0KE 709,22:P0KE 752,1:P0KE 710,128 

336 ? tie:? It6;" 

337 ? HO;" MODIFIERS:";? US 

338 ? tt6;" HIT ";MH 

333 ? «6;" DAMAGE ";MD 

340 ? tt6;" A/C ADJUSTMENT ";MA 

341 ? tt6;" R/A BONUS ";MR 

345 X t5) zINT C7^RND (1) T : K C63 =INT f SifRND ( 
1) 3 : K (7) r INT Cll^^RND C13 3 : X C83 “INT C13«RH 
D C13 3 :X t33 zINT(25*RND (13 3 

346 X(63zINT(3*RND(133 

350 M(53=INT(40»RND(133:M(63=INTC30«RN 
DC133 :M(73=INT(2e^ND(133 : M(83 zINT (50* 
RND(133:M(33zINT(66*RND(133 

355 IF G$z"F«« then 365 

356 IF YzK3 THEN HzK2*Kll-K6+X(K73:WzK 
13+K11+K3+M(K53 

357 IF YZK2 THEN HzK12+K6TX (K73 : WzK13*- 
K10+M(K63 

358 IF YZK4 THEN HzK12-K10-Kl+X(K53:Hz 
K3*K11-K3+M(K73 

353 IF YZK5 THEN HzK12+K10+X(K83;MzllO 
+M(K53 

360 IF YZK7 THEN HzK12TK10TK2+X(K63;Mz 
K16TM(K83 

361 IF YZK6 THEN HzKll+KlO+Kl+X(K63:Hz 
80TM(K53 

362 IF YzKl THEN HzK12+K10+X(K33:MzK13 
+K11+K5+M(K33 

363 GOTO 372 

365 IF YZK3 THEN Hz424X(K63:MzK14TK4TM 
(K63 

366 IF VzK2 then HzK12+X(K73:«zK13-K5T 
M(K73 

367 IF YZK4 THEN HzK6*K6+X(K53:MzK6*Kl 
e+K7+M(K73 

368 IF YzK5 then HzK12TK6+X(K83:HzK8*K 
10^M(K63 

363 IF YZK7 THEN HzK12+K3+X (K53 :MzK14 + 
K5+M(K83 

370 IF YZ6 THEN HzSO+X (53 :Wz42+M(73 

371 IF YzKl THEN HzK12+K6+X(K43:MzK14+ 
M(K3> 

372 QlzINTCH/123:Q2zQl*12:03zH-Q2 

373 ? 136 2? 336;? 136;" HEIGHT ";Q1;"*" 
;Q3;CHR$(343 

374 ? 136;" WEIGHT ";W;"LBS." 

375 HPTzK0;0zKe;G0T0 400 

380 HPzINT(K4*RNDCK13+K23:RETURN 
385 HPzINT(K6*RND(K13^K23:RETURN 
330 HPzINTCKd*RND(K13TK23;RETURN 
335 HPzINT(K10*RND(K13+K23:RETURN 
400 ? "P01AT LEVEL IS ";N$;’.INPUT L 2 IF 
ZzK2 THEN LzL+Kl 

406 IF L>18 THEN ? "6Y0U CAN'T START A 
CHARACTER":? "OVER LEVEL 18. TRY AGA 

IN.";? ;GOTO 400 

407 IF L<z0 then Lzl 

408 FOR JzKl TO L;IF ZzKl OR ZzK3 THEN 
GOSUB 335 

410 IF ZZK2 OR ZZK4 OR ZzK5 THEN GOSUB 
330 

415 IF ZZK6 OR ZzK7 THEN GOSUB 385 
420 IF ZzK8 OR ZzK3 OR ZzKlO THEN GOSU 
B 380 

422 HPTzHPT+HP.’NEXT J:G0T0 431 

427 IF EZK3+K3 THEN HPTzHPT+(L*K43;GOT 
0 438 

428 IF EZK3+K8 THEN HPTzHPT+€L*K33;GOT 
0 438 

423 IF EZK8+K8 THEN HPTzHPT+(L*K2 )2 GOT 
0 438 

430 GOTO 432 


431 IF E>zK8 +K8 THEN HPTzHPT+(L*K2):GO 
TO 438 

432 IF EZK3+K6 THEN HPTzHPT+L:GOTO 438 

433 IF EZK3 THEN HPTzHPT-CL*K2J:GOTO 4 
38 

434 IF E<K8 THEN HPTzHPT-L 

438 ? tt6;? tt6;" HIT POINTS ";HPT 
440 IF ZzKl OR ZzK3 THEN IF L>zl2 THEN 
? tt6;Y$;" 2/l":G0T0 456 

445 IF ZzKl OR ZzK3 THEN IF L>zK6 THEN 

? tt6;YS;" 3/2":G0T0 456 

446 IF ZzK2 THEN IF L>zl6 THEN ? lt6;Y$ 

;" 2/l";G0T0 456 

447 IF ZZK2 THEN IF L>zK7 THEN ? tt6;Y$ 

*" 3/2" 

456 IF YzKl OR YzK3 OR YzK6 THEN GOSUB 
7000 

457 ? "N";N$;" HAS ";GP;" GOLD PIECES" 

458 GOSUB 61302? :? " PRESS ANY KEY 
TO CONTINUE" 

453 OPEN ltl,4,0,"K:":GET ttl,I:CLOSE Itl 
:IF I>0 THEN 460 

460 B5zINT(L/K4T+K2:IF ZzK6 OR ZzK7 TH 
EN 462 

461 GOTO 500 

462 GRAPHICS 1+16 

463 ? tt6:? tt6;? It6;? tt6 


465 ? tt6;" 

466 ? tt6;" 

467 ? tt6;" 

468 ? tt6;" 

463 ? tl6;" 

470 ? «6;" 

471 ? tt6;" 

472 ? «6;" 

473 ? tt6;" 

474 ? It6;? HO 


BS - “ - X";BS 

pp-- _ "jKL^KD 

LOCKS - - ";T(L,K2) 
TRAPS - - ";T(L,K3) 

,^5-- ••;T(L,K4) 

--";T(L,K5} 

HEAR - - ";T(L,K6) 

CLIMB-";T(L,K7) 


LANGUAGES 

:? tt6;" QG 


475 FOR IzKl TO K10^3*K5 2 NEXT I 

500 IF ZzK8 OR ZzK3 THEN 505 

501 IF ZzKlO THEN 550 

502 GOTO 4333 

505 GRAPHICS 2+16;POKE 712 .160 
510 ? tt6:? »6:? It6 2? tt6;" 

EC ";MU(B,1J _ 

515 ? 116:? tt6;" ";MU(B 

'25 _ 

520 ? It6;? HO;" {:r4!*iZin:M33«re ";MU(B 
. 3 } 

530 FOR IzKl TO 4e00:NEXT I 
535 GOTO 4333 


550 GRAPHICS 1+16:P0KE 712,212;P0KE 71 

0,224 _ 

551 ? »6:? tt6;? 116 2? »6;" 

S":? tt6 

552 ? It6;? tt6;" ARMOR CLASS ";KK(L 

,15 

553 ? tt6;" MOVE "; hHC (L , 21 ; "' " 

554 IF MK(L,K3)zKl THEN M$z"l» 

555 IF rflK(L,K3)z54 THEH M$z"5/4" 

556 IF MK(L,K3)z 32 THEN M$z««3/2" 

557 IF l^(L,K33zK2 THEN M$z»2" 

558 IF MK(L,K3)z52 THEN M$z«5/2" 

553 IF M((L,K35zK3 THEN M5 z»3" 

560 IF I«((L,K31zK 4 THEN M$z««4" 

561 ? tt6;" ATTACKS/ROUND ";M$ 

562 IF MK(L,K43zl3 THEK D$z"lD3" 

563 IF MK(L,K4lzl4 THEN D$z»lD4" 

564 IF MK(L,K43zl6 THEH DSz”1D6" 

565 IF r«0((L,K43z27 THEN D$z"lD6 + l" 

566 IF MK(L,K41z28 THEN D$z«*2D4" 

567 IF KK(L,K41z 33 THEN D$z»3D3" 

568 IF MK(L,K41z 212 THEN D$z»«2D6" 

563 IF MK(L,K43z312 THEN D$z««3D4" 

570 IF MK(L,K4)z413 THEN D$z'*3D4 + l" 

571 IF MK(L,K41z416 THEN D$z"4D4" 

572 IF MK(L,K41z 517 THEK D$z'»4D4 + l" 

573 IF MK(L,K43z 520 THEN D$z"5D4" 

574 IF MK(L,K45z 624 THEN D$z"6D4" 

575 IF MK(L,K41z53e THEN D$z"5D6" 

576 IF MK(L,K41z832 THEN D$z"4D8" 

577 ? tt6;" DAMAGE/ATT ACK ";D$ _ 

578 ? It6:? tt6 ; ? tt6 ;" Ai " 

573 ? tt6;" 

580 ? tl6;" HiaH '' 
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599 FOR I=K1 TO 5800‘.NEXT I 

1999 GOTO 4999 

2000 ? "44IF YOU'RE HAVING TROUBLE PIC 
KING":? ”4 NAME FOR YOUR CHARACTER, PE 
RHAPS" 

2085 ? "YOU'D LIKE A FEW SUGGESTIONS. 

II 


2810 ? "YOU'RE WELCOME TO USE ONE OF T 


HESE:" 

2815 ? "liSETH THE HUGE","BUCKTHORN" 

2816 ? "AARON THE SWIFT","ELLIDE" 

2817 ? "BRIAN OF BLACKMOOR'',"JANO" 

2018 ? "ALONSO THE HOOK","TAPHENESE" 

2019 ? "SIR BAGLEY",''BAAREH SATO" 

2020 ? ''44IF YOU WANT ONE OF THESE . JU 
ST":? "TYPE IN THE NAME AND PRESS GHOffl 


33 ." 

2022 ? ''4 IF YOU DON'T, TYPE 'NO* AND P 
RESS":? "(aunns.":? "4NAI«":'.input NS: 
IF NS=''NO" OR NS="N" THEN NS="MHOOZIT" 
2028 GRAPHICS 1:P0KE 788,40:POKE 752,1 


:RETURN 

2550 A=JCK1):6=JCK2):C=JCK33:A1=JCK4): 
B1=JCK5):C1=J<K6);? "N" 

2555 ON Y-Kl GOTO 2600,2580,2638,2650, 

2678,2700 

2576 RETURN 

2580 IF A<K8 THEN ? NS;ZS:? 5TS;BS;" D 
WARE.":GOTO K17 ^ ^ 

2585 IF B1<K6«K2 THEN ? NS;ZS:? CNS;BS 
;" DWARF.":GOTO K17 

2590 IF GS="F'' THEN IF JfK13>K9+K8 THE 
N JCK1)=K10»K7 

2595 IF J(K4)>K9+K8 THEN JCK4)=K9+K8 
2597 IF J(K6J>K8+K8 THEN J(K6}=K8+K8 
2553 RETURN 

2600 IF B<K8 THEN ? N$;Z$:? IN$;B$;"N 
ELF,".•GOTO K17 

2605 IF 01<K7 THEN ? N$;Z$2? DX$;B$;”N 
ELF."-.GOTO K17 ^ ^ 

2610 IF B1<K6 THEN ? N$;Z$:? CNS;B$;”N 
ELF.":GOTO K17 

2615 IF C1<K8 THEN ? N$;Z$;? CH5;B$;"N 
ELF.":GOTO K17 

2620 IF G$=>‘F" THEN IF JCK1)>K8+K8 THE 
N JCK1)=K8+K8 
2625 RETURN 

2630 IF 0<K6 THEN ? N$;ZS:? 5TS;B$;" G 
NOME.":GOTO K17 ^ ^ 

2635 IF B<K7 THEN ? N$;Z$:? IN$;B$;" G 
NONE.":GOTO K17 

2640 IF B1<K8 THEN ? N$;Z$:? CN$;B$;" 
GNOME.":GOTO K17 

2645 IF G$z"F" THEN IF JCK1)>K3^H(5 THE 
N JfKlJ=K3*K5 
2648 RETURN 

2650 IF B<K4 THEN ? N$;Z$:? IN$;B$;" H 
0LF~ELF.":GOTO K17 

2655 IF 01<K6 THEN ? N$;Z$:? DX$;B$;" 
H0LF“ELF.";GOTO K17 

2660 IF B1<K6 THEN ? CN$;B$;" 

H0LF-ELF.":GOTO K17 

2665 IF GS-”F” THEN IF JtKlI>K5+K8 THE 
N J(K1)=K5+K8 
2668 RETURN 

2670 IF 0<K6 THEN ? N$;Z$:? 5T$;B$;" H 
0LFLING.":GOTO K17 ^ ^ 

2675 IF B<K6 THEN ? IN$;B$;" H 

aLFLING.":GOTO K17 
2680 IF 01<K8 THEN ? N$;Z$:? 
H0LFLING.":GOTO K17 

2685 IF B1<K10 THEN ? N$;Z$:? CN$;B$;" 
H0LFLING.":GOTO K17 

2650 IF G$=:"M" THEN IF JCK13>K5+K8 THE 
N JCK1)3K5+K8 

2654 IF G$z"F" THEN IF JCK13>K7+K7 THE 
N JCK13=K7+K7 

2655 IF JCK3)>K5+K8 THEN JtK3J=K5+K8 

2656 RETURN 

2700 IF 0<l(6 THEN ? M$;Z$:? 5T$;B$;" H 

0LF-ORC.":GOTO K17 

2705 IF B1<K6+K7 THEN ? N$;Z$:? 

;" H0LF-ORC.":GOTO K17 
2710 IF J(K2)>K5+K5 THEN JCK23rK5+K8 

2715 IF JfK33>K7+K7 THEN J{K3)=:K7+K7 

2720 IF Jtl<43>K7+K7 THEN JCK4J=K7+K7 


2725 IF JCK6)>K6^K6 THEN JCK6}=K6^X6 
2730 RETURN 

4555 GRAPHICS 1:SETC0L0R 2,L,4:P0KE 75 
2,l:5ETC0L0R 4,L,4:G0T0 160 
5000 A-F(Kl) :B=PCK2) :C::F(K3) :DrFCK4} :E 
=F(K53 :Fi:FCK6J :? "H" 

5005 ON Z GOTO 5100^5200,5300,5400,550 
0,5600,5700,5800,5500,5550 
RFTliQM 

5100 IF A<K5 THEN ? N$;Z$:? 5T$;B$;" F 
IGHTER.":GOTO K241 

5105 IF E<K7 THEN ? NS;Z$:? CN$;B$;" F 
IGHTER.":G0T0 K241 
5110 RETURN 

5200 IF A<K10^K3 THEN ? N$;Z$:? 5T$;B$ 
;" RANGER.":G0T0 K241 

5205 IF B<K104^K3 THEN ? N$;Z$:? IN$;B$ 
;" RANGER,":GOTO K241 

5210 IF C<K10+K4 THEN ? N$;ZS:? WI$;B$ 
RANGER.":GOTO K241 

5215 IF E<K10+K4 THEN ? N$;ZS:? CN$;B$ 
:" RANGER.":GOTO K241 

5228 IF Y~l(3 THEN ? DMS ; "RANGERSGOT 
0 K241 

5225 IF Y-K2 THEN ? ESJ"RANGERSGOTO 
K241 

5230 IF Y=K4 THEN ? GN$;"RANGERS.":GOT 
0 K241 

5235 IF Y=K6 THEN ? HAS,“ "RANGERS GOT 

0 K241 

5240 IF Y-K7 THEN ? HOS;"RANGERS.”:GOT 
0 K241 
5245 RETURN 

5300 IF A<K10fl(2 THEN ? NS;ZS:? STS;BS 
PALADIN.":GOTO K241 
5305 IF B<K5 THEN ? NS;ZS:? INS;BS;" P 
ALADIN.":GOTO K241 

5318 IF C<K10+K3 THEN ? NS;ZS:? MIS;BS 
PALADIN.":GOTO K241 
5315 IF E<K5 THEN ? NS;ZS:? CNS;BS;" P 
ALADIN.":GOTO K241 

5320 IF F<K5+K8 THEN ? NS;Z$:? CHS;BS; 
" PALADIN.":GOTO K241 

5325 IF YOKI THEN ? "ONLY HUMANS CAN 
BE PALADINS.":GOTO K241 
5330 RETURN 

5400 IF C<K5 THEN ? NSjZS:? WI$;B$;" C 
LERIC.":GOTO K241 

5405 IF Y-K6 THEN ? HAS;"CLERICSGOT 
0 K241 
5410 RETURN 

5500 IF C<K10+K2 THEN ? NS;ZS:? HIS;BS 
;" DRUID.":GOTO K241 

5505 IF F<K10+K5 THEN ? NS;ZS:? CHS;BS 
;" DRUID.":G0T0 K241 

5510 IF YrK3 THEN ? DUS;"DRUIDS.":GOTO 
K241 

5515 IF Y-K2 THEN ? ES;"DRUIDS.":GOTO 
K241 

5520 IF Y=K4 THEN ? GNS;"DRUIDS.":GOTO 
K241 

5525 IF y-KZ THEN ? HOS;"DRUIDS.":GOTO 
K241 

5530 RETURN 

5600 IF D<K5 THEN ? NS;ZS:? DXS;BS;" T 
HIEF.":G0T0 K241 
5605 RETURN 

5700 IF A<K10^K2 THEN ? NSjZS:? STS;BS 

;"N ASSASSIN.":GOTO K241 

5705 IF B<K10^K1 THEN ? NSjZS:? INS;BS 

;"N ASSASSIN.": GOTO IC241 

5710 IF D<K10^K2 THEN ? NSjZS:? DXS;BS 

;"N ASSASSIN.”; GOTO IC241 

5720 IF Y=K6 THEN ? HAS;"ASSASSINS.":G 

OTO IC241 

5725 RETURN 

5800 IF B<K5 then ? nS;ZS:? INS;BS;" M 
AGIC“USER.”;GOTO K241 

5805 IF D<K6 THEN ? NS;ZS:? DKS;BS;” M 
AGIC-USER.”;GOTO K241 

5810 IF YrK3 THEN ? DMS;"MAGIC-USERS.” 
:GOTO K241 

5815 IF Y-K4 THEN ? GNS;"MAGIC-USERS." 
;G0T0 K241 

5820 IF Y:iK7 THEN ? HOS; "MAGIC-USERS . “ 
:GOTO K241 
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5825 IF Y=K6 THEN ? HA$J“HOGIC-USERS 
:GOTO K241 
5838 RETURN 

5900 IF B<K18+K5 THEN ? NS;ZS:? IN$;B$ 

;"N ILLUSIONIST.":GOTO K241 

5995 IF l)<Kiei^K6 THEN ? NS;Z$:? DXS;B$ 

;"N ILLUSIONIST.":GOTO K241 

5910 IF V=K3 THEN ? 0M$;"ILLUSIONISTS. 

":GOTO K241 

5915 IF V=K2 THEN ? ES;"ILLUSIONISTS." 
:GOTO K241 

5920 IF V=K7 THEN ? HO$;"ILLUSIONISTS. 
":GOTO K241 

5925 IF Y=K6 THEN ? HAS;"ILLUSIONISTS. 
":GOTO K241 
5938 RETURN 

5950 IF a<K10+K5 THEN ? N$;Z$;? STS;BS 
;" MONK.":GOTO K241 

5955 IF C<K10FK5 THEN ? N$;ZS:? MI$;B$ 
;" MONK.":GOTO K241 

5960 IF D<K10T^K1 THEN ? N$;ZS:? DX$;B$ 
j" MONK.":GOTO K241 

5965 IF E<K10+K1 THEN ? NS;Z$:? CN$;B$ 
;" MONK.":GOTO K241 

5970 IF YOKI then ? "ONLY HUMANS CAN 
BE MONKS.":GOTO K241 
5975 RETURN 

6130 IF Di:18 THEN T (L, Kl> zT CL , KIJ+K10 : 
T CL,K2}-T CL,K2J +15:T CL,K3J =T CL,K3> +K5: 
TCL,K4)“TCL,K4)+10:TCL,K5)rTCL,K53+10 

6131 IF D-K10+K7 THEN TCL,K13=TCL,Kl)+ 
K5:T CL,K2)=T CL,K2)+K10:T CL,K4)=T CL,K43 
♦K5 : T CL , K5J zT CL , K53 +1(5 

6132 IF D:=K16TK6 THEN T CL , K2)-T CL, K2) + 
K5 

6133 IF D::K10+K2 THEN T CL^K4) nT CL,K4)- 
K5 

6134 IF D=Kie+Kl THEN TCL,K1>=TCL,K1)- 
K5;T CL,K3)“T CL,K3J“K5:T CL,K4)=T CL,K4J- 
K10 

6135 IF Y=K3 THEN T CL . K23 :=T CL . K2)+K10 : 
T CL,K3 )-1 CL,K3)+15:T CL,K7J =T CL,K7)-K10 
:TCL,K8)=TCL,K83-K5 

6136 IF Y::K2 THEN T CL, Kl) =T CL ,K13+K5 : T 
CL,K23 zTCL,K 2)-K5:TCL,K4)=TCL,K4)+K5;T 
CL,K53rTCL,K5)+K10:TCL,K6)=TCL,K63+K5 

6137 IF Y-K4 THEN TCL,K23=TCL,K2)+K5:T 
CL,K33::TCL,K3)+Kie:TCL,K43i:TCL,K4)+K5: 
T CL,K5)“T CL,K53 +K5:T CL,K63 zT CL,K63 +10 

6138 IF Y:zK4 THEN T CL, K73-T CL, K7)-'K15 

6139 IF Y=K5 THEN TCL,K13=TCL,Kl)+K10: 
TCL,K53=TCL,K5)+K5 

6140 IF Y=K6 THEN TCL,K13-TCL,Kl)+K5:T 
CL,K23 = TCL,K2>+K5:T CL,K33-TCL,K3)+K5:T 
CL,K43zTCL,K4J+K10 

6141 IF Y-K6 THEN TCL,K53zTCL,K51+K10+ 
K5:TCL,K6)~TCL,6)+K5:TCL,K73zTCL,K7J-K 
10+K5 : T CL , K8 J 3T CL , K8) -"K5 

6142 IF Y=K7 THEN TCL,K13zTCL,Kl)-K5:T 
CL,K23-TCL,K2)+K5:TCL,K3)=TCL,K33+K5 

6143 IF Y::K7 THEN T CL, K63-T CL , K63+K5: T 
CL,K73=TCL,K73+K5:T CL,K8)::T CL,K8J-K10 
6260 RETURN 

7000 AI=INT C2.5*0-161:0M=INT Cl.5*C-161 
:0C=INTC0.5*F-16) 

7061 IF AI<6 THEN 01=0 

7002 IF 0M<O THEN 0N=O 

7003 IF 0C<O THEN 0C=O 

7004 0T=0I+0H+0C 

7005 P5=INTCK13*RMDCK1J+0T+13:IF P5>=K 
13 THEN ? 1162? tt6;" •';N$;” H05»:? It6j" 

P5I0NIC ABILITY" 

7016 0I=B-12:ft«=C-1220C=F-12:IF 0I<O T 
HEN AI=K6 

7011 IF 0M<K0 THEN AM=KO 

7012 IF 0C<K0 THEN 0C=K0 

7013 0T=0I+0M+AC 

7015 HP=K0:OT=K0:IF B>16 THEN 0T=0T+K1 

7020 IF 016 THEN 0T=0T+K1 

7025 IF F>16 THEN 0T=0T+K1 

7030 IF 0T=K2 THEN MP=K2 

7035 IF 0T=K3 THEN MP=K4 

7040 P5T=INT CK13*RND CKl)+K11+0T*MP 

7045 IF P5>=K13 THEN ? "NPSIONIC 0BILI 

TY = ";PST*K2 


7050 IF PS>=K13 THEN ? "P5I0NIC STRENG 
TH = ";P5T:F0R 1=1 TO 20OO:NEXT I 
7055 RETURN 

8000 ERLN=256*PEEK C1871+PEEK C1861 
8010 CUR=PEEKC90):? "N":? "INPUT ERROR 
“ TRY AG0IN!":FOR 1=1 TO 50:S0UND 0, 
I+50,10,8:NEXT I:SOUND 0,6,0,0 
8020 TRAP 8000:GOTO CERLNl 


CHECKSUM DATA 
(See pgs. 7-10) 


5 DATA 400,646,294,906,573,733,840,75, 

164,290,307,670,642,162,878,7580 

75 DATA 779,953,859,964,820,531,652,63 

8,208,981,850,829,789,454,917,11224 

105 DATA 903,725,877,652,209,722,201,7 

01,592,73,764,366,606,497,591,8479 

192 DATA 58,773,366,178,279,815,74,452 

,522,485,817,848,185,465,554,6871 

236 DATA 17,249,288,686,714,379,685,3, 

317,65,53,57,65,49,159,3786 

253 DATA 226,160,424,821,503,736,291,8 

0,10,461,559,78,528,442,207,5526 

316 DATA 446,660,381,382,729,393,386,3 

79,603,93,33,37,41,107,809,5479 

337 DATA 299,54,232,810,475,878,10,256 

,793,350,626,276,254,643,782,6738 

362 DATA 281,735,415,515,209,881,846,1 

72,507,122,333,644,301,424,433,6818 

390 DATA 435,617,205,269,511,269,567,6 

76,691,234,736,733,730,715,605,7993 

432 DATA 984,355,534,141,605,697,631,5 

02,807,705,217,512,468,716,216,8090 

463 DATA 441,2,498,674,716,504,486,653 

,658,959,331,418,835,807,4,7986 

505 DATA 780,272,560,572,448,16,452,84 

0,621,800,806,820,803,813,817,9420 

559 DATA 819,817,582,799,803,810,269,8 

16,822,996,995,48,2,62,997,9637 

574 DATA 10,6,25,452,399,156,871,478,8 

13,773,57,674,653,290,427,6084 

2018 DATA 800,287,536,605,93,285,185,8 

15,280,630,207,394,403,823,421,6764 

2605 DATA 76,45,48,13,811,288,264,342, 

996,819,628,703,674,30,821,6558 

2670 DATA 713,688,778,379,37,22,393,82 

0,698,25,376,379,374,386,805,6873 

4999 DATA 303,943,27,802,770,728,791,8 

26,815.813,815,540.635,527,514,9849 

5240 DATA 534,807,928,742,915,728,81,9 

55,799,880,472,800,951,948,634,11174 

5515 DATA 236,621,637,805,451.815,412, 

399,409,46,820,183,187,80,76,6177 

5820 DATA 73,54,814,924,953,628,256,62 

1.602.817,565,559,554,544,576,8540 

5975 DATA 831,197,387,875,881,473,366, 


480,328,827,796,449,131,857,108,7986 
6200 DATA 795,648,7,79,981,290,152,703 
,56,998,289,913,365,378,102,6756 
7035 DATA 116,555,697,952,806,33,188,2 
50,3597 
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DUNGEONS & DRAGONS 
HOUSEKEEPING 2 


32K Cassette or Disk 
by Bob Curtin 


With the addition of the random access capability 
of a disk drive, Dungeons & Dragons House¬ 
keeping (disk version) comes into its own, with 
several new functions, bilateral combat, and a dras¬ 
tically cleaned-up act. The following is a detailed 
rundown of each of the program functions and, 
where applicable, some suggestions on their use. 
This program is quite flexible and, with a little ima¬ 
gination, can make your job as a Dungeon Master a 
whole lot easier. 

Incidentally, when I use the term ‘^monster,” Pm 
referring to all non player-character creatures, 
whether human, drooling beast, or anything in be¬ 
tween. Players and player-characters are, of course, 
the people for whom you’re running the dungeon, 
and the characters they’re playing. 

I do have one word of caution. If, when you’re 
typing in this program, you’re rewarded with an 
ERROR 4 (too many variables), don’t panic. First, 
find your typing error, change it, and then follow the 
procedure outlined in pages 2 and 3 of your BASIC 
Reference Manual for wiping out excess variable 
names. The reason for the problem in the first place 
is the fact that I’ve used all 128 variable names avail¬ 
able, and if you inadvertently add one of your own, 
you’ll get that error. 

M - MELEE (combat) 

Where the cassette version of D&lD Housekeep¬ 
ing handled the combat for the player characters 
only and left the monster combat to be done man¬ 
ually, the disk version does it all. 

The MELEE function works very closely with the 
ENTER ROOM and LOAD ROOM functions. 
Those two functions make the monster data avail¬ 
able for combat purposes as needed. The player 
character data is always contained in memory, but 
the monster data is loaded as encountered, either 
from disk or on the fly. The computer asks only 
which opponent is to be fought. The players, of 
course, make that choice for themselves, and you as 


the Dungeon Master make that choice for the mon¬ 
sters. As in a normal dungeon, you’d have some sort 
of graphic representation of the battle set up on the 
table top — usually with miniature figures. 

In order, the computer makes the following com¬ 
putations: The attacker’s class and level are looked 
up and the appropriate combat table consulted to 
obtain a 'To hit” number against the opponent’s 
armor class. A random number is generated and any 
hit modifiers added. If a hit is obtained, damage is 
"rolled” based on the weapon used, and then any 
damage modifiers are added on. Hit points lost are 
automatically deducted. The computer then checks 
to see if the attacker is entitled to more than one 
attack this round, either because of weapon type or 
level, and if so, repeats the procedure. Otherwise 
play passes to the next combatant. 

The combat alternates back and forth between the 
players and monsters, that is, all players make their 
attacks, then all monsters make theirs, etc. Killed or 
unconscious combatants are automatically removed 
from the cycle, and combat can be broken off at any 
time, either individually or en masse. 

Each player character may have up to five 
weapons, but weapon number 5 is reserved for mis¬ 
sile weapons. As such, it’s the only weapon modified 
by the R/A Bonus, and conversely not modified by 
normal hit and damage modifiers. Weapon number 
5 may also be assigned multiple hits per round. For 
instance, D&cD rules allow a player with a short bow 
to fire two arrows per combat round. It’s conceiv¬ 
able for a player with multiple rounds of combat to 
fire up to six arrows in a turn! 

By entering '33’ as an opponent number and 
pressing RETURN, spell damage may be inflicted on 
the monster of your choice. If the spell affects more 
than one monster, you can repeat the procedure as 
many times as desired by pressing ‘S’. To pass play to 
the next player, just press any other key. You may 
add hit points to the monster of your choice by en- 
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tering the amount of hit points you wish to add in the 
form of a minus number. For instance, suppose the 
party were fighting a particularly nasty troll which 
regenerated ten hit points a turn. After every turn, 
simply enter the MELEE mode, use the spell func^ 
tion for the first available character, and enter minus 
ten (-10) as the amount of damage inflicted by the 
spell. Ten hit points will be added to the monster 
whose number you designated. After returning to 
the main menu (by entering '32’ and pressing RE¬ 
TURN) you may resume play normally. 

Entering '34’ as an opponent number will take you 
directly into the monster combat. This is useful for 
those times when the bad guys have the initiative. 
Note that, once into monster combat, you may pass 
play onto the next monster by pressing 'P’ or return 
to the main menu by pressing 'R’. The only other 
commands recognized in that mode are the numbers 
0 to 9, corresponding to the player characters’ num¬ 
bers. 

Damage inflicted by non-combat means may be 
entered directly through the character sheet mode, 
which is why I didn’t include a spell function in the 
monster side of the combat. 

A word to the purists out there. D&D combat can 
get as complex as you could possibly want, with in¬ 
numerable modifiers, zone hits, partial armor des¬ 
truction, ad nauseiim. This program definitely does 
not take all that there is in D&D combat rules into 
account. It’d take a program all by itself to do that. 
The basic combat system is retained without modifi¬ 
cation, with the different combat tables for the dif¬ 
ferent classes, hit and damage modifiers, multiple 
attacks, missile attacks, and so on. Those of you 
who’re sticklers for detail and thrive on complexity 
would perhaps be better served by doing your 
combat manually and using the rest of the program 
for housekeeping. 

# ^ CHARACTER SHEET 

From the main menu, pressing a number between 
0 and 9 inclusive will display a character sheet on the 
screen. The sheet contains the essential information 
on each character which is needed as a reference 
throughout the game. 

Hit points, money, and weapon status can be 
changed directly in this mode, and all other informa¬ 
tion can be changed through the initialization mode. 
Additional information can be kept in an individual 
file accessed through the ROOMS function. This 
additional file would contain listings of weapons, 
armor, equipment, special items, magical spells, etc., 
as well as any pertinent information on the character 
itself, like special talents, skills, and so on. 

You may directly enter MELEE, ROOMS, or re¬ 
turn to the main menu by pressing M, Z, or R, res¬ 
pectively. 


S ^ DUNGEON STATUS 

The status display lists the dungeon time, the date, 
weather conditions (outside, of course), tempera¬ 
ture, and wind. The weather conditions are random 
and not subject to control by the DM, although they 
can certainly be ignored if they don’t fit into the 
scheme of things. 

The time and date, on the other hand, can be 
changed. Pressing '1’ will increment the time by ten 
minutes, '2’ by an hour, and '3’ by a day. In addition, 
one minute is added to the time for every combat 
round played. 

Press 'R’ to return to the main menu. 

E - ENTER ROOM 

To explain the ENTER ROOM function, 1 also 
have to explain the LOAD ROOM function at the 
same time. Pressing 'E’ will cause the question, 
"What is the room number?’’ to be displayed on the 
screen. It is asking you which of the files created by 
LOAD ROOM you want to be dumped into mem¬ 
ory. At this point. I’ll explain the LOAD ROOM 
function and come back to ENTER ROOM. 

L - LOAD ROOM is a routine which allows you to 
load monster data into files to be called up later by 
the ENTER ROOM function. This data is used in the 
MELEE function, and is actually all of the monster 
statistics for combat resolution. The data includes 
the number of monsters, hit dice, individual hit 
points, number of attacks, and the damage per at¬ 
tack. 

Pressing L will fetch up the same question: "What 
is the room number?’’ You may enter any 3-character 
code you wish. (This is actually the filename exten¬ 
der for a file called DiCOMBAT.) The code can be 
any combination of three numbers and/or letters, 
but if you were smart, you’d code them to corres¬ 
pond to the room numbers on your dungeon map, or 
the numbered encounter areas in your outdoor dun¬ 
geon. You can use this function to store the statistics 
for taverns full of troublemakers, and you can also 
use it to load statistics on the spot for unexpected or 
random encounters. 

As an example of how these two functions work, 1 
give you the following. Every good Dungeon Master 
has a map of his dungeon and some sort of key to tell 
him what’s in each of the rooms. The rooms are nor¬ 
mally numbered, and the key describes what’s in 
each of the numbered rooms, including traps, mon¬ 
sters, treasure, etc. As the dungeon party explores 
the different rooms, they battle the monsters lurking 
within, with the Dungeon Master taking the monster 
statistics from his key and conducting the combat 
manually. With this program, you’d simply type in 
the room number to load the statistics into memory 
and then use the MELEE function to conduct com¬ 
bat. 
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By loading the monster data into files ahead of 
time, the dungeon runs smoothly and with a mini¬ 
mum of time spent on game mechanics. Your players 
get more actual playing time, and your computer 
does most of the work. 

After you’ve assigned a room number, the LOAD 
ROOM function will then ask, ''How many mon¬ 
sters?” Simply type in the number of monsters in 
that particular room or encounter area. You will then 
be asked for the monsters’ hit dice (equivalent to a 
character’s level). You may not have monsters of 
different levels in the same room. If you insist on it, 
add up the levels and divide by the number of mon¬ 
sters to get an average. It works out pretty close. 
You’ll be asked next for the monster armor class. If 
you have monsters with different armor classes, take 
an average, or do the odd ones by hand. 

Next, give the hit points for each monster. Here, 
you can compensate for averaged armor class or level 
by adding hit points. 

After all of the monsters have been assigned their 
hit points, you’ll be asked the number of attacks per 
turn for each monster (you know, the old claw/claw/ 
bite routine). Again, you must average out the dam¬ 
age for attacks which are different. For instance, if 
the claws did 4 hit points damage and the bite did 8, 
add them together (4 + 4 + 8) and divide by the 
number of attacks (3 in this case), rounding up any 
fractions. 

After you type in the damage per attack, a file will 
automatically be created, and the program will 
return to the main menu. Note that the statistics you 
just entered are still in memory, so you could go right 
to MELEE if you wished. 

Lastly, the maximum number of monsters which 
can be in a single file is thirty. 

D - DICE 

Entering a number of any magnitude, including 
negative numbers, will generate a random number 
between that number and one, inclusive. By enter¬ 
ing anything other than a number, the program will 
return to the command menu. 

FILE DATA and GET DATA 

Pressing 'F’ or 'G’ will conjure up the respective 
routines for saving or retrieving the character statis¬ 
tics and dungeon status data stored in memory. I 
made this a two-step process so that, if either letter is 
pressed accidentally, you have a chance to override 
the command. 'Y’ will initiate the command, and 'N’ 
will override and return the program to the 
command menu. 

To file data, type in any legal filename, but without 
the device call. In other words, if you wanted your 
filename to be "DiMURRAY. 123”, simply type 
MURRAY. 123. 

If, when retrieving data, you call for a non-existent 
file, the program will list the files on the disk in the 


disk drive and then return to the command menu. 

To get data, follow the same procedure as filing 
data. 

I - INITIALIZATION 

This mode is used to initially enter the player char¬ 
acter statistics, change statistics, or add new player 
characters. Note that, before any data is entered, the 
player number must be specified. Once you’ve iden¬ 
tified a particular player, you may enter any number 
of statistics. If you want to enter data for another 
player, you must re-identify him. 

Most of the entries are self-explanatory, but a few 
need some words of clarification. 

As I stated before, each character may have a maxi¬ 
mum of five weapons in this program, and each 
weapon must be assigned a number. Weapons one 
through four are hand held weapons, and the 
number you’ll be asked to enter is the maximum 
possible damage that the weapon can inflict. For in¬ 
stance, player 2’s number one weapon is a longsword 
capable of 1-8 hit points of damage. You’d simply 
enter an 8 when called upon to do so. If no weapon 
exists for a particular number, enter 0. 

The number of attacks per round must be entered 
as follows. Enter 1 for one attack per round. Enter 2 
for two attacks per round. Enter 3 for three attacks 
every two rounds. 

Finally, enter exceptional strength bonuses in the 
form of a decimal (18/77 would be entered as 
18.77). 

ROOMS and WRITE 

The biggest headache in running a dungeon is or¬ 
ganizing the maps, room descriptions, character 
sheets, combat tables, reference books, index cards, 
notes and dice into a system where information can 
be looked up and processed quickly enough to keep 
the game from bogging down. It isn’t easy or even 
always possible. This part of the program can help, 
though, by eliminating the need for a lot of that 
paperwork. 

The WRITE function allows you to write room 
descriptions, non-player character sheets, artifact or 
treasure descriptions, or virtually anything you 
want, and save it on disk. You’d code the files with 
the same 3-digit code used for the LOAD ROOM 
files, except this filename extender belongs to a file 
named D: WITCHES. The reason for the different 
filenames is so that you could have a room descrip¬ 
tion and a monster data file with the same code num¬ 
ber. The intent of this feature was to enable a Dun¬ 
geon Master to type his room descriptions and save 
them on disk. At the same time, any monsters in 
those rooms would have data files created for them 
with the same room numbers. The DM would then 
only have to type 'Z’ and a room number to see what 
was in the room, and, if combat was likely, to call up 
the monster data file through the ENTER ROOM 
function to resolve it. 
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You’re not limited to a single screen of text, either. 
You can write up to 300 lines of text, or roughly thir- 
teen screens on a single file. When the file is called 
hack, only one screen at a time will be displayed; 
pressing any key will display subsequent lines. 

To use the WRITE function, type in a code num^ 
ber. A data file will be created. The screen will clear, 
except for a question mark, which is actually an 
input prompt. Simply enter one line at a time, press^ 
ing RETURN at the end of the line. If you want to 
leave blank lines, just press RETURN. When you’ve 
finished and want to file it, press RETURN, type one 
asterisk (*), and press RETURN again. 

To retrieve what you’ve written, press *Z’ ^ 
ROOMS and type the same code number. What 
you’d written will be displayed on the screen. 

The applications for this particular function are 
many and varied. For example, you could possibly 
use the keyboard graphics symbols to create room 
diagrams along with the descriptions. Use your 
imagination, experiment with it, and above all prac¬ 
tice using it until the commands become second 
nature. I think you’ll find that the speed and accur¬ 
acy are well worth the effort. □ 


Program outline. 

Lines 4-24 — Initialization 
Lines 25-75 — Combat tables 
Lines 80-86 — More Initialization 
Lines 89-98 — Input number of players 
Lines 100-550 — Combat routine, combat 
table adjustment & multiple attacks routine 
Lines 1000-2050 — Race input and display 
Lines 3000-3030 — Save character data 
Lines 3500-3525 — Retrieve character 
data 

Lines 4000-6045 — Store character data 
(Initialization Mode) 

Lines 6200-6900 — Monster Combat 
Lines 6905-6915 — ENTER ROOM rou¬ 
tine 

Lines 7000-7175 — Weather, time, date, 
etc. routines 

Lines 7500-7600 — ROOMS routine 
Lines 8050-8075 — DICE routine 
Lines 8500-8590 — WRITE routine 
Lines 9000-9019 — Main Command Menu 
Lines 9505-10065 — Character Sheet dis¬ 
play and input 

Lines 15000-15040 — LOAD ROOM rou¬ 
tine 

Lines 20000-20005 — Input Error Han¬ 
dler 

Lines 30000-30055 — Disk directory 
lister 


Command table. 


MODE 

COMMAND 

RESULT 


0 to 29 

Indicates the number of the player 
character’s opponent in combat 

MELEE 

31 

Pass play to next player 


32 

Return to main menu 


33 

Activate the Spell Function (‘S’ to 
repeat) 


34 

Go directly to monster combat 

Monster 

‘N’ 

Return to main menu 

Combat? 

‘Y’ 

Go to monster combat 


• p. 

Pass play to next monster 


•R’ 

Return to main menu 


0 to 9 

Indicates the monster’s opponent 
in combat 


0 to 9 

Displays the indicated player’s 
statistics 

CHARACTER 

•W’ 

Prepare/put away weapon. 0 - put 

SHEET 


away weapon. 1 to 5 - weapon num¬ 
ber prepared 


‘H’ 

Change Hit Points 


‘G’ 

Change Gold Pieces 


‘S’ 

Change Silver Pieces 


‘C’ 

Change Copper Pieces 


‘E’ 

Change Electrum Pieces 


‘P’ 

Change Platinum Pieces 


‘Z’ 

Go to ROOMS function 


‘M’ 

Go to MELEE function 


■R’ 

Return to Main Menu 


1 

Increments minutes by ten 

DUNGEON 

2 

Increments hours by one 

STATUS 

3 

Increments days by one 


‘R’ 

Return to Main Menu 


XXX 

Any three-character alphanumeric 

ENTER 


code calls up and loads the mon¬ 

ROOM 


ster combat statistics filed under 
that code by the LOAD ROOM 
function (filename: “D:COMBAT. 
XXX) 

DICE 

Any number 

Generates a random number be¬ 
tween 1 and the number entered. 
Will accept negative numbers. 


Any letter 

Return to main menu 

FILE 

Any legal filename 

Files player character statistics and 

DATA 


Dungeon Status data under given 
filename (see text for details) 

GET 

Any legal filename 

Retrieves player character statis¬ 

DATA 


tics and the Dungeon Status Data 
filed under the given filename (see 
text for details) 

INITIALIZATION 


Stores statistics in memory per the 
listed items. Note that the player 
number must bespecififed first, be¬ 
fore any other data is entered. 

LOAD ROOM 

XXX 

See ENTER ROOM and text 

WRITE 

XXX 

Allows you to type up to thirteen 
screens full of text and save it to 
disk under a three-character alpha¬ 
numeric code (filename: 
"D:WITCHES.XXX) 

ROOMS 

XXX 

Allows you to retrieve the text filed 


under the given code by the WRITE 
function 
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4 GRAPHICS l:P0SITI0H 4,12;P0KE 709,0: 
POKE 710,0;? lt6;"PLEA5E Mi>rT**;TRftP 200 
00 

10 DIH CT(20,18),OSCiO),B$(105,C$C10), 
D$(10),E$(10),F$C10),G$C10),H$(10),J$( 
10) ,K$C10) , Y$C3) ,0C(10) ,L (10) ,HPC10) 

15 DIM GPCIO),5P(10),CP(10),PP(10),EP( 
10),HM(ie),DM(10),R0(10),5T(10),WD(10, 
5) ,C(10) ,TC3) , AZS(15) ,SB(10) 

16 DIM ACA(IO),M(10),AL$(2),M0N(40) 

20 DIM CMD$(125),IH(10),WI(10),DK(10), 
CNdO) ,CH(10) ,N$(2) .T$(5) ,R$(5) . AA$ (2) 
,BB$(2),CC$(2),DD$(2),EE$(2),FF$(2) 

22 DIM GG$(2),HH$(2),JJ$(2),KK$(2),HUM 
$C5),AM$(2),CL$(15),RASC10),GE$(7),GE( 
10),HE(10,2),ME(10),ATT(10),ATT1(10) 

23 AM$r"AM":T(1)=0:T(2)=0:AZ$=”D;" 

24 DIM GA$(12),GB$(12),GC$(12),GD$(12) 
,GL$(12),GF$(12),GH$(12),GI$(12),GJ$C1 
2),GK$(12),MT(20,16) 

25 FOR Ezl TO 18:F0R K-20 TO 1 STEP -1 
:READ H:CT(K,E)rN;HEXT K:HEKT E;AC1=AC 
T9 

26 FOR Ezl TO 16;F0R X-20 TO 1 STEP ~1 
:READ N:MT(X,E)=N;NEXT XrNEKT E 

30 DATA 10,11,12,13,14,15,16,17,18,19, 

20,20,20,20,20,20,21,22,23,24,10,11,12 

,13,14,15,16,17,18,19,20,20,20,20,20 

35 DATA 20,21,22,23,24,8,9,10,11,12,13 

,14,15,16,17,18,19,20,20,20,20,20,20,2 

1,22,8,9,10,11,12,13,14,15,16,17,18 

40 DATA 19,20,20,20,20,20,20,21,22,6,7 

,8,9,10,11,12,13,14,15,16,17,18,19,20, 

20,20,20,20,20,6,7,8,9,10,11,12,13,14 

45 DATA 15,16,17,18,19,20,20,20,20,20, 

20.4.5.6.7.8.9.10.11.12.13.14.15.16.17 
,18,19,20,20,20,20,4,5,6,7,8,9,10,11 
50 DATA 12,13,14,15,16,17,18,19,20,20, 

20.20.2.3.4.5.6.7.8.9.10.11.12.13.14.1 
5,16,17,18,18,20,20,2,3,4,5,6,7,8,9 

55 DATA 10,11,12,13,14,15,16,17,18,19, 

20,20,0,1,2,3,4,5,6,7,8,9,10,11,12,13, 

14,15,16,17,18,19,0,1,2,3,4,5,6,7,8 

60 DATA 9,10,11,12,13,14,15,16,17,18,1 

9,-2,-1,0,1,2,3,4,5,6,7,8,9,10,11,12,1 

3,14,15,16,17,-2,-1,0,1,2,3,4,5,6,7 

65 DATA 8,9,10,11,12,13,14,15,16,17,-4 
,-3,-2,-1,0,1,2,3,4,5,6,7,8,9,10,11,12 
,13,14,15,-4,-3,-2,-1,0,1,2,3,4,5,6,7 

66 DATA 8,9,10,11,12,13,14,15,-6,-5,-4 
/-3,-2,-1,0,1,2,3,4,5,6,7,8,9,10,11,12 
,13,-6,-5,-4,-3,-2,-1,0,1,2,3,4,5,6 

67 DATA 7,8,9,10,11.12,13,10,11,12,13, 
14,15,16,17,18,19,20,20,20,20,20,20,21 
,22,23,24,9,10,11,12,13,14,15,16,17 

68 DATA 18,19,20,20,20,20,20,20,21,22, 

23.8.9.10.11.12.13.14.15.16.17.18.19.2 
0,20,20,20,20,20,21,22,7,8,9,10,11,12 

69 DATA 13,14,15,16,17,18,19,20,20,20, 
20,20,20,21,6,7,8,9,10,11,12,13,14,15, 

16.17.18.19.20.20.20.20.20.20 

70 DATA 5,6,7,8,9,10,11,12,13,14,15,16 
,17,18,19,20,20,20,20,20,3,4,5,6,7,8,9 
,10,11,12,13,14,15,16,17,18,19,20,20 

71 DATA 20,3,4,5,6,7,8,9,10,11,12,13,1 
4,15,16,17,18,19,20,20,20,3,4,5,6,7.8, 

9.10.11.12.13.14.15.16.17.18.19.20.20 

72 DATA 20,2,3,4,5,6,7,8,9,10,11,12,13 
,14,15,16,17,18,19,20,20,0,1,2,3,4,5,6 
,7,8,9,10,11,12,13,14,15,16,17,18,19 

73 DATA 0,1,2,3,4,5,6,7,8,9,10,11,12,1 
3,14,15,16,17,18,19,-1,0,1,2,3,4,5,6,7 
,8,9,10,11,12,13,14,15,16,17,18 

74 DATA -1,0,1,2,3,4,5,6,7,8,9,10,11,1 
2,13,14,15,16,17,18,-2,-1,0,1,2,3,4,5, 

6.7.8.9.10.11.12.13.14.15.16.17 

75 DATA -3,-2,-1,0,1,2,3,4,5,6,7,8,9,1 
0,11,12,13,14,15,16 

80 Al=l:AO-Al-Al:A2=A1+A1:A3=A2+A1:A4= 
A3+A1:A5ZA3TA2:A6=A5+A1;A7-A5TA2:A8-A4 
TA4:A9=A5TA4:A10=A5TA5:A11=A6TA5 

85 A12::A2*A6 ; A13rA6 + A7 : A14zA2*A7 ; A15-A 
3*A5:A16=A2*A8;A17-A9+A0;A18=A3*A6;A19 
rAlO+A9:A20=AlO^tA2;GRAPHICS 0 

86 POKE 82,2 

89 TRAP 89:P0KE 712,128:P0KF 710,128;P 
OKE 752, Al;'^ ‘*Pi*';POSTTIOH 11.12.:? "THO 
N MANY PLAYERS"; -.INPUT NUM: NUM=NUM-A1 


95 IF NUM>=AO THEN IF NUM<A16 THEN 906 
0 

98 GOTO 89 

100 CMD$r5TR$(P):CMD$(1,1)=CHR$(ASC(CM 
D$(l,l))+128) 

105 RETURN 

110 IF J=:34 THEN 6200 
112 RETURN 

150 ? "N"*:FOR P-AO TO NUM;? :POKE 710, 
SOrPOKE 7O9,60:POKE 712,50;G0SUB lOO 

151 IF HP(P)< rAO THEN IF HP(P)>-A10 TH 

EN ? "aOiESEBi*‘;CMD$;" IS UNCONSCIOUS": 
? :GOTO 310 _ 

152 IF HP(P)<-A9 THEN ? " fJTO'Ha ": CMD$ 
;" HAS BEEN KILLED.":? :GOTO 310 

153 ? ,," 31 r PASS":? ,," 32 z 

RETURN";? ,," 33 r SPELL":? ,," 

34 = MONSTER" 

154 IF W(P)z5 THEN FOR CMD“1 TO SB(P) 

155 TRAP 20000:? J " : CMD$ : " « S OP 

PONENT"; .-INPUT J ; TRAP 40000 : 0=:A0 : IF J- 
31 THEN 310 

156 GOSUB 110:IF J=:32 THEN 9000 

157 IF J-33 THEN ? "HOM MANY HP DAMAGE 
";;INPUT «;? "AGAINST MHICH MONSTER";: 
INPUT E;M0N(E+4)rH0N{E+4)-K:G0T0 159 

158 GOTO 161 _ 

159 ? "TO REPEAT gJWll . PRESS ‘S'": 
Ji:E:OPEN ttl,4,0,"K:":GET ttl,K: CLOSE ttl 
:IF X=83 THEN ? :J:;33:G0T0 157 

160 GOTO 310 

161 AC~M0N(3):IF AC<=:A10 THEN IF AC>=- 
A9 THEN 0rA5 

162 IF J<0 OR J>M0N(1)-1 THEN ? "0 - " 
;MON(l)-l:". TRY AGAIN.":? ;GOTO 154 

164 IF 0<>A5 THEN ? "CTRY AGAIN.";? :F 
OR I=A1 TO 5O0:NEKT I:? "N";GOTO 154 

165 IF M(P)=AO THEN ? "PLAYER ";P;" DO 
ESN-T HAUE A WEAPON READY":? "MEAPON"; 
:INPUT W:IF M<AO OR W>A5 THEN 165 

166 IF W(P)=:0 THEN W(P)=W;GOTO 310 
200 IF C(P)=A1 OR C(P)zA 2 OR C(P)=A3 T 
HEN ACl=AC+10:H:iCT(ACl,L(P)) :GOTO 300 

205 IF C(P)rA7 OR C(P):iA8 THEN 219 

206 IF C(P)rA9 OR C(P)-A10 THEN 229 

210 IF L(P)rA3 OR L(P):iA4 OR L(P)rA5 T 
HEN D=-l 

211 IF L(P)-A6 OR L(P)::A7 OR L(P)=A8 T 
HEN D=-A2 

212 IF L(P)-A9 OR L(P)=A10 OR L(P)=:11 
THEN D=-A3 

213 IF L(P)i:12 OR L(P)=13 OR L(P)rl4 T 
HEN D=-A4 

214 IF L(P)i:15 OR L(P)=16 OR L(P)=17 T 
HEN Dn-AB 

215 IF L(P)i:18 THEN D::-A6 

216 AC1=AC + 10:D1-L(P)+D:H-CT(AC1,D1) ;G 
OTO 300 

219 IF L(P)<A3 THEN D=AO 

220 IF L(P)z:A3 OR L(P)-A4 OR L(P)3A5 0 
R L(P)rA6 THEN Dz-A2 

221 IF L(P)=A7 OR L(P)::A8 OR L(P)rA9 0 
R L(P)=A10 THEN Dr-A4 

222 IF L(P)=11 OR L(P)-12 OR L(P)::13 0 
R L(P)=14 THEN D=-A6 

223 IF L(P)rl5 OR L(P)=16 OR L(P)=17 0 
R L(P)-ie THEN D--A8 

224 D1=L(P)+D: ACl:iAC+Aie;Hi:CT(ACl,Dl) : 
FOR EzAl TO A8:IF Dlz:E THEN H = H + A1 

225 NEXT E:GOTO 300 

229 IF L(P)<A3 THEN D=A0 

230 IF L(P)=A3 THEN D=-A1 

231 IF L (P):iA4 OR L (P) =A5 OR L(P)=A6 0 

R L(P):iA7 THEN D=:-A3 

232 IF L(P):iA8 OR L(P)-A9 THEN Di:-A4 

233 IF L(P)=A10 OR L(P)::11 OR L(P)=12 
THEN D=-A6 

234 IF L(P)=13 OR L(P)=14 THEN D--A8 

235 IF L(P)=15 OR L(P)=16 OR L(P)=17 T 

HEN D=-A9 

236 IF L(P)::18 THEN D = -A10 

237 Dl=L(P)+D:AClrACTA10:H=CT(ACl,Dl); 
FOR E=A1 TO A10:IF D1=E THEN H=H+A1 

238 NEXT E:FOR E = 16 TO 18;IF Dl:iE THEN 
H=H+A1 

239 NEXT E 
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see SUING=INTC2e«RNDC01)+01)+HH(P):IF 
MtP)=5 THEN 5MING=5MING-HHCP}:SMZNG=SM 
INGtRACP) 

301 ? "Hz'UH:? "SH1NG=";SMING 

302 IF SHING>=H THEN DAM=INTCMDCP,W(P) 
)«RND(01)1^A1}+DMCP] :IF MCPJ=5 THEN DAM 
=DAM-OMCP> 

305 IF SHING>=H THEN ? "A HIT!";? "DAM 
AGE=";DAM;" HIT POINTS" 

306 IF 5HING>=H THEN MON(JT4)=MONtJ+4) 
-DAM;IF M0N(JT4]<=e THEN ? "YOU'VE KIL 
LED IT! !" 

307 IF W(P)=5 THEN NEXT CMD 

308 IF ATT1CP)=0 THEN 550 

309 IF ATT1(PJ>0 THEN 500 

310 NEXT P:TCA2J=T(A2J+A1 

312 ? :? "PRESS ANY KEY TO CONTINUE":0 
PEN »1,4.0,"K:":GET #1,E:CL0SE ttl;IF E 
>=0 THEN 6200 

500 IF ATTfP)=2 THEN ATTl(PJ=0:GOTO 15 
1 

503 IF ATT1CPJ=2 THEN ATTltPJ=8 :GOTO 1 
51 

505 IF ATT1CP)=3 THEN ATTlCPJ=2:GOTO 3 
10 

550 ATT1CP)=ATT(PJ:GOTO 310 

1000 ON P+Al GOTO 1085,1010,1015,1020, 

1025,1030,1035,1040,1045,1050 

1005 INPUT GA$:RETURN 

1018 INPUT GB$:RETURN 

1015 INPUT GC$:RETURN 

1020 INPUT GD$:RETIJRN 

1025 INPUT GL$:RETURN 

1030 INPUT GF5:RETURN 

1035 INPUT GH5:RETURN 

1040 INPUT GI5:RETURN 

1045 INPUT GJ$:RETURN 

1050 INPUT GK$:RETURN 

2000 ON P+1 GOTO 2005,2810,2015,2020,2 

825,2830,2835,2840,2045,2050 

2005 ? "tlM ";GA$:RETURN 

2010 ? ";GB5:RETURN 

2015 ? "JGCS:RETURN 

2020 ? ";GD$:RETURN 

2025 ? ";GL$:RETURN 

2030 ? "jGFSiRETURN 

2035 ? "+>>► ";GH$:RETURN 

2040 ? ";GIS:RETURN 

2045 ? ";GJ$:RETURN 

2050 ? ";GK$;RETURN 

3000 ? "5";POSITION 8,11:? "Q lHOi 
13SH00": POSITION 8,12:? " ARE YOU SUR 
E?":OPEN ltl,4,0,"K:";GET ltl,J:CLOSE Itl 

3001 IF J=89 THEN TRAP 3004:GOTO 3004 

3002 IF J=78 THEN 9080 

3003 GOTO 3000 

3004 TS=CHRSC155);? "5":POSITION A8,ll 
:? "13«1AT IS THE NAME OF THE": POSITION 

8,12;? "DATA FILE";:INPUT CMDS 

3005 TRAP 3004:AZ5="D:":AZSC3,3+LENCCM 
D$)>=CMDS 

3007 OPEN Hl,8,e,AZ$:FOR J=A1 TO 128:P 
UT ttl,0:NEXT J 

3010 FOR E=A0 TO NUN;PRINT «1;AC(EJ;TS 
;C^CE) ;T$jHPCEJ ;TS;HM1E) ;TS;DM(EJ ;TS;RA 

3012 PRINT ltl;ACACE3 ;T$;SBCEJ ;TS;LCEJ ; 
T$;5TCE1;TS;INCE);TS;MICEJ;TS;DKtE) 

3015 PRINT ttl;MCE3:TS;GPCEJ:TSjSPtE);T 
$;CPCE);TS;PPCE);T5;EPtEJ;TS;CNCEJ 

3016 PRINT »l:CHtE3;TS;ATTtEJ;TS;WECE) 
;TS;HEtE,0);TS;HECE.13;T$;GE(E) :NEXT E 

3017 PRINT ttl:AAS;T5:BBS;T$;CC5:TS;DDS 
;TS;EES;TS;FFi;TS;GGi 

3018 PRINT ItljHHSjTS;JJS;TS;KKS:T$:AS; 
TS;B$;TS;CS;TS;DS;TS;ES;TS;FS;TS;G5 

3020 PRINT «1;HS;TS;J5;TS;KS;T$;Z;TS;M 
;TS;TC1J 

3021 PRINT HI;Tt2J:PRINT ttlJAMS;T$;Y 

3022 FOR J=A1 TO A5:F0R E=A0 TO NUM:PR 

INT tti;i«>CE,J) :next e:next j 

3025 PRINT »l:GAS;TS:GBS;TS:GCS;T$:GDS 

;TS|GLS;TS;GFS;TS;GHS;TS;GIS;t$;GJS;TS 

3030 CLOSE Hi:END 

3588 ? "N":P05ITI0N 8,11:? "Q 1119 
aiCH":POSITION 8,12;? " ARE YOU SUR 
E?":OPEN ttl,4,0,"K:":GET »1,J:CL0SE HI 


3501 IF J=89 THEN 3505 

3502 IF J=78 THEN 9008 

3503 GOTO 3580 

3505 CLOSE H3:TRAP 38000;? "5":P0SITI0 


N A8,ll;? "MHAT IS THE NAME OF THE":P0 
SITION A8,12;? "DATA FILE";:IHPUT CMDS 

3506 AZS="D;";AZS13,3+LEN fCMDSj J =CMOS: 
XIO 3,H3,4,0,AZS:F0R J=A1 TO 128:GET tt 
3 R:NEXT j 

3507 FOR E=AO TO NUM:INPUT «3,J;AC(EJ= 
J:INPUT 1*3,J:CCEJ=J:INPUT »3,J:HP1EJ=J 
:INPUT H3,J:HMCE}=J:INPUT tt3,J:DM(E)=J 

3508 INPUT 1*3,J:RAtEJ =J:INPUT tt3,J;ACA 
tEJ=J:INPUT «3,J:SB(E>=J;IHPUT a3,J;L( 
E)=J;INPUT H3,J;5TCE>=J 

3509 INPUT tt3,J:INCEJ=J;INPUT a3,J:WIC 
E)=J:INPUT H3,J:DX(E)=J:INPUT tt3,J:W(E 
J=J:INPUT tt3,J:GP(E>=J 

3511 INPUT tt3,J:5P1EJ=J;INPUT »3,J:CPC 
EJ=J;INPUT tt3,J:PPtEJ=J;INPUT «3,J:EPt 
EJ=J:INPUT 113, J;CN{E)=J 

3512 INPUT US,J:CH(EJ=J:INPUT «3,J:ATT 
CE)=J; INPUT 113, J;l>E(E) =J: INPUT 113, J: HE 
CE,OJ=J:INPUT 113, J;HECE,1J=J 

3514 INPUT 113,J;GECEJ =J:NEXT E 


3516 INPUT «3;AAS.BBS,CCS,DOS,EES,FFS, 
GGS.HHS,JJS,KKS,AS,BS,CS,DS,eI.F$,GS,H 
S,JS,KS,Z,M,T:Ttl3=T 


3517 INPUT 113;K:T(2J=K:INPUT 113;AMS,Y 
3520 FOR J=1 TO 5;F0R E=0 TO NUM:INPUT 


113;MD:HDCE, J)=UD:NEXT E:NEXT J 
3522 INPUT 113;GAS,GBS,GCS,GDS,GLS,GFS, 
GHS,GIS,GJS,GKS 


3525 CLOSE 113: FOR E=0 TO NUM: ATTl (EJ =A 


TT(EJ:NEXT E:GOTO 9000 


4000 ? "5A PLAYER NUMBER"," L GENDER": 
? "B PLAYER HAFC","M HEIGHT":? "C CLAS 
^11 11 ■■ nil I4EIGHT" 

4018 ?'"D ALIGNMENT","0 LEVEL":? "E ST 
RENGTH","P ARMOR CLASS":? "F INTELLIGE 
MCE","Q HIT MODIFIER" 

4820 ? "G WISDOM"," ","R DAM MODIFIER" 
;? "H DEXTERITY","S AC ADJUSTMENT":? " 
I CONSTITUTION","T R/A BONUS" 

4030 ? "J CHARISMA","U ATTACKS/ROUND": 
? "K RACE"," ","V WEAPON":? " ",,"H MO 
NTH" 


4035 ? ,,"X YEAR";? "4Y RETURN TO MENU 


4100 POSITION 3,17:? "HEADING?": OPEN It 
3,4.0,"K:" :GET lt3,J:CL0SE 113:IF J<65 0 
R J>89 THEN 4100 

4105 POSITION 22,18 

4106 ON J-64 GOTO 4110,4115,4120,4125, 
4130,4135,4140,4145,4150,4155,4160,416 
5,4170,4175,4180,4185,4190,4195,4200 

4107 ON J-83 GOTO 4285,4210,4215,4285, 
4290,4295 

4108 GOTO 4000 

4110 ? "+PLAYER NUMBER";:INPUT P 

4112 IF P<A0 OR P>A9 THEN ? "fO TO 9, 
PLEASE - TRY AGAIN":FOR E=A1 TO 050:HE 
XT E:? "+":? :G0T0 4110 

4113 IF P>NUM THEN NUM=P 

4114 GOTO 4000 

4115 ? "fPLAYER NAME";:ON P+Al GOSUB 6 
000,6005,6010,6015,6828,6025,6030,6035 
,6040,6045:G0T0 4000 

4120 ? "fCLASS";:GOSUB 5500:G0T0 4000 
4125 ? "+ALIGNMENT";;INPUT ALS:GOSUB 5 
000:G0T0 4000 

4130 ? "+5TRENGTH";:INPUT E:STCP1=E:60 
TO 4000 

4135 ? "+IHTELLIGENCE";:INPUT E;IN(P)= 
E:GOTO 4000 

4140 ? "tWISDOM";:INPUT E:WI(P3=E:GOTO 
4080 

4145 ? "+OEXTERITY";:INPUT E;DX(PJ=E:G 
OTO 4000 

4150 ? "+C0N5TITUTI0N";:INPUT E:CNtPJz 
E:G0T0 4000 

4155 ? "+CHARISMA";:INPUT E:CHtPJ=E:GO 
TO 4000 

4160 ? "tRACE";;G05UB 1000:G0T0 4080 
4165 ? "+GENDER";:INPUT GES;IF GES="M" 
OH GES="MALE" then GE1PJ=1:G0T0 4000 
4167 IF GES="F" OR GES="FEMALE" THEN G 
EtP)=2:G0T0 4800 

4170 ? "+HEIGHT (FEET3";:INPUT J:HE(P, 
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O) =J:P0SITI0N 25,19:? CINCHES)INP 
UT J:HEtP,l)rJ:GOTO 4800 

4175 ? "fWEIGHT";:INPUT J:WE(P)-J:GOTO 
4000 

4180 ? "tLEUEL"; rINPUT E ; L (P) :=E : GOTO 4 
000 

4185 ? "fORMOP GLOSS'* J ; INPUT E:OC(P)=E 
:GOTO 4000 

4150 ? "fHIT MODIFIER"; : INPUT E:HM(P):: 
E;GOTO 4000 

4155 ? "fDOMOGE MODIFIER'*INPUT E:DM( 

P) =E;GOTO 4000 

4200 ? "fOC ADJUSTMENT'*; ;INPUT ErOCOCP 
)=E:GOTO 4000 

4205 ? "fR/0 BONUS";JINPUT E:ROCP)=E:G 
OTO 4000 

4210 ? "tOTTOCKS/TURN";:INPUT EsOTTCP) 
=E:GOTO 4000 

4215 ? "tWEOPON DAMAGE**:? "455WEAP0N U 
1";:INPUT E:WDCP,A1)=E:? "55WEAP0N tt2** 
; -.INPUT E:WD(P, A2)::E 

4270 ? "54WEAP0N lt3";;INPUT E:NDCP,A3) 
zE:'> " WEAPON tt4";:INPUT E:WDCP,A4)-E 
4280 ? " WEAPON tt5";:INPUT E;I«)CP,A5) 
= E:? '*NUMBER OF HITS PER ROUND"*INPUT 
E:SB(P)=E:GOTO 4000 
4285 ? "tMONTH";:INPUT M:GOTO 4000 
4250 ? "tVEAR";;INPUT Y:GOTO 4000 
4255 GOTO 5000 
5000 IF P3A0 THEN AA$:iAL$ 

5002 IF PzAl THEN BB$-AL$ 

5004 IF P=A2 THEN CC$=AL$ 

5006 IF P=A3 THEN DD$=AL$ 

5008 IF P=A4 THEN EES=AL$ 

5010 IF PrA5 THEN FF$=AL$ 

5012 IF P=A6 THEN GG$=AL$ 

5014 IF PrA7 THEN HHS^ALS 
5016 IF PrA8 THEN JJS-AL$ 

5018 IF PZA5 THEN KK$=AL$ 

5020 RETURN 

5500 INPUT CL$;IF CL$ = **FIGHTER" OR CL$ 
i:"F'* THEN C(P)=A1 

5505 IF CL$r:'*RANGER" OR CL$=**R" THEN C 
CP)rA2 

5510 IF CL$::"PALADIN" OR CLS = "P" THEN 
CCP)=A3 

5515 IF CL$::'*CLERIC" OR CL$-'*C" THEN C 
fP)rA4 

5520 IF CL$z'*DRUID" OR CL$-"D" THEN CC 
P)i:A5 

5525 IF CL$ = '*MONK" OR CL$::'*M'* THEN C CP 
)=A6 

5530 IF CL$-**THIEF'* OR CL$r"T" THEN CC 
P)rA7 

5540 IF CL$ = '*ASSASSIN" OR CL$z"A** THEN 
CCP)rA8 

5545 IF CL$="MAGIC“USER" OR Cl$r"MU" 0 

R CL$ = **MAGIC USER" THEN CCP)=A5 

5550 IF CL$r"lLLUSIONIST'* OR CL$="I" T 

HEN CCP)r:A10 

5555 RETURN 

6000 INPUT A$:RETURN 

6005 INPUT B$:RETURN 

6010 INPUT C$:RETURN 

6015 INPUT D$:RETURN 

6020 INPUT E$:RETURN 

6025 INPUT F$:RETURN 

6030 INPUT G$:RETURK 

6035 INPUT H$:RETURN 

6040 INPUT J$:RETURN 

6045 INPUT K$:RETURN 

6200 ? "N":POSITION 12,12:? "MONSTER C 
OMBAT?":OPEN til , 4,0 , "K : " : GET tll,J;CLOS 
E 111 ; IF J=78 THEN 5000 

6201 IF Jr85 THEN 6210 
6203 GOTO 6200 

6210 FOR E-O TO MON Cl)-1:? :IF MONCE + 4 
)<::0 THEN ? •*[IljEBna3" J F;'* HAS BEEN KIL 

LED":? :? -.GOTO 6500 _ 

6212 FOR Krl TO M0NC35);? " firilTHrai ";E 
;"*S OPPONENT'*;OPEN 113,4,0, "K :'*: GET 113 
,J:Ci OSE 113: IF J=80 THEN 6500 
6215 IF J=82 THEN 5000 
6218 IF J<48 OR J>5? THEN 6212 
6220 IF UALCCHR$CJ))>NUM THEN 6212 
6225 P=UALCCHR$CJ)) ; SWING:iINT C20*RND CA 
1)+A1) CACCP)+10,MONC2)) 


6227 IF SWINOzH THEN ? "A HIT!!'*:DAM= 
INTCN0NC36)«RNDCA1)TA1) :? "DAMAGE = '*; 
DAM;" HP":? ;? 

6230 IF SWING<H THEN ? "A MISS*":? :? 
:GOTO 6855 

6235 HPCP)=HPCP)-DAM:DAM:iO 
6855 NEXT X 

6500 NEXT E:? :? "PRESS ANY KEY TO CON 
TINUE'*:OPEN lll,4,0,"K:'*:GET lll,E:CLOSE 
111: IF E>=0 THEN 5000 
6505 TRAP 30000:? "«'*:POSITION 2,12:? 
"WHAT IS THE ROOM NUMBER";;INPUT CMD$ 
6510 CLOSE 111 :AZS::"D: COMBAT. •*;AZ$C10,1 
0+LENCCW$))i:CMD$:XI0 3,111,4,6, AZ$ 

6515 FOR E-1 TO 40:INPUT til, J : IWN CE) = J 

:NEKT E: CLOSE HI-.GOTO 5000 

7000 FrINT CIOO^RND CAl) ) +A1: E^INT C301(RN 

DCA1))TA1 

7002 ON M GOTO 7003,7603,7004,7064,700 
4,7005,7005,7005,7005,7004,7004,7003 

7003 XrINTC25^tRNDCAl)) ;GOTO 7008 

7004 X-INTC25*RHDCAl)+25):GOTO 7008 

7005 X=INTC33NRNDCA1)+60):GOTO 7008 
7008 DL=PEEKC560)+256*PEEKC561):B=PEEK 
CDL+A4);C=PEEKCDL+A5}:POKE 555,A6:P0KE 

DL+A4,B:P0KE DL+A5,C:P0KE DLTA3,66 
7005 POKE DL+A6,A6:P0KE DL+A7,A6:POKE 
DLT13,A6:P0KE DL+14,A6:POKE DL+15,A6:P 
OKE DL+16,A6:P0KE DL+25,65 

7010 POKE DL+30,PEEKC560):POKE DL+31,P 
EEKC561):POKE 555,34:P0KE 710,128:P0KE 

712,128:? "64 DUNGEON STATUS":? 

7011 IF Di:A3 THEN D = A0:GOTO 7015 

7012 IF X<30 THEN IF F<=60 THEN IF A>- 

106 THEN ? "fWEATHER: SNOW ":DrD 

+l:GOTO 7025 

7013 IF X>~30 THEN IF X<z34 THEN IF F< 
::60 THEN IF A> = 100 THEN ? "f WEATHER: 
SLEET ":D=D+l:GOTO 7025 

7014 IF F<=68 THEN IF A>rl0O THEN ? "f 

WEATHER: RAIN ":D-D+l:GOTO 7025 

7015 IF F>30 THEN ? "WEATHER: FAIR": 

Dz0:A=0:GOTO 7025 

7020 IF F<=:30 THEN ? "WEATHER: CLOUDY" 
:LET 0-0+100 

7025 ? "WIND: ";E;"MPH" 

7046 ? "TEMPERATURE: ";X 
7050 ? "44 DUNGEON TIME'* 

7053 ? "4YEAR : '*;Y:? '*r«)NTH: '*;M:? '*D 
AY : ";Z:? :? "TIME : ";TCA1);":";TCA 

.11 If ■ 

7100 J=A0:OPEN Itl, 4,0 , “K ;: GET ttl,J:CL 
OSE ItlrlF CHRSCJ)=‘'R" THEM 9000 
7105 IF J=49 THEN 7115 

7112 IF J=50 THEN TCflll=TCAIJ+01;GOTO 
7120 

7113 IF Jr51 THEN Z=Z+fil:GOTO 7120 

7114 GOTO 7100 

7115 T Cft2J -J (A2J +yftL CCHRS CJ}}«ai0 
7120 IF TC02)>=6O THEN Tf02)rT(02)-60: 
Tt01)=TC01)+01 

7125 IF TC01)=11 THEN TC03)=03 
7130 IF TC01J=12 THEN IF TC03}=03 THEN 
IF 0MS="0M'' THEN 0H$="PM" ; T C03J =00 :60 
TO 7145 

7135 IF TC01J=012 THEN IF Tf03J=03 THE 
N IF 0MS="PM" THEN 0M$="0M":Z=Z+01:T10 
3)=0O 

7145 IF Tt01J=13 THEN Tt01)=01 
7150 IF Z=31 THEN Z=01:M=M+01 
7155 IF M=13 THEN M=01;Y=Y+01 
7175 GOTO 7008 

7500 0Z5="D : WITCHES "NROOM HUfffiER" 

; ; INPUT CMDS:0Z1»C11,11+LENCCMDS>J=CMI>$ 
:POKE 710,20O:POKE 709,194:POKE 712,0 
7505 TR0P 30000 ;CLOSE 111'.OPEN ttl,4,0,0 
ZS:7 "N" 

7510 TR0P 7600 
7520 INPUT ttl,CMDS 
7530 ? CMOS 

7535 IF PEEK(84?=23 THEN POSITION 1,23 

3333+":GOTO 7538 

7536 GOTO 7540 

7538 OPEN »4,4,0,"K:":GET »4,J:CLOSE It 
4:IF J>=6 THEN ? "N" 

7540 GOTO 7520 
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7600 CL05E ttl:OPEN 1*2,4,0, "K :" ; GET #2, 
J;CL05E #2:IF J>=0 THEN 9000 
8050 DL=PEEK(560)9256»PEEK(561):B=PEEK 
fDL+4J:C=PEEKCDL*5J;POKE 559,0:POKE DL 
+4,B:P0KE DL+5,C;P0KE DL+3,66 
8055 POKE DL+12,7;P0KE DL+13,7:P0KE DL 
+14,7:P0KE DL+15,7:P0KE DL+23,65;POKE 
DL424,PEEK(560):POKE DL+25,PEEK(561) 
8060 POKE 559,34;P0KE 87,0:P0KE 710,19 
2:P0KE 712,192 

8065 TRftP 9000:? "K**! POSITION 2,8:? "R 
ONDOM NUMBER";:INPUT RN 
8070 ? "«":P05ITI0N 2,8:E=INT(RN«RND(0 
)+!):? "NUMBER = ";E 

8075 FOR E=1 TO 150:NEKT E:G0T0 8065 
8500 POKE 710,200:P0KE 709,192:P0KE 71 
2,0 

8520 AZS="D:MITCHES.";? "N":? "MHAT IS 
THE ROOM NUMBER";:INPUT CMD5 
8530 0Z$(11,11+LEN(CKD5))=CMD$:0PEN ttl 
,8,0,0Z$ 

8540 ? "6" 

8550 INPUT CMD$ 

8560 IF CMD$="»" THEN 8590 
8570 ? ttl;CMD$ 

8580 GOTO 8550 

8590 CLOSE ttlrGOTO 9000 

9000 TRAP 20000:GRAPHICS 0:P0KE 712,12 
8:P0KE 710,128:POKE 7O9,140:POKE 752,1 

9001 ? "«":P05ITI0N 0,5:? "DM = !«LEE 
";? "m = CHARACTER SHEET":? ")S = DUN 
GEON STATUS":? " lE = ENTER ROOM** 

9002 ? ’DD = DICE":? ">F = FILE DATA": 
? "IG = GET DATA":? "H = INITIALIZATI 
ON";? "►L = LOAD ROOM" 

9003 ? ")Z = ROOMS":? "= HRITE" 

9004 ? "D4C0MMAND?"; 

9007 CLOSE ttl:TRAP 20000: OPEN 111,4,0," 
K:":GET til, CMD: CLOSE 111: IF CMD=69 THEN 

6905 

9008 IF CM0=83 THEN 7000 

9009 IF CM0=68 THEN 8050 

9010 IF CMD=71 THEN 3500 

9012 IF CMD=77 THEN 150 

9013 IF CM0=73 THEN 4000 

9014 IF CM0=70 THEN 3000 

9015 IF CMD=76 THEN 15000 

9016 IF CMD=90 THEN 7500 

9017 IF CMD=87 THEN 8500 

9018 IF CMD<48 OR CMD>57 THEN 9000 

9019 P=UAL(CHR$(CMD)):GOSUB 100 

9505 POKE 712.P»16?10 ;POKE 7 18.P«16*10 
:P0KE 709,P*16:? "ND lgT-Waar ';CMD5;" 


9506 ON P+1 GOTO 9600,9601,9602,9603,9 
604,9605,9606,9607,9608,9609 

9510 ON C(P) GOTO 9610,9611,9612,9613, 
9614,9615,9616,9617,9618,9619 

9511 ON P+1 GOTO 9800,9802,9804,9806,9 
808,9810,9812,9814.9816,9818 

9512 ? "lARMOR CLASS ";AC(P):? " 

tDDST ";ST(P) 

9514 ? "HIT POINTS ";HP(P):? "+ 

DDIN ";IN(P) 

9516 ? "HIT MODIFIER ";HM(P):? "+ 

IDlMI ";WI(P) 

9518 ? "DAMAGE MODIFIER ";DM(P):? "+ 
)D)DK ";DK(P) 

9520 ? "R/A BONUS ";RA(P):? "+ 

^ ^ ^ ^CN *'' CN CP) 

9522 ? "AC ADJUSTFENT ";ACA(P):? " 

+ DDCH ";CH(P) 

9524 ? "MISSILE MULTIPLE ";SB(P) 

9526 ? "LEUEL ";L(P):? "t> 

D HT ";HE(P,0);.;" ";HE (P,1);CHR 

5 (34) 

9528 ? "UEAPON READY ";M(P):? "+) 

D WT ";ME(P);" LBS" 

9530 ? "+GOLD ";GP(P) 

9533 ? "SILVER ";SP(P):IF G 

E(P)=1 THEN ? "+D) MALE":GOTO 9535 

9534 IF GE(P)=2 THEN ? "+D) FEMALE 


9535 ? "COPPER 
B 2000 

9537 ? "PLATINUM 
9540 ? "ELECTRUM 


";CP(P):GOSU 

";PP(P) 

";EP(P) 


9599 GOTO 9700 

9600 ? A$:GOTO 9510 

9601 ? B5:G0T0 9510 

9602 ? C$:GOTO 9510 

9603 ? D5:G0T0 9510 

9604 ? ES:GOTO 9510 

9605 ? FS:GOTO 9510 

9606 ? G$:GOTO 9510 

9607 ? H$:GOTO 9510 

9608 ? J$:GOTO 9510 

9609 ? K5:G0T0 9510 

9610 ? "D)tFI6HTER":G0T0 9511 

9611 ? "D)fRANGER":GOTO 9511 

9612 ? "D)tPALADIN":GOTO 9511 

9613 ? "DDCLERIC":GOTO 9511 

9614 ? "D>fDRUID":GOTO 9511 

9615 ? "DDMONK":GOTO 9511 

9616 ? ")D+THIEF";GOTO 9511 

9617 ? "D DASSASSIN'HGOTO 9511 

9618 ? "DDMAGIC-USER":G0T0 9511 

9619 ? "D)fILLUSIOMIST";GOTO 9511 
9700 POSITION 3,22:? "COMMAND?";:OPEN 

«i,4,0,"k:":get «i,k:close hi 

9702 IF X=77 THEN 150 

9704 IF X=82 THEN 9000 

9705 IF X=71 THEN 10000 

9706 IF X=83 THEN 10010 

9707 IF X=67 THEN 10020 

9708 IF X=80 THEN 10830 

9709 IF X=69 THEN 10040 

9710 IF X=72 THEN 10050 

9711 IF X=87 THEN 10060 

9712 IF K=90 then 7568 

9715 IF X<48 OR X>57 THEN 9700 

9730 P=VAL(CHR$(X)):GOSUB 100:GOTO 950 

5 

9800 POSITION 36,2:? AA$:GOTO 9512 
9802 POSITION 36,2;? BB$:GOTO 9512 
9804 POSITION 36,2;? CC$:GOTO 9512 
9806 POSITION 36,2:? DD$:GOTO 9512 
9808 POSITION 36,2:? EE$:GOTO 9512 
9810 POSITION 36,2:? FF$:GOTO 9512 
9812 POSITION 36,2:? GG5:G0T0 9512 
9814 POSITION 36,2:? HHS:GOTO 9512 
9816 POSITION 36,2:? JJ$:GOTO 9512 
9818 POSITION 36,2:? KK5:G0T0 9512 
10000 ? " GOLD PIECES";:INPUT J:GP(P) 
=J:GOTO 9505 

10010 ? " SILVER PIECES";:INPUT J:SP( 
P)=J:GOTO 9505 

10820 ? " COPPER PIECES";:INPUT J:CP( 
P)=J:G0T0 9505 

10030 ? " PLATINUM PIECES";;INPUT J:P 
P(P)=J:GOTO 9505 

10040 ? " ELECTRUM PIECES";:INPUT J:E 
P(P)=J;GOTO 9505 

10050 ? " HIT POINTS";:INPUT J;HP(P)= 
J:GOTO 9505 

10060 ? " l<miCH WEAPON"; : INPUT J:IF J 
<1 OR J>5 THEN POSITION 11,22:'' " 

":POSITION 11,22:G0T0 10860 
10865 H(P)=J;GOTO 9505 

15800 TRAP 30008:F0R J=1 TO 40:M0N(J)= 
0:NEXT J:? "6":? "WHAT IS THE ROOM HUM 
BER";:INPUT CMOS 

15005 AZS="D:COMBAT.":AZ$(18,10+LEN(CM 
DS))=CMD$ 

15010 ? "HOM MANY MONSTERS";:INPUT J:I 
F J>30 THEN ? "NO MORE THAN 30 MONSTER 
5":? :GOTO 15010 

15015 M0N(1)=J:? "MONSTER HIT DICE";:I 
NPUT J:M0N(2)=J 

15020 ? "MONSTER ARMOR CLASS";:INPUT J 
:M0N(3)=J:F0R E=0 TO M0N(1)-1:? "MONST 
ER ";E;"'5 HIT POINTS";;INPUT J 
15030 MON(E+4)=J:NEXT E:? "NUMBER OF A 
TTACKS";:1NPUT J :FWN(35)=J:? "DAMAGE P 
ER ATTACK";:INPUT J:M0N(36)=J 
15040 OPEN ttl,8,0,AZ$:F0R E=1 TO 40;? 
ttl; MON (E) : NEXT E;CLOSE ltl:GOTO 9000 

20000 ERLN=PEEK(186)+256»PEEK(187);FOR 

E=1 TO 10:? "+ INPUT ERROR — TR 

Y AGAIN ";SOUND 0,30,10,10 

20001 FOR 1=1 TO 2_ 

tuaEXSuIBHM ":souND o, 18,lo,lo :for 
1=1 TO 2:NEXT I;NEXT E:SOUND 0,0,0,0 
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20004 ? 

II 

20605 TRAP 20060:GOTO ERLN 
36000 IF PEEK C1553 =170 THEN ? ••l^••:POSI 
TION 2,5:? "THERE'S MO SUCH FILE ON TH 
IS DISK!!" 

30003 ? :? "THE FILES ARE:":? 

30005 TRAP 30055;CLOSE ttl:OPEN m,6,0, 
iiD .M** 

30010 INPUT ltl;CMD$ 

30015 PRINT CMD$:GOTO 30016 
30055 CLOSE ttl: ERLN=PEEK (1865+256WEEK 
(1875:FOR E=1 TO 200:NEKT E:TRAP 20080 
:GOTO soeo 




CHECKSUM DATA 
(See pgs* 7-10) 

4 DATA 621,406,367,883,822,218,174,155 

,820,805,162,205,155,288,187,6378 

55 DATA 48,105,182,71,886,287,476,477, 

321,471,688,638,873,183,308,6146 

86 DATA 660,486,27,666,804,586,644,586 

,824,660,622,446,678,761,51,8712 

157 DATA 686,725,351,708,148,686,484,8 

14,525,188,288,188,822,713,835,8283 

213 DATA 601,623,285,534,85,148,112,13 

,54,880,828,88,303,164,478,5228 

233 DATA 783,412,642,126,63,758,740,87 

7,741,778,827,836,648,238,236,8008 

310 DATA 380,863,7,104,112,634,235,155 

,148,160,153,178,158,172,165,3625 

1045 DATA 177,170,806,646,640,653,647, 

681,654,670,664,677,671,571,786,8223 

3002 DATA 875,712,884,488,547,553,723, 

238,454,2,653,683,451,435,573,8301 

3030 DATA 340,271,805,880,732,607,162, 

287,638,280,540,48,883,651,885,8151 

3520 DATA 871,107,718,361.460,227,384, 

18,890,687,817,135,730,168,621,7286 

4113 DATA 203,723,705,762,542,855,515, 

676,146,648,710,288,173,460,483,7900 

4175 DATA 666,43,203,428,808,545,943,4 

42,527,328,178,545,203,751,327,6838 

5002 DATA 337,347,357,367,358,368.378, 

383,403,788,888,228,523,175,238,6i60 

5525 DATA 122,286,680,725,883,817,818, 

828,821,832,824,835,927,838,831,11888 

6045 DATA 842,602,880,735,448,465,881, 

630,410,82,841,780,173,582,42,8634 

6805 DATA 688,580,349,575,741,889,180, 

186,587,518,567,837,524,105,846,8303 

7015 DATA 802,138,37,213,155,370,42,88 

4,871,505,738,866,78,605,781,7288 

7135 DATA 687,603,622,637,770,864,570, 

711,365,316,487,768,821,754,745,8821 

8050 DATA 758,688,348,126,322,605,806, 

243,580,402,105,828,584,768,838,8132 

8000 DATA 211,848,827,384,568,481,864, 

883,847,764,850,842,221,864,886,11161 

8018 DATA 478,180,832,187,581,222,550, 

578,747,838,406,453,362,565,475,7555 

8530 DATA 484,110,818,788,704,676,785, 

602,607,612,617,622,627,632,637,8431 

8608 DATA 645,650,141,886,80,813,125,7 

11,117,618,562,143,377,668,823,7570 

8705 DATA 738,748,750,753,768,741,753, 

832,708,878,571,580,588,588,607,10808 

8810 DATA 587,606,615,628,638,217,868, 

857,801,888,488,885,38,418,573,8241 

15010 DATA 801,823,580,474,58,270,262, 

186,661,376,576,687,232,728,607,7541 

30055 DATA 531,531 


Pretty Demo 


10 DEG 

20 GRAPHICS 24 
30 COLOR 1 
40 SETCOLOR 2,0,0 
50 FOR 1=1 TO 360 STEP 5 
60 K=319*I/360 
70 Y=80+80*SIH(I) 

80 IF I>270 THEN 100 
90 PLOT 0,0 
100 DRANTO X,Y 
110 IF I<8e THEN 130 
120 DRAMTO 319,158 
130 NEXT I 

140 IF PEEK (764) 0255 THEN END 
150 GOTO 140 


CHECKSUM DATA 
(See pgs. 7-10) 

10 DATA 217,4,724,287,58,750,133,483,4 
56,867,434,363,737,152,710,6485 



PAGE 158 


THE A.N.A.L.O.G. COMPENDIUM 


VOL. 1 


THUNDER ISLAND 


32K Cassette or Disk 
by Craig Patchett 


One of the interesting features of the ATARI 
home computer is the priority register. This reserved 
memory location works together with the ATARPs 
player-missile graphics system to allow screen 
objects to pass behind or in front of other objects, 
an effect that can give the illusion of depth. 

The priority register is called, appropriately, 
PRIOR and is found at memory location 623 ($26F 
hex). The following chart shows the effect of 
POKEing various values into it. Note that a high 
priority object will appear to move in front of an 
object with lower priority. 


PRIOR- 


8 4 2 1 


PFO 

PFO 

PO 

PO 

PFl 

PFl 

PI 

PI 

PO 

PF2 

PFO 

P2 

PI 

PF3 or P4 

PFl 

P3 

P2 

PO 

PF2 

PFO 

P3 

PI 

PF3 or P4 

PFl 

Pf2 

P2 

P2 

PF2 

PF3 or P4 

P3 

P3 

PF3 or P4 

BAK 

BAK 

BAK 

BAK 


Pn refers to player n 

PFn refers to playfield n (as in SETCOLOR n) 
PF3 or P4 refers to the fact that all missiles can be 
given the color of playfield 3 and used as an extra 
player (player 4). This is done by adding 16 to the 
value being POKEd into PRIOR. 

When two players overlap, you can also choose to 
have a third color in the overlap region. This is done 
by adding 32 (decimal) to the value being POKEd 
into PRIOR. 


Thunder Island uses the priority register to 
control which section of the maze immediately sur¬ 
rounding you can be seen at a given time. If you 
draw a maze in playfield one and set the color of play- 
field one to that of the background, under normal 
circumstances we won’t be able to see the maze. But, 
by setting PRIOR to 2, we can have players two and 
three appear between the background and playfield 
one, thereby making the section of the maze ”in 
front” of either player visible. That’s all there is to it. 

Playing the Game. 

Thunder Island is located in the middle of the 
Pacific, about a thousand miles north of New 
Zealand. An internationally renowned playboy 
resort, its main attraction is a huge transparent maze. 
This maze can be set up to any one of an almost 
infinite number of floor plans, so that it is impossible 
to memorize the layout. 

Because it is transparent, the maze is normally easy 
to solve. The island, however, is subject to frequent 
thunderstorms, and the power generator that lights 
the maze is often knocked out. As a precaution to 
this, those entering the maze carry lanterns, allowing 
them to at least see that part of it immediately 
surrounding them. It is the challenge of navigating 
the darkened maze, however, that has drawn you to 
Thunder Island. A different maze will be generated 
each time you play. Good Luck! 

Options 

Use the chart below to pick the type of game you 
want to play. A one-player game is good for 
practicing, but you’ll find the two player games to be 
more fun. You can choose to play a daylight game, in 
which the whole maze is always visible, or a night¬ 
time one, in which only part of it is visible. You can 
also choose from three maze difficulty levels, and 
each player can choose from three lantern sizes 
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(allowing better players to take a handicap). Once 
you’ve selected the game you want, press START 
and the computer will begin generating the maze. 
Once it’s finished, your lantern(s) will light up and 
the game will start. 

Using your joystick, you must maneuver your 
player to the corner of the maze diagonally opposite 
to the one you started at, and exit the maze. There is a 
timer at the bottom of the screen that keeps track of 
how long you’ve been in the maze, so you can 
compete for the fastest time. As soon as someone 
escapes, the storm will end and the maze will start 


reflecting a rainbow, 
program again. □ 

Press START 

NIGHT 

to 

run the 

DAY 

1 1 PLAYER 

LARGE 

MEDIUM 

SMALL 1 



I 

1 |2| 

'AJ 


IsJ 

6 

in 

'8| 

l9J 

|10|11 |12| 




I 

PLAYER 2 J 
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I 2 PLAYER I 

LARGE 

MEDIUM 
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-* 

LARGE 

1 \2 

3 

10 

11 

12 

13 

14 
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PLAYER 

MEDIUM 

19i20 

21 

4 

5 

6 

16 

17 

IE 


1 —" 
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22 [23 

24 

25 

26 

27 

7 

8 

9 

ro 

00 

ro 

(O 

o 











^ ^ ^ 



E M 

H 

E 

M 

H 

E 

M 

H 

E M H 


MAZE DIFFICULTY 

E=EASY M=MEDIUM H=HARD 
(LARGE, MEDIUM, SMALL=LANTERN SIZE) 


100 CLP :G0T0 150 

lie SOUND ce,co,ce,ce;RETURN 

120 FOR I=C1 TO 50:NEXT I‘.RETURN 

130 DlrOSC tH5 <Z,Z> >-48:D2=0SC CHS CZ + Cl, 

Z+Cl))-48 

140 BVTE=HEX(D2> +C16*HEX CDIJ;Q2=02+C1: 

POKE C7eS,PEEKC53770):RETURN 

150 REDO C0,C1,C2,C3,C4,C5,C6,C7,C8,C9 

,C10,C11,C12,C13,C14,C16,C128,C56O,C56 

1,C709,C71O.C711,C712 

160 DIM DLI5tC13),R$fC16),M5(4421,HEXf 
221:GR0PHICS 18:P0SITI0N C4,C5;? ltC6;" 
initializing" 

170 FOR I=C1 TO C13:RE0D BYTE;DLlStIJ= 
CHRS(BYTE):NEXT I 

180 FOR I=C1 TO CierREOD BYTE:RSCIJ=CH 
R$(BYTE):NEXT I:FOR I=C0 TO 22:READ BY 
TE:HEX(I)=BYTE:NEXT I 

190 Q2=-Cl:F0R I=C1 TO C3:RE0D MS:FOR 
Z=C1 TO LEN(MS)-C1 STEP C2:G0SUB 130:P 
OKE 1571+02,BYTE:NEXT Z:NEXT I 
200 02=-Cl:F0R I=C1 TO 21:READ MS:F0R 
Z=C1 TO LEM(MS)-Cl STEP C2:G05UB 130 :P 
OKE 29696+02,BYTE:NEXT Z:NEXT I 
210 FOR X=29689 TO 29695;P0KE X,C0:NEX 
T X;F0R 1=1536 TO 1570!POKE I,C0:MEXT 


220 GRAPHICS C16:P0KE C16,112:P0KE 537 
74,112 

230 POKE C71O,C0:ST=PEEK(C560)+256»PEE 
K(C561)+C4:P0KE ST+C2,C7:POKE ST+C4,C6 
IPOKE 5T+24,65 

240 POKE ST+25,PEEK(C560):P0KE ST+26,P 
EEK(C5ei) 

250 POKE C708,C0:P0KE C789,C0:POKE C71 
1,C0 

260 POKE ST+20,130:POKE 513,INT(ADR(DL 
lS)/256):P0KE 512,ADR(DLIS)-(PEEK(513) 
N2561:P0KE 54286,192 

270 POKE 752,Cl:P0SITI0N C3,C1:? "THUN 
DER ISLAND" 

280 POSITION 22,C2:? 

0" 

290 POSITION C3,20:? "Copyright (0198 
3 ANALOG COMputing" 


ate net 


300 FOR X=C1 TO C3;P0KE C712,C14!POKE 
C710,C14:F0R Y=C0 TO 50:S0UND C0,Y,C8, 
C8 

310 IF Y=25 THEN POKE C710,C8:P0KE 

C712 C0 

320 ' NEXT Y:NEKT X:FOR Y=51 TO 255: 

SOUND Ce,Y,C8,C8:NEXT YrPOKE C712,50:P 

OKE C710,50;POKE C709,C8 

330 POKE 708,218:P0KE C711,122:G0SU6 1 

10 

340 POSITION C10.C9:? "I 

1": POSITION C10,C18:? "| 1 


PLAYER 


358 POSITIOW C10,ll:? »| 



JICILL=C1 :LEVELP=C1 
370 POSITION 27,C10:? SKILLFOR X 
=C1 TO 100:NEXT X 
380 IF PEEKC53279J<>C3 THEN 440 
3S0 LEUELPi:LEUELPTCl:LEVELP=LEUELP-C2« 
tLEVELP=:C3) ;POSITION C11,C10;IF LEUELP 
=C1 THEN ? -'ONE'*; 

400 SOUND C0,C10,C8,C8:G0SUB 110 
410 IF LEUELP-C2 THEN ? "TWO'*; 

420 IF LEUELPzCl AND SKILL>C12 THEN SK 

ILL=C1:G0T0 370 

430 GOSUB 12e:G0SUB 120 

440 IF PEEKC5327S)<>C5 THEN 4S0 

450 SKTLL-SKILL1C1:IF LEVELP-Cl THEN S 

KILLzSKILL-C12*(SKILL=13) 

460 IF LEUELP=C2 THEN SKILLzSKILL-30*( 
SKILLZ31) 

470 SOUND C0,20,C8,C8;G0SUB 110 
480 GOTO 370 

4S0 IF PEEKt5327S)<>C6 THEN 380 

500 IF LEUELP=C2 THEN 540 

510 LEVELD=fSKILL<C10J;LEUELH=SKILL-C3 

*INT C CSKILL-CIJ/C3J:LEUELMAzC2-INT f CSK 

ILL-C11/C3J 

520 IF NOT LEUELD THEN LEUELIM=CO 
530 GOTO 610 

540 LEUELD=:CSKILL<28J : LEVELHzSKILL-C3* 
INTCCSKILL-C1)/C3):TuINT(fSKILL-Cl)/C3 
) 

550 IF T=C0 OR TZC3 OR T=C4 THEN LEUEL 
WA=C2 

560 IF T=C1 OR T=C5 OR T=C6 THEN LEUEL 
WA=C1 

570 IF T-C2 OR T=C7 
MA=CO 

580 IF T=C0 OR T=C5 


OR 

OR 

OR 


T=C8 THEN LEUEL 
T-C7 THEN LEUEL 
TZC8 THEN LEUEL 


MB=C2 

5S0 IF TzCl OR Tz:C3 
MB=C1 

600 IF T-C2 OR TZC4 OR Ti:C6 THEN LEUEL 
UB=CO 


610 GRAPHICS 21:P0KE C16,112;P0KE 5377 
4,112 

620 LEUELM=80NCLEUELH=C2>+255^eCLEUELH= 
C3):UIDTHA=LEUELMA«C4:MIDTHB-LEUELMB*C 
4:IF HIDTHAZC8 THEN HIDTHA=C12 
630 IF UIDTHBzCB THEN MIDTHBi:C12 
640 POKE C712,56:P0KE C710,50:COLOR C3 
:POKE C70S,C14 

650 FOR XzC0 TO 78 STEP C3:PL0T X,C0:D 
RAMTO X,45:NEXT X:FOR YrCO TO 45 STEP 
C3;PL0T C1,Y:DRAMT0 77,Y:NEXT Y 
660 SOUND C0,C11,C8,C8;F0R X=C1 TO C3; 
NEXT X:GOSUB 110:P0KE C710,218;F0R XzC 

I TO 506:NEXT X 

670 CCl, Cl J ="0‘*: H$ f442,442) -"O**; H$ CC 
2) =M$ : ArINT CRND CC0) »3S0) +27 : HS CA, A) ="*1 

II 


680 POKE 1536,LEUELH:P0KE 1537,133:P0K 
E 1538,C1:SOUND CO,24,C4,C6:X=USRC3012 
7,ADRCM$)) 

6S0 A=42)^INT CRND (C0)^2) :COLOR C0:PLOT 
C0,C1+A:PLOT 78,44~A:PL0T C0,C2+A:PL0 
T 78,43-A:G0SUB 110 

700 Hrll2:P0KE 1552,C1:P0KE 1554,C1+A+ 
CA>CO):POKE 1556,MIDTHA 

710 POKE 1553,77:IF LEUELP=C2 THEN POK 

E 1555,44-A--CA>C0) :POKE 1557,WIDTHS 

720 FOR LrCO TO C3:P0KE 53248+L,C0:HEX 

T L:POKE 5427S,W:P0KE 55S,46:P0KE 623, 

34: POKE 53277, C3:PMB=Hit256 

730 POKE 53258,MIDTHA/C4:P0KE 5325S,MI 

DTHB/C4 
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740 T=PI<B+512:F0R L = T TO T+511;P0KE L, 
Ce:NEKT L;L=0*C2+C2*t0>C0>:POKE T+L+18 
,24:P0KE T+L+19,24 

750 L=84-O*C2+C2«CO=C0):POKE T+L+146,2 
4;P0KE T + L + .147,24 

760 L=PTW+ft»C2+C2*(O>C0>+768+15-C4»LEV 
ELUOiEOR K=L TO L+C7+C8#LEUELM0:POKE X 
25S:NEXT H 

770 L=PMB+84-O»C2+C2»fO=C0J +896+15-C4* 
LEUELMB;FOR X=L TO L+C7+C8*LEVELWB:POK 
E X,2S5;NEXT X 
780 POKE 53248,47 

790 SOUND C0,C11,C8,C8:F0R X=C1 TO C3: 
MEXT X:GOSUB 110:P0KE 704,C14:GOSUB 12 
0!POKE 53250,47-WIDTHO 

800 FOR X=C16 TO CO STEP -Cl:SOUND CO, 

K,C8,C8:P0KE 706,C16-X;FOR V=C1 TO C10 

;NEXT Y:NEXT X:GOSUB 110:POKE 706,72 

810 IF LEUELPOC2 THEN 858 

820 GOSUB 120:G0SUB 120;POKE 53249,199 

:SOUND C0,C11,C8,C8:FOR X=C1 TO C3:NEX 

T X:GOSUB 110:P0KE 705,C14:GOSUB 128 

830 POKE 53251,199-WIDTHB 

840 FOR X=C16 TO C0 STEP -Cl:SOUND C0, 

X,C8,C8:P0KE 707,C16-X;FOR V=C1 TO CIO 

:NEXT V;NEKT K:G0SU8 110:P0KE 787,24 

850 FOR X=C1 TO 200'.NEXT X: POKE C712,C 

14:FLaSH=C0 

860 IF LEUELD THEN POKE C710,144 

878 STrPEEK CC560)+256*PEEK(C561J +C4:PO 

KE ST+47,C2:P0KE 5T+48,65:POKE 5T+49,P 

EEKCC560):POKE ST+50,PEEKCC561J 

880 X=USRC1571):SOUND C3,C10,C8,C2 

890 X=U5RC29696J 

900 IF FL05H<255 THEN 930 

910 IF INT(RND(C0)»200) OlOO THEN 950 

920 POKE C712,C14:FL05H=C0:SOUNO C2,C0 

,C8,15 

930 FLflSH=FLDSH+C5:SOUND C2,FLASH,C8,C 
8:IF FLASH3255 THEN SOUND C2,C0,C0,C0: 
REM 

940 IF FLA5H=25 THEN SETCOLOR C4,C9-C6 
»CLEVELD=C0J,C2*(LEUELD=C0) 

950 IF PEEK(1568) OR PEEK(1561) THEN 9 
90 

960 IF PEEK(1558) THEN SOUND C0,20,C8, 
C8 

970 IF PEEK(1559) THEN SOUND C0,40,C8, 


980 FOR X=C1 TO C5:NEXT X:GOSUB 110:G0 
TO 890 


990 X=USR(1703):SOUND C2,C0,C0,C0 
1000 IF PEEK(1560) THEN POKE 53249,C0; 
POKE 53251,C0 

1010 IF PEEK(1561) THEN POKE 53248,CO: 
POKE 53250,C0 

1020 X = USR(0DR(RS)) :FOR X = 53248 TO 532 
51:P0KE X,C8:NEXT X:GOTO 210 
1030 REM * CONSTANTS 

1840 DATA 0,1,2,3,4,5,6,7,8,9,10,11,12 
,13,14,16,128,560,561,709,710,711,712 
1050 REM » DLI ROUTINE 


1060 DATA 72,169,14,141,10,212,141,23, 

208,169,88,104,64 

1070 REM * RAINBOW ROUTINE 

1080 DATA 104,169,6,232,142,10,212,142 

,24,288,205,31,208,208,242,96 

1090 REM * HEX DATA 

1100 DATA 0,1,2,3,4,5,6,7,8,9,0,0,0,0, 
0,0,0,10,11,12,13,14,15 


1110 REM « TIMER ROUTINE 

1120 DATA 6818A9A9655885CDA903655985CE 

A93C8D22O2A9068D23O260A514C90660O34C5F 

E4A9OO8514EE1FO6OD1FO6C90ADO32A9O0 

1130 DATA 8D1F06EE2O66AD2OO6C98ADO23A9 

0O8D2OO6EE2186AD2106C906DO14A9OO8D2106 

EE2206AD2206C90ADO05A96O8D22O6A6OO 

1140 DATA A204C881F804C004D008A91A91CD 

C81890FOBD1EO6491O91COC8CADOE54C5FE468 

AD6OE48D2262AD61E48D23026O 

1150 REM » P/M-STICK ROUTINE 

1160 DATA 68A2008D1E06AE1EO6A90O9D1606 

9D1886BD1O668D1AO6BD12O68D1B866D78024A 

9603EE1BO64A489O63CE1B062O5B74AD1E 

1170 DATA O6AABD1OO68D1AO6BD12068D1B06 

684A9063EE1AO64A9O03CE1A082O5B74EE1E06 

AD1EO6C902DOAC6OA55885CBA55985CCAD 


1180 DATA 1AO64A4A184865CB85CBA90065CC 

85CC68OA0A8DOEO6A963186D0E0638ED1AO68D 

OE06A9OO8D1DO6AD1B66A2O46A2E1D06EO 

1190 DATA O3DO6B8D1C66AD1D0648AD1C0648 

CADOEO8D1C0668186D1C068D1CO6686D1D068D 

1D8618A5C66D1CO685CBA5CC6D1D0685CC 

1200 DATA AOO0B1CBAE6E664A4AAOOOBO82AO 

FFC8CAEOFFD0F2COO1DOO166A9O138ED1EO6A8 

OD1EO6AAB912O6CD1BO6DOO96910O6CD1A 

1210 DATA 0eDOOie0ADlEO6A82O8775ADlAO6 

DD1006F011FE16860A18692D9D0ODO38FD1466 

9D02DOAD18O6DD12O6FO52FE16869O27A2 

1220 DATA 7DC801DOOFBD80729O8272BD8O73 

9D827318900C8D00729D0272BD00739D0273CA 

D0DE189026A202C001D00FBD80729D7E72 

1230 DATA BD80739D7E7318900CBO00729DFE 

71BD08739DFE72E8E07FD0DC98AAAO1B069D12 

O6AD1AO69D1OO66OAD1O06EOOOOO10C9O0 

1240 DATA DOO4EElAOe60C94EDO14FE18O668 

C94ED0O4CE1AO660C98ODOO4FE18O660606868 

8DO886888D0706AD0AD229OFC9OFFOF78D 

1250 DATA O3O6AD0AD2291FC91A1OF78DO486 

2O0577B1CDC931DODFA9OO8DO9O6ODO4O6C901 

9O05AO192O6277OE8906ADO4O6C919B0O5 

1260 DATA A01B2O62778E09O6AD0366C9019O 

O5AO602662770E09O6AD03O6C96EBO05A83420 

6277ADO9O6C9O0FO9AAD04060O18eD0406 

1270 DATA 8DOO06AD0386OA186D63O68D0BO6 

A514FOFCA9O08514A9148DO6D2ADOAD229O38D 

OF06C9O6DO19AD69O62908FO19CEO406EE 

1280 DATA 0B06206C77EE0B06206C774CCE76 

ADOF66C901D022AD09O62904FO22EEO406EEOA 

86EE6AO6EEOAO6EE0B062O6C77EEO8062O 

1290 DATA 6C774CCE76AD6F08C902DO19ADO9 

O629O2FO12CE6306EE8O062O6C77EEOAO62O6C 

774CCE76AD09062901F097EE0306EE0B06 

1300 DATA EEOBO6EEOB06EEOOO62O6C77EE0A 

06206C77A9188D00D2200577A93191CD38AD01 

86E9O18DO1O6AD82O6E9O08DO206C908D8 

1310 DATA O8AD81O6C9OOD8O160ADOAD2CD0O 

069OO34CD9754CB875AD03868DO5O648AD0406 

A2OO8EO606A2O48EO56e2EO6O6E8O2D6O8 

1320 DATA ADO&8648AD050648CADOEB18686D 

O5O68D8566686D86O68D0606680A186D64O66D 

O5068D85O6AO0606690O8DOe8618ADO7O6 

1330 DATA 6DO5O685CDAOO8866D06O685CEA0 

1A6OB1CDC930D6O3EE096668A55885CBA55985 

CCAD0A864A4A184865C885CBA90065CC85 

1340 DATA CC680A0A8D6EO638AD0A86ED0E06 

AAE8A93FCOFO86386A6A4C96778D0E06A9O08D 

8CO6ADOB06A2840A2E0C06EOO3D0OB8DOD 

1350 DATA 86AD0C0648ADOD0e48CADOEA8D0D 

O668186O0DO68DODO6686D0CO68DOCO618A5C8 

6DOD8685CBA5CC6DOCO685CCA08OB1CB2D 

1360 DATA 6E0691CB60 


CHECKSUM DATA 
(See pgs. 7-10) 


i® S«S‘*T0^^^®'®^'‘'516,417,482,48,674,35 

4,803,435,271,537,335,77,927,6820 

250 DATA 232,612,562,820,582,532,611,4 

31,113,568,211,363,497,995,287,7416 

400 DATA 940,908,982,918,994,566,121,1 

86,738,7,422,389,847,713,37,8768 

550 DATA 838,848,858,856,857,833,496,5 

31,266,652,915,829,350,519,627,10275 

700 DATA 594,213,595,989,905,613,15,33 

1,147,142,889,360,64,498,903,7258 

850 DATA 420, 48,178,537,388,345, 546, 54 

3,333,350,64,69,76,671,347,4915 

y4®54l®2A2®^A753,175.959,51 
9,126,670,358,277,523,395,765,6613 
1150 DATA 39,474,703,648,869,749,454,5 
‘*'*5'152,388,589,603,8176 
1300 DATA 561,372,328,695,672,781,376, 
3/0 5 
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MANIAC! 


32K Cassette or Disk 
by Rick Messner 


Over the past several years, many game programs 
have been developed for the ATARI computers. 
Unfortunately, most of these games cost from $30 to 
$40 apiece. Taking pity on those who, like myself, 
cannot afford to buy all those great games, 1 pro¬ 
grammed an arcade-style game called Maniac! This 
fast-action Assembly language game is yours for the 
price of a few hours of typing. You’re going to like 
this one! 

The game. 

Maniac! is set in a maze with eight levels. Each 
level is filled with crazed robots. These robots were 
once peaceful gardeners but became short-circuited 
by pesticides, and are now trying to destroy anything 
that moves with their missile-firing shovels. You are 
dropped into the first level of this maze, equipped 
only with your trusty .45 and ammunition. Your job 
is to stop all the robots on each level. 

At first, your task is not particularly difficult, but 
as you enter the higher-numbered maze levels the job 
gets harder and harder. That’s because the robots on 
the higher-numbered maze levels have been around 
longer and are covered with a protective layer of 
earth and bullrushes. 

To start. 

At the beginning of this game there is a short in¬ 
troduction (just to help you learn my name), and 
then the machine asks you if you are going to have 
a one or two-player game. Enter your choice. A light 
grey maze appears on your monitor screen, along 
with a green figure representing you and three red 
figures representing the robots. At the end of the 
maze opposite from where you start is a door. Your 
objective is to destroy all three robots and to run out 
the exit door. If you do this, the computer automati¬ 
cally advances you to the next level of the maze. If, 
however, you exit without destroying all the robots, 
you remain at your current level and must try again. 


Movement. 

The computer moves the robots in a one-person 
game. In a two-person game, one player controls the 
hunter, and the other player controls the robots. 
Moving either the hunter or the robots is very 
simple. Hold the joystick in the normal position and 
push it in the direction you wish to move. 

If a robot and the hunter collide, either one or 
both is blown up. If either a robot or a hunter walks 
into a wall, it will explode. 

Earth and bulrushes. 

Robots on the higher-numbered maze levels be¬ 
come increasingly covered with a layer of earth and 
bulrushes. This makes it rather hard for the hunter’s 
.45 to hit one. To kill a robot, the hunter must shoot 
it once for each level of the maze. Thus, on level six, 
the hunter must shoot each robot six times before it 
is destroyed. 

2-player version. 

In the two-player game, one person controls the 
hunter, and the other person controls the robots. 
The hunter is controlled by the joystick in port zero, 
and the robots are moved by the joystick in port one. 

To start, the person with the robots moves only 
the leftmost robot. If it is killed, control switches to 
the center robot. When that one is killed, control 
moves to the rightmost robot. 

As the player controlling the robots becomes 
more skilled he may want to switch control from 
robot to robot at will. This can be done by using one 
of three keyboard keys. To make the joystick control 
the leftmost robot, press the semi-colon key; to 
make the joystick control the center robot, press the 
plus sign key; to make the joystick control the right¬ 
most robot, press the multiplication sign key. 

Firing. 

Both the hunter and the robot can fire in many 
different directions. To rotate the arm — and the 
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weapon — of either the hunter or the robot, do this: 
press the joystick button and hold it down. While 
the button is depressed, you may move the joystick 
in any direction — this will cause the arm to rotate. 
As soon as you let go of the red button, the weapon 
will fire. 

If you wish to fire without moving the cf irection of 
the weapon, simply press and release the red button 
on your joystick. 

Scoring. 

Points are awarded to the hunter but not to the 
robots. The robots get their pleasure solely from 
frustrating the hunter. Scoring is as follows: the 
hunter gets ten points per level for each robot des^ 
troyed, with a 1,000-point bonus for making it 
through all eight levels. 


3. When the computer has made sure there are no 
errors in the DATA lines, it will ask 'TNSERT DISK 
WITH DOS, PRESS RETURN.” Place a disk with 
DOS in drive 1 and press RETURN. The program 
will create an AUTORUN.SYS file containing the 
Maniac! game. When the READY prompt appears, 
the program is finished. It is a good idea to SAVE the 
Maniac! BASIC program just in case you need it 
later. 

4. To play Maniac!, place the disk containing the 
AUTORUN.SYS file in drive 1. Remove any car¬ 
tridges and turn the computer’s power OFF, then 
ON. The Maniac! game will automatically load and 
start. □ 


Typing the program. 

Two program listings follow this article. Listing 1 
is the main data and data checking routine, and will 
create the cassette version of Maniac! Listing 2 
should be added to Listing 1 for disk users. 

Cassette instructions. 

1. Type Listing 1 into your computer and check it 
for typing errors by using C:CHECK. 

2. Type RUN and press RETURN. The program 
will check for errors in the DATA lines. If any error 
messages are displayed, correct the lines indicated 
and re-RUN the program until all errors are elimi¬ 
nated. 

3. When all the DATA statements are correct, the 
program will ask you to ”READY CASSETTE AND 
PRESS RETURN” and the console will BEEP twice. 
Place a cassette in your program recorder, press 
RECORD and PLAY simultaneously, then press RE¬ 
TURN. The computer will create a boot tape con¬ 
taining the Maniac! game. It is a good idea to CSAVE 
the BASIC program at this time, just in case you 
want to use it again later. 

4. To play Maniac!, remove any cartridges from 
your system. Place the Maniac! boot tape in your 
program recorder, rewind it to the beginning and 
press PLAY. Turn the computer’s power OFF, then 
turn it ON while pressing START. The computer 
will BEEP. Press RETURN and the game will load 
and run automatically. 

Disk instructions. 

1. Type Listing 1 into your computer and check it 
for typing errors with D:CHECK. After correcting 
any typing errors, enter the lines with Listing 2. 
These lines will merge with Listing 1 in order to 
create a Maniac! disk version maker program. 

2. Type RUN and press RETURN. The program 
will check for any errors in the DATA statements 
and will display a message if any errors are found. 
Correct any DATA lines that are in error and re- 
RUN the program until all errors are corrected. 


10 REM I10NI0C CASSETTE MAKER PROGRAM 
20 REM 

30 CLR ;DXM X$(3584) ;Q=:0jLIHEr4930;RE5 
TORE 5000 
40 P^O 

50 LINE-tlNE+ie:? "CHECKING LINE ";LIN 
E 

60 FOR 1=1 TO 16 
70 0 = 0+1 


140 

150 


80 TRAP 140;READ J:IF 1=1 THEN IF LINE 
<>PEEKC183)+PEEK(184)K256 THEN ? "LINE 
";LINE;” MIS5ING»":END 
90 IF J=999 THEN 150 
100 X$(0)=CHR5(J) 

110 P=P+J 
120 NEXT I 

130 TRAP 140:READ JiIF P=J THEN 40 
^ "ERROR IN LINE ";LINE:5T0P 
^ "READY CA55ETTE AND PRESS RETURN 
":0PEN ttl,8,0,"Ci" 

160 ? »l;K$ 

170 CLOSE «1 

5000 DATA 0,31,0,64,35,64,169,60,141,2 

,211,169,119,141.231,2,1439 

5010 DATA 133,14,169,79,141,232,2,133, 

15,169,30,133,10,169,64,133,1634 

5020 DATA 11,24,96,96,83,58,32,28,76,3 

2,55,72,162,255,141,30,1251 

5030 DATA 208,232,224,4,240,246,142,18 

4,79,169,2,141,187,79,32,148,2317 

5040 DATA 75,172,185,79,185,232.76,133 

,176,133,180,185,233,76,133,17?;2430 

5050 DATA 133,181,189,127,79,24,201,3, 

176,18,32,210,64,32,184,65,1718 

5060 DATA 32,38,68,32,173,70,32,223,68 

,32,17,71,189,159,79,201,1484 

5070 DATA 0,240,6,32,108,70,32,179,69, 

32,108,65,169,11,24,237,1382 

5080 DATA 191,79,141,188,79,169,2,141, 

190,79,32,189,75,173,188.79,1995 

5090 DATA 141,181,79,32,61,65,32,253,7 

3,32,178,64,32,180,71,32,1506 

5100 DATA 248,71,173,127,79,201,7,248, 

3,76,49,64,32,127,72,76.1645 

5110 DATA 44,64,173,252,2,141,0,104,17 

3,200,79,201,1,208,1,96,1739 

5120 DATA 173,252,2,201,7,240,46,201,6 

,240,34,201,2,240,22,76,1943 

5130 DATA 250,64,189,135,79,24,233,47, 

157,173,79,189,139,79,24,233,2094 

5140 DATA 16,157,177,79,96,169,1,141,1 

95,79,76,250,64,169,2,141,1812 

5150 DATA 195,79,76,250,64,169,3,141,1 

95,79,172,195,79,185,127,79,2088 

5160 DATA 24,201,2,176,1,96,173,207,79 

,24,201,0,176,5,169,2,1536 

5170 DATA 141,207,79,206,207,79,173,20 

7,79,201,1,240,1,96,169,0,2086 

5180 DATA 141,207,79,160,1,185,127,79, 

24,201,2,144,7,200,152,201,1910 

5190 DATA 4,208,242,96,140,195,79,169, 

255,141,252,2,96,142,182,79,2282 
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5200 OOTO 140,183,79,162,255,232,236.1 

81,79,240,11,160,255,200,152,201,2766 

5210 DOTO 255,208,250,76.69,65,174,182 

,79,172,183,79,96,142,182,79,2291 

5220 OOTO 162,255,232,236,181,79,208,2 

50,174,182,79,96,189,127,79,24,2553 

5230 D0T0 201,2,176,1,96,24,201,7,144, 

1,96,24,105,10,141,187,1416 

5240 D0T0 79,169,15,141,184,79,32,148, 

75,173,185,79,24,109,230,76,1798 

5250 DOTift 133,178,173,186,79,109,231,7 

6,133,179,165,176,24,125,139,79,2185 

5260 DOT0 133,176,165,177,105,0,133,17 

7,160,0,177,178,145,176,200,152,2254 

5270 D0T0 201,15,208,246,254,127,79,96 

,189,131,79,201,1,208,1,96,2132 

5280 l>OTO 224,0,240,14,236,195,79,240, 

3,76,216,65,173,121,2,76,1960 

5290 OOTO 38,67,189,120,2,76,38,67,169 

,1,157,131,79.173,191,79,1577 

5300 f)OTO 141,187,79,169,10,141,184,79 

,32,148,75,173,10,210,24,205,1867 

5310 OOTO 185,79,144,1,96,189,139,79,2 

4,205,139,79,144,50,24,233,1810 

5320 OOTO 1,24,205,139,79,176,35,169,1 

5,141,114,3,189,135,79,24,1528 

5330 OOTO 205,135,79,144,15,24,205,135 

,79,1 /6,J^, 76,38,67,32,163,1576 

5340 l>0T0 66,76,38,67,32,224,66.76,38, 

67,32.54,66,76,9,66,1053 

5350 6oT0 32,110,66,76,9,66,189,173,79 

,133,85,189,177,79,24,233,1720 

5360 00T0 0,133,84,32,36,70,160,0,177, 

178,201,0,208,29,230,85,1623 

5370 D0T0 32,36,70,173,181,79,201,0,20 

8,17,198,85,198,85,32,36,1631 

5380 D0T0 70,173,181,79,201,0,208,3,16 

9,14,96,169,15,96,189,173,1836 

5390 D0T0 79,133,85,189,177,79,24,105, 

17,133,84,32,36,70,160,0,1403 

5400 DOT0 177,178,201,0,208,229,230,85 

,32,36,70,173,181,79,201,0,2080 

5410 D0T0 208,217,230,85,230,85,32,36, 

70,173,181,79,201,0,208,203,2238 

5420 O0T0 169,13,96,189,173,79,133,85, 

189,177,79,133,84,32,36,70,1737 

5430 D0T0 169,16,141,181,79,160,0,140, 

183,79,160,0,177,178,201,0,1864 

5440 D0T0 208,94,165,178,24,109,193,79 

,133,178,165,179,105,0,133,179,2122 

5450 D0T0 172,183,79,200,152,205,181,7 

9,208,221,173,114,3,41,11,96,2118 

5460 D0T0 189,173,79,24,105,8,133,85,1 

89,177,79,133,84,32,36,70,1596 

5470 D0T0 169,16,141,181,79,160,0,140, 

183,79,160,0,177,178,201,0,1864 

5480 D0T0 208,30,165,178,24,109,193,79 

,133,178,165,179,105,0,133,179,2058 

5490 D0T0 172,183,79,200,152,205,181,7 

9,208,221,173,114,3,41,7.96,2114 

5500 D0T0 173,114,3,41,15,96,201,14,24 

0,29,201,6,240,59,201,7,1640 

5510 OOTii 240,33.201,5,240,65.201,13,2 

40,19,201,9,240,71,201,11,1990 

5520 DOT0 240,28,201,10,240,77,96,32,2 

22,67,76,161,67,32,0,68,1617 

5530 DOT0 76,161,67,169,1,157,127,79,2 

54,135,79,76,161,67,169,0,1778 

5540 DOTO 157,127,79,222,135,79,76,161 

,67,32,222,67,254,135,79,169,2061 

5550 DOT0 1,157,127,79,76,161,67,32,0, 

68,254,135,79,169,1,157,1563 

5560 DOT0 127,79,76,161,67,32,0,68,222 

,135,79,169,0,157,127,79,1578 

5570 DOTO 76,161,67,32,222,67,222,135, 

79,169,0,157,127,79,76,161,1830 

5580 OOT0 67,32,189,67,189,135,79,157, 

0,208,189,119,79,201,1,240,1952 

5590 OOTO 6,169,1,157,119,79,96,169,0, 

157,119,79,96,189,135,79,1650 

5600 DOTO 24,201,208,176,6,24,201,48,1 

44,14,96,169,208,157,135,79,1890 

5610 OOTO 224,0,208,3,76,228,74,96,169 

,48,157,135,79,96,189,139,1921 

5620 DOTO 79,24,201,13,144,25,222,139, 

79,24,105,16,141,181,79,188,1660 

5630 f)OTO 139,79,177,176,136,145,176,2 

00,200,152,205,181,79,208,243,96,2592 


5640 OOTO 189,139,79,24,201,96,176,29, 

24,105,16,168,177,176,200,145,1944 

5650 DOTO 176,136,136,189,139,79,24,23 

3,3,141,181,79,152,205,181,79,2133 

5660 OOTO 298.234,254,139,79,96.189,13 

1,79,201,1,240,1,96,224,0,2172 

5670 D0T0 240,57,236,195,79,240,46,169 

,0,157,131,79,189,139,79,24,2060 

5680 OOTO 233,14,24,205,139,79,176,14, 

24,105,22,205,139,79,144,12,1614 

5690 DOTO 169,1,157,123,79,96,169,0,15 

7,123,79,96,169,2,157,123,1700 

5700 OOTO 79,96,76,110,68,173,121,2,76 

,110,68,189,120,2,201,6,1497 

5710 DOTO 201,6,240,62,201,10,240,25,2 

01,7,240,65,201,11,240,28,1978 

5720 DOTO 201,5,240,68,201,9,240,31,20 

1,14,240,71,201,13,240,73,2048 

5730 DOTO 96,169,0,157,123,79,169,0,15 

7,127,79,96,169,1,157,123,1702 

5740 D0T0 79,169,0,157,127,79,96,169,2 

,157,123,79,169,0,157,127,1690 

5750 DOTO 79,96,169,0,157,123,79,169,1 

,157,127,79,96,169,1,157,1659 

5760 DOTO 123,79,169,1,157,127,79,96,1 

69,2,157,123,79,169,1,157,1688 

5770 !>0T0 127,79,96,169,0,157,123,79,9 

6,169,2,157,123,79,96,224,1776 

5780 O0TO 0,240,38,236,195,79,240,27,1 

73,191,79,141,187,79,169,10,2084 

5790 DOTO 141,184,79,32,148,75,173,10, 

210,24,205,185,79,144,1,96,1786 

5800 D0T0 76,30,69,173,133,2,76,12,69, 

189,132,2,201,0,240,8,1412 

5810 OOTO 189,131,79,201,1,240,7,96,16 

9,1,157,131,79,96,189,159,1925 

5820 D0TO 79,201,0,240,1,96,169,1,141, 

196,79,169,0,157,131.79,1739 


5830 D0TO 189,127,79,201,1,240,8,169,2 

54,157,151,79,76,68,69,169,2037 

5840 DOT0 2,157.151,79.189.123,79,201, 

0,240,9,201,1,240,13,201,1886 

5850 OOTO 2,240,17,96,169,255,157,155, 

79,76,105,69,169,0,157,155,1901 

5860 DOT0 79,76,105,69,169,1,157.155,7 

9,169,35,157,159,79,189,127,1805 

5870 OOTO 79,141,187,79,169,3,141,184, 

79,32,148,75,173,185,79,24,1778 

5880 OOTO 125,123,79,141,184,79,169,2, 

141,187,79,32,148,75,173,185,1922 

5890 DOTO 79,168,185.241,77,24,125,135 

,79,157,143,79,185,242,77,24,2020 

5900 DOTO 125,139,79,157,147,79,188,14 

7,79,189,110,78,25,128,105,153,1928 

5910 OOTO 128,105,96,222,159,79,188,14 

7,79,189,110,78,89,128,105,153,2055 

5920 DOTO 128,105,152,24,125,155,79,15 

7,147,79,189,159,79,201,0,240,2019 

5930 OOTO 74,189,143,79,24,125,151,79, 

157,143,79,24,233,47,133,85,1765 

5940 OOTO 189,147,79,24,233,16,133,84, 

32,36,70,173,181,79,24,201,1701 

5950 DOTO 0,208,31,230,85,32,36,70,173 

,181,79,201,0,208,19,188,1741 

5960 DOTO 147,79,189,110,78,25,128,105 


, 153,128,105,189,143,79,157,4,1819 


5970 DOTO 208,96,169,0,157,159,79,157, 

4,208,96,169,0,157,143,79,1881 

5980 DOTO 157,4,208,96,140,183,79,165, 

84,141,187,79,173,193,79,141,2109 

5990 DOT0 184,79,32,148,75,165,85,141, 

188,79,169,4,141,190,79,32,1791 

6000 OOT0 189,75,173,185,79,24,109,188 

,79,141,185,79,173,186,79,101,2045 

6010 DOTO 89,133,179,173,185,79,24,101 

,88,133,178,165,179,105,0,133,1944 

6020 OOTO 179,160,0.177,178,141,181,79 

,172,183,79,96,189,143,79,24,2060 

6030 OOT0 201,208,176,19,24,201,44,144 

,27,189,147,79,24,201,112,176,1972 

6040 OOT0 32,24,201,13,144,33,96,169,1 

,157,159,79,169,208,157,143,1785 

6050 OOT0 79,76,121,70,169,1,157,159,7 

9,169,44,157,143,79,76,121,1700 


6060 DOT0 70,169,1,157,159,79,96,169,1 
,157,159,79,96,189,127,79,1787 
6070 OOT0 141,184,79,169,3,141,187,79, 
32,148,75,173,185,79,24,125,1824 
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6080 DftTO 123,79,141,181,79,189,119,79 

,141,184,79,169,6,141,187,79,1976 

6890 DOTO 32,148,75,173,185,79,24,109, 

181,79,141,187,79,169,15,141,1817 

6100 OOTO 184,79,32,148,75,173,185,79, 

24,109,230,76,133,178,173,186,2064 

6110 OOTO 79,109,231,76,133,179,165,18 

0,24,125,139,79,133,180,165,181,2178 

6120 DOTO 105,0,133,181,160,0,177,178, 

145,180,200,152,201,15,208,246,2281 

6130 DftTO 96,189,4,208,24,201,0,208,73 

,189,12,208,24,201,0,208,1845 

6140 DftTO 65,160,0,142,181,79,152,24,2 

05,181,79,240,39,189,135,79,1950 

6150 D0T0 24.217,143,79,176,30,24,105, 

8,24,217,143;79,144,21,189,1623 

6160 DflTO 139,79,24,217,147,79,176,12, 

24,105,15,24,217,147,79,144,1628 

6170 DOT0 3,76,98,71,200,152,24,201,4, 

208,200,96,169,1,157,159,1819 

6180 O0T0 79,96,222,163,79,169,1,153,1 

59,79,189,163,79,24,201,0,1856 

6190 DfiTO 240,1,96,169,1,141,197,79,16 

9,2,157, ! 7.? , 79,152,201,0.1811 

6200 OftTO 240,9,138,201,0,240,31,206,1 

94,79,96,173,191,79,141,184,2202 

6210 DOTft 79,169.10,141,187,79,32,148, 

75,173,185,79,141,181,79,32,1790 

6220 OflTft 159,73,206,194,79,96,206,192 

,79,173,192,79,201,0,240,1,2170 


6230 DftTO 96.76,83,74,173,196,79,201,2 

,240,19,201,0,240,48,169,1897 

6240 OftTO 2,141,196,79,160,0,140,198,7 

9,169,175.141,1.210,172,198,2061 

6250 DftTfl 79,200,140,0,210,200,140,0,2 

10,200,140,0,210,200,140,0,2069 

6260 DftTft 210,200,140,0,210,152,24,201 

,240,176,4,140,198,79,96,169,2239 

6270 DflTO 0,141,196,79,141,1,210,96,14 

0,183,79,173,197,79,201,0,1916 

6280 OflTO 240,41,201,2,240,15,169,2,14 

1,197,79,169,143,141,3,210,1993 

6290 D0T0 169,0,141,199,79,172,199,79, 

140,2,210,200,140,2,210,152,2094 

6300 DATA 201,240,176,7,140,199,79,172 

,183,79,96,169,0,141,197,79,2158 

6310 OOTfi 141,3,210,172,183,79,96,169, 

7,141,181,79,32,82,73,169,1817 

6320 DOTft 46,141,47,2,169,3,141,29,208 

,169,200,141,192,2,169,56,1715 

6330 DflTO 141,193,2,141,194,2,141,195, 

2,169,0,141,197.79,141,196,1934 

6340 79,169,104,141,7,212,160,1,1 

40,191,79,169,3,141,192,79,1867 

6350 DOTft 169,16,162,0,157,167,79,232, 

224,6,208,248,32,43,74,169,1986 

6360 D0T0 0,141,1,210,141,0,210,141,3. 

210,141,2,210,141,207,79,1837 

6370 DftTO 173,191,79,24,201,8,176,21,1 

68,185,110,79,141,196,2,169,1923 

6380 D0TA 0,141,198,2,141,197,79,141,1 

96,79,32,114,73,172,191,79,1835 

6390 DOTH 140,184,79,169,4,141,187,79, 

32,148,75,169,3,141,194,79,1824 

6400 DOT0 173,200,79,201,2,240,8,169,4 

,141,195,79,76,217,72,169,2025 

6410 0070 1,141,195,79,169,2,141,252,2 

,169,40,141,193,79,173,185,1962 

6420 0070 79,24,233,3,168,24,105,4,141 

,181,79,162,0,185,46,78,1512 

6430 0070 157,0,208,157.135,79,185,78, 

78,157,139,79,173,191,79,157,2052 

6440 0070 163,79,169,0,157,131,79,157, 

143,79,157,159,79,200,232,152,2136 

6450 0070 205,181,79,208,216,169,1,141 

,163,79,160,0,169,0,153,128,2052 

6460 0070 105,153,0,106.153,128,106,15 

3,0,107,153,128,107,200,152,201,1952 

6470 0070 128,208,233,169,1,141,123,79 

,141,124,79,141,125,79,141,126,2038 

6480 0070 79,169,1,141,127,79,169,0,14 

1,128,79,141,129,79,141,130,1733 

6490 0070 79,96,169,3,141,114,3,169,36 

,141,116,3,169,64,141,117,1561 

6500 0070 3,169,28,141,122,3,173,181,7 

9,141,123,3,162,48,32,86,1494 

6510 0070 228,96,160,0,185,253,77,24,2 

01,255,240,34,133,85,200,185,2356 


6520 0070 253,77,133,84,169,85,32,221, 

75,200,185,253,77,133,85,200,2262 

6530 0070 185,253,77,133,84,169,85,32, 

2,76,200,76,116,73,96,142,1799 

6540 0070 182,79,162,0,160,0,185,167,7 

9,24,105,1,9,16,153,167,1489 

6550 0070 79,201,26,208,11,169,16,153, 

167,79,200,152,201,6,208,230,2106 

6560 0070 232,24,236,181,79,208,221,17 

4,182,79,32,206,73,96,160,86,2269 

6570 0070 173,48,2,133,180,173,49,2,13 

3,181,177,180,24,105,7,133,1700 

6580 0070 178,200,177,180,133,179,142, 

182,79,162,5,160,0,189,167,79,2212 

6590 0070 145,178,200,202,152,201,6,20 

8.244.174.182.79.96.160.86.173.2486 
6600 0070 48,2,133,180,173,49,2,133,18 
1,177,180,24,105,45,133,178,1743 

6610 0070 200,177,180,133,179,160,0,16 

9,65,145,178,200,152,201,10,240,2389 

6620 0070 5,205,192,79,208,241,169,0,1 

45,178,96,160,86,173,48,2,1987 

6630 0070 133,180,173,49,2,133,181,177 

,180,133,178,200,177,180,133,179,2388 

6640 0070 160,0,185,118,78,201,255,240 

,9,24,233,31,145,178,200,76,2133 

6650 0070 66,74,96,32,194,76,169,0,141 

,181,79,32,82,73,169,0,1464 

6660 0070 141,198,2,170,157,0,208,157, 

4,208,157,1,210,157,0,210,1980 

6670 0070 232,224,4,208,239,160,0,185, 

37,79,24,201,255,240,9,24,2121 

6680 0070 233,31,145,88,200,76,119,74, 

160,12,162,0,189,167,79,145,1880 

6690 0070 88,136,232,224,6,208,245,32, 

184,74,160,30,162,0,189,201,2171 

6700 0070 79,145,88,136,232,224,6,208, 

245,169,255,141,252,2,173,252,2607 

6710 0070 2,201,255,240,249,76,38,64,1 

60,5,185,167,79,24,233,0,1978 

6720 0070 24,217,201,79,176,15,24,105, 

1,217,201,79,144,6,136,152,1777 

6730 0070 201,255,208,230,96,160,0,185 

,167,79,153,201,79,200,152,201,2567 

6740 0070 6,208,244,96,162,0,169,0,157 

,4,208,157,0,208,157,0,1776 

6750 0070 210,157,1,210,232,224,4,208, 

239,32,54,75,173,194,79,24,2116 

6760 0070 201,0,208,3,238,191,79,173,1 

91,79,24,201,8,144,33,169,1942 

6770 0070 1,141,191,79,160,0,169,200,1 

41,181,79,140,183,79,32,159,1935 

6780 0070 73,172,183,79,200,140,183,79 

,152,201,5,208,241,238,192,79,2425 

6790 0070 32,127,72,76,44,64,169,175,1 

41,1,210,162,8,165,88,133,1659 

6800 0070 178,165,89,133,179,32,86,75, 

232,224,16,208,240,169,0,141,2167 

6810 0070 1,210,141,0,210,96,142,182,7 

9,162,0,32,126,75,165,178,1799 

6820 0070 24,189,193,73,133,176,165,17 

9,105,0,133,179,238,199,79,173,2166 

6830 0070 199.79,141,0,210,232,224,79, 

208,225,174,182,79,96,160,6,2268 

6840 0070 177,178,24,42,145,178,177,17 

8,24,42,145,178,200,152,205,193,2238 

6850 0070 79,208,237,96,169,0,141,185, 

79,141,186,79,142,182,79,162,2165 

6860 0070 8,10,46,186,79,14,187,79,144 

,9,24,109,184,79,144,3,1305 

6870 0070 238,186,79,202,208,235,141,1 

85.79.174.182.79.96.142.182.79.2487 
6880 0070 169,0,162,8,14,188,79,42,205 
,190,79,144,6,237,190,79,1792 

6890 0070 238,188,79,202,208,238,141,1 

89,79,174,182,79,96,141,181,79,2494 

6900 0070 142,182,79,140,183,79,169,11 

,141,114,3,169,0,141,120,3,1676 

6910 0070 141,121,3,162,48,173,181,79, 

32,86,228,174,182,79,172,183,2044 

6920 0070 79,96,141,251,2,142,182,79,1 

40,183,79,169,17,141,114,3,1818 

6930 0070 162,48,32,86,228,174,182,79, 

172,183,79,96,32,194,76,169,1992 

6940 0070 2,141,181,79,32,82,73,169,0, 

141,198,2,165,88,24,105,1482 

6950 0070 61,133,178,165,89,105,0,133, 

179,160,0,185,163,78,201,255,2085 
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6960 240,9,24,233,31,145,178,200, 

76,59,76,32,205,76,32,205,1821 

6970 DATA 76,32,205,76,32,205,76,32,20 

5,76,169,255,141,181,79,32,1872 

6980 61,65,32,61,65,32,61,65,32,6 

1,65,32,61,65,32,61,851 

6990 65,32,194,76, 169,2,141,181,7 

9,32,82,73,169,0,141,198,1634 

7800 OOTO 2,165,88,24,105,40,133,178,1 

65,89,133,179,160,0,185,218,1864 

7010 OftTA 78,201,255,240,9,24,233,31,1 

45,178,200,76,142,76,32,194,2114 

7020 DOTO 76,169,255,141,252,2,173,252 

,2,24,201,30.240,14,24,201,2056 

7030 DOT0 31,240,3,76,166,76,169,1,141 

,200,79,96,169,2,141,200,1790 

7040 79,96,169,12,141,114,3,162,4 

8,32,86,228,96,169,1,141,1577 

7050 DOTO 196,79,32,180,71,169,2,141,1 

81,79,32,61,65,173,196,79,1736 

7060 201,0,208,238,96,51,242,76,0 

,106,128,106,0,107,128,107,1794 

7070 DOTO 128,105,140,92,76,44,28,12,1 

2,12,12.12,4,4,4,4,689 

7080 D^tO 12,12,28,12,204,124,12,12,12 
,12,12,4,4,4,4,12,480 

7090 DClTO 12.28,12,12,28,108,204,12,12 
,12,4,4,4,4,12,49,517 

7100 OOTO 58,50,52,56,48,48,48,48,48,3 
2,32,32,32,48,48,56,736 

7110 OflTO 48,51,62,48,48,48,48,48,32,3 
2,32,32,48,48,56,48,729 

7120 DCkia 48,56,54,51,48,48,48,32,32,3 

2,32,48,140,92,76,44,881 

7130 DOTO 28,12,12,12,12,12,10,10,9,9, 

27,12,28,12,204,124,533 

7140 OflTO 12,12,12,12,12,10,10,9,9,27, 
12,28,12,12,28,108,325 

7150 DOTO 204,12,12,12,10,10,9,9,27,49 
,58,50,52,56,48,48,666 

7160 OOTO 48,48,48,80,80,144,144,216,4 

8.56.48.51.62.48.48.48.1217 

7170 DftTO 48,48,80,80,144,144,216,48,5 

6.48.48.56.54.51.48.48.1217 

7180 DOTO 48,80,80,144,144,216,128,4,2 

,8,64,0,10,128,4,32,1092 

7190 OOTO 2,4,8,4,0,2,1,4,0,128,0,5,0, 

2,0,64,224 

7200 1,2,4,2,0,2,0,0,0,0,2,0,1,0, 

128,0,142 

7210 DOTO 0,1,2,1,0,0,0,0,0,1,0,0,0,0, 
0,0,5 

7220 DOTO 0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0,0 

7230 DOTA 0,0,0,0,3,0,6,7,0,7,3,7,6,0, 
0,159,198 

7240 D0TO 0,159,0,159,28,159,52,159, 

,159,78,0,78,0,78,0,1187 

7250 50,0,30,0,0,40,0,40,40,40,40 

,80,40,110,78,110,698 

7260 DiJTO 64,100,0,100,40,100,40,130,4 

0,255,192,48,12,3,51,75,1250 

7270 OCkTA 112,176,51,96,160,192,51,58, 

128,192,51,72,120,128,51,51,1689 

7280 91,154,51,112,160,192,51,51, 

136,192,51,24,50,72,50,32,1469 

7290 06T0 38,38,50,64,64,72,50,32,64,5 

6,50,18,69,64,50,18,797 

7300 DftTO 18,18,50,58,72,48,50,24,72,5 
0,50,24,24,69,3,12,642 

7310 DOTO 48,192,1,2,4,8,83,67,79,82,6 
9,58,32,48,48,48,869 

7320 DiiTO 48,48,48,32,32,32,32,32,32,3 
2,32,32,32,32,32,32,560 

7330 DOTO 32,32,32,32,32,32,32,32,32,3 
2,32,32,32,32,77,69,594 

7340 DOTO 78,58,255,32,32,32,32,32,77, 

65,78,73,65,67,33,32,1041 

7350 DOTrt 32,32,32,32,32,32,32,32,32,3 

2,32,32,32,32,66,89,603 

7360 D0TO 32,32,32,32,32,32,32,32,32,3 
2,32,32,32,82,73,67,638 

7370 OOTrt 75,32,77,69,83,83,78,69,82,2 

55,80,82,69,83,83,32,1332 

7380 DftTO 49,32,79,82,32,50,32,32,32,3 

2,32,32,32,32,32,32,644 

7390 DOTO 32,32,32,32,32,32,32,32,32,3 
2,32,32,32,32,32,32,512 


7400 OOTO 32,32,49,32,45,32,79,78,69,3 

2,80,76,65,89,69,82,941 

7410 DOTO 32,32,32,32,32,32,50,32,45,3 

2,84,87,79,32,80,76,789 

7420 DOTO 65,89,69,82,255,83,67,79,82, 

69,58,32,32,32,32,32,1158 

7430 DOTO 32,32,32,32,72,73,45,83,67,7 

9,82,69,58,32,32,32,852 

7440 DOTO 32,32,32,32,32,32,32,32,32,3 

2,32,32,32,32,32,32,512 

7450 DOTO 32,32,32,32,80,82,69,83,83,3 

2,65,78,89,32,75,69,965 

7460 DOTO 89,32,84,79,32,67,79,78,84,7 

3,78,85,69,255,0,6,1190 

7470 DOTO 52,101,199,167,54,162,176,52 

,49,155,138,27,59,59,1,49,1500 

7480 DOTO 999 


CHECKSUM DATA 
(See pgs. 7-10) 


10 DOTO 48,253,903,981,241,241,100,417 

,542,151,331,734,603,507,73,6125 

160 DOTO 308,656,680.489,744,369,665,2 

16,207,936,610,222,898,866,848,8714 

5130 DOTO 424,93,577,899,23,198,526,81 

0,418,894,649,567,704,616,248,7646 

5280 DOTO 190,256,370,280,65,154,421,1 

00,880,242,90,244,229,455,274,4250 

5430 DOTO 238,844,343,169,242,846,524, 

838,928,916,142,418,964,255,269,7936 

5580 DOTO 284,314,537,80,500,883,612,5 

68,33,580,464,87,964,925,943,7774 

5730 DOTO 88,132,305,138,145,571,261,8 

88,121,957,347,144,295,627,348,5367 

5880 DOT0 404,413,926,899,574,585,247, 

168,595,123,408,344,612,567,385,7250 

6030 DOTO 514,524,278,170,560,441,410, 

579,717,738,173,553,250,505,233,6645 

6180 DOTO 120,208,443,558,265,261,492, 

58,314,27,201,453,572,88,6,4066 

6330 DOTO 244,261,291,114,575,265,312, 

69,287,894,405,571,488,561,789,6126 

6480 DOTO 519.36,227,324,341,104,961,3 

33,406,193,575,827,520,658,90,6114 

6630 OOTO 863,474,801,994,960,530,477, 

549,241,257,779,745,233,41,519,8463 

6780 DOTO 563,46,358,19,870,539,714,45 

1,803,935,227,950,229,356,281,7341 

6930 DOTO 580,949,380,997,270,654,265, 

490,491,149,156,227,37,234,309,6188 

7080 DOTO 29,48,626,632,407,484,227,39 

0,779,780,383,42,776,609,590,6802 

7230 DOTO 864,492,66,835,550,20,651,34 

3,360,541,559,547,555,576,677,7636 

7380 DOTO 577,520,690,637,616,653,518, 

701,711,74,900,6597 


32K Disk revision. 


10 REM MANIOC 32K DISK CHANGES 
150 ? ••INSERT DISK WITH DOS, PRESS RET 
URN*^;:DIM IN$C1):INPUT IN$;OPEH «1,8,0 
,"D: AUTORUN. SYS*' 

5000 DATA 255,255,6,64,127,79,169,60,1 

41,2,211,169,119,141,231,2,2031 

7480 DATA 10,0,11,0,38,64,224,2,225,2, 

38,64,0,0,0,0,678 

7490 DATA 999 
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HARVEY WALLBANGER 


16K Cassette 24K Disk 
by Charles Bachand 


Machine language games are the wave of the 
future. They are the games that attract you with their 
graphics, their speed, and their playability. They are 
also the games that sell! Since it is inherently more 
difficult to write games in machine language, and 
since the author of a machine language game has a lot 
of his time invested in it, it is understandable that he 
would rather sell it than give it away. Cold cash 
usually speaks loudly. Personally, 1 prefer the fame. 

So, for your enjoyment, here is Harvey 
Wallbanger with the full machine language source 
listing for the programers out there who like to 
modify games. 

Here is a very quick description of the game: 
Harvey Wallbanger is situated in the middle of a 
closed-in room. He may move freely within the 
room (that part of the screen within the four walls) 
but the room is constantly getting smaller (the walls 
are moving in on our rabbit friend.) Harvey is 
allowed to touch the left and right hand walls, but he 
will be killed if flattened by these two walls. He is 
under no circumstances allowed to touch the top and 
bottom walls, for they are highly electrified. 

All is not lost for Harvey, however. He does have 
his patented '‘Wallbanger Gun” to shoot at the 
walls and make them move away. His only problem 
is that the speed of the moving walls constantly 
increases with time. Numbers will appear on the 
screen that Harvey may collect. These numbers will 
be added to his score. The faster you collect the 
numbers, the bigger the final score. The numbers 
may not be within the confines of the now-receding 
wall and this will necessitate that Harvey shoot back 
a wall to access the numbers. Also, Harvey cannot 
shoot the numbers as this will kill off that particular 
number and generate a new one someplace else. 

As you read the Assembler listing for the game 
you will notice that there are no line numbers in the 
source code. This is due to the fact that I am using the 


ATARI Macro Assembler package. 

There are two BASIC programs before the 
machine language listing of Harvey Wallbanger. The 
first is a disk file maker program to get the game up 
and running faster than typing in the Assembler 
source listing. The second BASIC listing contains 
modifications to the first to make a cassette bootable 
machine language tape for the cassette-bound crowd. 

To make a disk version of Harvey Wallbanger, you 
need a formatted disk with a version of DOS II on it. 
Load the disk maker program into the computer’s 
RAM but do not run the program. Next, insert a 
formatted disk containing DOS II into the disk 
drive. Run the program. The computer will print out 
the line numbers of the DATA statements that the 
program is reading. These numbers start at 1000 and 
end at 2000 with increments of 10. After reading line 
2000 the disk drive will turn on and an AUTORUN- 
.SYS’ File will be written out to the disk. To play the 
game, simply remove all the cartridges and reboot 
with this new disk. 

To make a cassette version of this program 
requires a slightly different procedure. After the disk 
version of the program is in memory, add the 
changes for the cassette maker program and run it. 
The program will read through all the data and then 
the computer will beep twice. At this time insert a 
blank cassette tape in the program recorder and set it 
up for record by pressing the record and play 
buttons on the recorder. We now hit the return key 
as if we were doing a CSAVE and wait. The 
computer is now recording the machine language 
program onto the cassette tape. Once it is through 
you can boot the program by rewinding the tape, 
powering down the computer, and turning on the 
computer while holding down the start key. The 
computer will beep once, press play on the recorder, 
and press return on the computer. The program will 
load from the cassette and run automatically. □ 
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Basic listing. 


lOe REH HARUEY MALLBANGER 
lie REH DISK HAKER PROGRAH 
120 REH 

138 DIH PR0G$C16ee}:PNTR=1 

148 LII(E=990:TRAP 220 

150 LIME=LIHE+10;FOR COUNT=l TO 15 

160 READ BYTE:PROGS (PIITRJ=CHRSCBYTEJ 

170 PMTR=PHTR+l:TOTAL=TOTAL+BYTE 

180 NEXT COUNT:? "LINE :’*;LINE 

190 READ CHECKSUH 

200 IF CHECK5UH=TOTAL THEN 150 

210 ? "BAD CHECKSUH: LINE “;LIHE:STOP 

220 IF PEEKC195J=6 THEN 248 

230 ? "BAD DATA: LINE ";LINE:STOP 

240 OPEN «1,8,0,"D:AUTORUN.SYS" 

250 PRINT ttljPROGS;:END 

999 REH 

1000 DATA 255,255,0,52,216,57,76,71,52 
,112,112,112,112,71,7,1560 

1810 DATA 58,7,7,7,7,7,7,7,7,7,112,112 
,70,27,52,2054 

1020 DATA 65,3,52,242,225,226,226,233, 

244,243,218,211,192,243,227,4904 

1030 DATA 239,242,229,218,208,208,208, 

208,103,97,109,101,0,0,111,7185 

1040 DATA 118,101,114,128,112,114,101, 

115,115,0,0,115,116,97,114,8645 

1050 DATA 116,128,216,32,181,228,169,2 

11,141,35,52,169,3,141,245,10632 

1060 DATA 57,169,208,141,43,52,141,44, 

52,141,45,52,141,46,52,12016 

1070 DATA 169,60,141,228,57,141,26,2,3 

2,220,56,160,2,32,231,13573 

1080 DATA 56,136,16,250,169,3,141,48,2 

,169.52,141,49,2,169,14976 

1090 DATA 4,141,111,2,169,40,141,219,5 

7,169,196,141,220,57,169,16812 

1100 DATA 60,141,221,57,141,2,208,169, 

184,141,222,57,141,3.208,18767 

1110 DATA 169,122,141,217,57,169,55,14 

1,218,57,169,46,141,47,2,20518 

1120 DATA 169,3,141,29,208,169,48,141, 

7,212,169,150,141,198,2,22305 

1130 DATA 169,72,141,199,2,169,24,141, 

192,2,169,152,141,193,2,24073 

1140 DATA 169,52,141,194,2,169,196,141 

,195,2,169,1,141,233,57,25935 

1150 DATA 162,53,160.204,169,7,32,92,2 

28,169,137,141,38,2,169,27698 

1160 DATA 53,141,39,2,169,153,141,40,2 

,169,53,141,41,2,169,29013 

1170 DATA 1,141,25,2,169,0,141,30,288, 

141,246,57,141,227,57,30599 

1180 DATA 141,223,57,141,224,57,141,14 

,210,162,3,157,229,57,157,32572 

1190 DATA 247,57,157,251,57,157,255,57 

,157,3,58,202,16,238,170,34654 

1200 DATA 157,128,49,157,0,50,232,208, 

247,169,255,157,0,51,232,36746 

1210 DATA 208,250,232,138,41,1,170,189 

,219,57,74,8,205,11,212,38761 

1220 DATA 288,251,141,10,212,40,144,3, 

141,10,212,173,10,210,41,40567 

1230 DATA 246,141,26,208,160,10,169,0, 

157,15,208,141,10,212,173,42443 

1240 DATA 10,210,41,246,141,26,208,136 

,208,237,173,200,2,141,26,44448 

1250 DATA 208,173,245,57,240,8,173,246 

,57,16,3,76,99,52,173,46274 

1260 DATA 31,208,41,1,208,177,76,71,52 

,173,228,57,201,2,240,48040 

1270 DATA 3,206,228,57,169,1,141,25,2, 

96,173,228,57,141,26,49593 

1280 DATA 2,238,219,57,206,220,57,238, 

221,57,173,221,57,141,2,51702 

1290 DATA 208,206,222,57,173,222,57,14 

1,3,208,238,227,57,173,227,54121 

1300 DATA 57,41,1,170,189,207,57,141,0 

,210,169,8,141,223,57,55792 

1310 DATA 96,173,246,57,208,60,173,245 

,57,208,55,32,220,56,162,57840 

1320 DATA 0,142,1,210,142,3,210,142,5, 

210,142,7,210,142,24,59430 


1330 DATA 2,142,25,2,142,26,2,189,47,5 
2,48,7,157,92,58,60421 

1340 DATA 232,76,240,53,162,0,189,58,5 

2,48,7,157,151,58,232,62136 

1350 DATA 76,254,53,76,189,56,173,12,2 

08,141,236,57,173,4,208,64052 

1360 DATA 141,237,57,173,226,57,48,9,2 

06,226,57,74,9,160,141,65873 

1370 DATA 7,210,173,223,57,43,8,206,22 

3,57,9,192,141,1,210,67638 

1380 DATA 173,224,57.48,8,206,224,57,9 

,128,141,3,210,173,225,69524 

1390 DATA 57,238,225,57,238,225,57,238 

,225,57,141,4,210,173,246,71915 

1400 DATA 57,240,26,238,246,57,238,192 

,2,238,192,2,173,192,2,74010 

1410 DATA 10,10,10,141,2,210,169,136,1 

41,3,210,76,189,56,173,75546 

1420 DATA 229,57,240,13,206,229,57,173 

,219,57,201,28,240,3,206,77704 

1430 DATA 219,57,173,230,57,240,13,206 

,230,57,173,220,57,201,204,80041 

1440 DATA 240,3,238,220,57,173,231,57, 

240,16,206,231,57,173,221,82404 

1450 DATA 57,141,2,208,201,39,240,3,20 

6,221,57,173,232,57,240,84481 

1460 DATA 16,206,232,57,173,222,57,141 

,3,208,201,208,240,3,238,86686 

1470 DATA 222,57,169,0,133,77,141,234, 

57,141,235,57,173,120,2,88504 

1480 DATA 201,15,240,16,165,20,41,7,20 

8,10,169,16,141,2,210,89965 

1490 DATA 169,4,141,224,57,173,120,2,5 

6,233,5,10,170,165,20,91514 

1500 DATA 106,106,106,106,189,160,57,1 

44,3,189,182,57,133,128,189,93369 

1510 DATA 161,57,144,3,189,183,57,133, 

129,162,3,78,120,2,176,94966 

1520 DATA 16,189,209,57,240,3,141,234, 

57,189,213,57,240,3,141,96955 

1530 DATA 235,57,202,16,232,173,236,57 

,201,12,208,9,206,35,52,98886 

1540 DATA 206,245,57,238,246,57,41,4,2 

40,8,238,217,57,169,0,100909 

1550 DATA 141,234,57,173,236,57,41,8,2 

40,8,206,217,57,169,0,102753 

1560 DATA 141,234,57,24,173,219,57,105 

,4,74,205,218,57,144,9,104474 

1570 DATA 206,35,52,206,245,57,238,246 

,57,173,218,57,105,10,10,106389 

1580 DATA 205,220,57,144,9,206,35,52,2 

06,245,57,238,246,57,24,108390 

1590 DATA 173,217,57,109,234,57,141,21 

7,57,141,0,208,24,173,218,110416 

1600 DATA 57,109,235,57,141,218,57,170 

,160,0,177,128,157,0,50,112132 

1610 DATA 232,200,192,14,208,245,173,1 

32,2,205,233,57,141,233,57,114456 

1620 DATA 176,63,173,234,57,13,235,57, 

208,5,238,233,57,208,50,116463 

1630 DATA 169,64,141,225,57,169,4,141, 

5,210,238,244,57,173,244,118604 

1640 DATA 57,41,3,170,173,234,57,10,15 

7,255,57,173,235,57,10,120293 

1650 DATA 157,3,58,24,173,217,57,105,3 

,157,247,57,173,218,57,121999 

1660 DATA 105,8,157,251,57,169,0,178,1 

57,128,49,232,16,250,162,123910 

1670 DATA 3,189,255,57,29,3,58,240,127 

,189,251,57,24,125,3,125520 

1680 DATA 58,157,251,57,168,10,105,2,2 

05,220,57,144,12,32,208,127206 

1690 DATA 56,109,230,57,141,230,57,76, 

31,56,233,12,205,219,57,128975 

1700 DATA 176,9,32,208,56,109,229,57,1 

41,229,57,185,128,49,29,130669 

1710 DATA 34,57,153,128,49,185,129,49, 

29,34,57,153,129,49,189,132093 

1720 DATA 0,208,168,0,106,144,3,76,195 

,56,200,192,4,208,245,133890 

1730 DATA 24,189,247,57,125,255,57,157 

,247,57,157,4,208,205,222,136101 

1740 DATA 57,144,12,32,208,56,109,232, 

57,141,232,57,76,111,56,137681 

1758 DATA 233,6,205,221,57,176,9,32,20 

8,56,109,231,57,141,231,139653 

1760 DATA 57,202,48,3,76,232,55,162,3, 
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169,0,29,255,57,29,141030 

1770 OATft 3,58,202,16,247,201,0,208,3, 

141,5,210,160,0,78,142562 

1780 DATA 237,57,144,40,32,10,57,185,2 

38,57,72,32,231,56,104,144114 

1790 DATA 168,240,23,162,3,254,43,52,1 

89,43,52,201,218,208,8,145978 

1880 DATA 169,208,157,43,52,202,16,238 

,136,208,233,76,189,56,200,148161 

1810 DATA 192,3,208,206,141,30,208,76, 

98,228,138,72,32,10,57,149860 

1820 DATA 32,231,56,104,170,76,111,56, 

169,0,157,255,57,157,3,151494 

1838 DATA 58,24,169,8,96,162,200,169,0 

,157,6,58,202,208,250,153261 

1840 DATA 96,174,16,210,224,288,176,24 

9,189,7,58,208,244,173.10,155489 

1856 DATA 210,41,15,201,10,176,247,153 

,238,57,25,204,57,157,7,157287 

1860 DATA 58,138,153,241,57,96,169,0,1 

90,241,57,157,7,58,173,159082 

1870 DATA 10,210,41,31,9,16,141,6,210, 

169,30.141,226,57,96,160475 

1880 DATA 3,12,48,192,8,0,18,10,60,116 

,60,28,30,62,63,161177 

1890 DATA 126,8,0,11,10,60,116,60,28,3 
8,62,62,247,0,0,161989 

1900 DATA 72,80,60,46,60,56,120,124,25 

2,126,0,0,208,80,60,163333 

1918 DATA 46,60,56,120,124,124,239,0,0 

,66,36,60,20,60,24,164368 

1920 DATA 60,126,126,231,8,0,66,36,60, 

40,60,24,60,126,126,165509 

1930 DATA 231,0,0,68,36,60,20,60,24,60 

,126,254,7,0,0,166455 

1948 DATA 34,36,60,40,60,24,60,126,127 

,224,0,0,68,36,68,167410 

1950 DATA 60,60,24,60,102,254,7,0,0,34 

,36,60,60,60,24,168251 

1960 DATA 60,102,127,224,0,0,62,57,62, 
57,62,57,0,0,38,169159 

1970 DATA 57,38,57,38,57,0,0,110,57,13 
4,57,86,57,74,57,170038 
1980 DATA 74,57,74,57,0,0,50,57,50,57, 
50,57,0,0,122,170743 

1990 DATA 57,146,57,98,57,16,80,144,38 
,41,1,255,0,0,0,171733 

2800 DATA 0,1,255,226,2,227,2,0,52,0,0 
,0,0,0,0,172498 


CHECKSUM DATA 
(See pgs. 7-10) 

100 DATA 817,614,80,233,884,712,13,669 

,51,479,193,937,474,484,282,6922 

258 DATA 285,126,878,689,503,189,136,4 

69,980,631,894,11,31,76,166,5984 

1130 DATA 174,210,183,831,739,238,97,7 

4,168,918,186,183,768,726,894,6389 

1280 DATA 179,511,757,70,780,373,752,1 

99,13,939,969,269,952,906,17,7686 

1430 DATA 434,201,157,52,186,712,689,4 

07,32,226,188,945,940,196,259,5624 

1580 DATA 66,458,25,309,36,207,201,236 

,260,727,30,33,86,84,918,3676 

1730 DATA 517,19,72,666,632,192,203,38 

3,205,199,966,508,37,279,659,5537 

1880 DATA 368,320,886,663,821,129,399, 

358,305,643,246,341,428,5907 


108 REH HARVEY UALLBANGER IWDS 
lie REH CA55ETTE HAKER PROGRAM 
120 REM 

240 OPEN »1,8,128,"C:" 

241 PROGS(1,1)=CHR$CO) 

242 PR0GSC2,2)=CHRSC12) 

243 PROGSC3,33=CHRSC250) 

244 PR0GSC4,4]=CHRSC51} 


Assembly listing. 


HAiWEY UALLBANGER by Charles Bachand 


Copyright (C) 1982 (mOG Magazine 


Operating Systent Equates 


HPOSP0 

= 

$0688 

jplayer 6 horizontal position 

M0PF 

= 

tD888 

jEfiissile 0/playtield collision 

HP0SP2 


10882 

Iplayer 2 horizontal position 

HP0SP3 


$D883 

;playep 3 horizontal position 

HPOSM0 


10884 

jffiissile 8 horizontal position 

P8PF 


10884 

jplayer 0/playfield collisions 

P0PL 


1D88C 

jplayer 0 to player collisions 

GRP2 


1O08F 

jplayer 2 graphics register 

COLBK 

= 

1081A 

joackoround color 

GRACTL 


10810 

jgrapnics control register 

HITCLR 

= 

1D81E 

^collision 'HIT' clear 

CQNSa. 

= 

100 IF 

;console switch port 

AUDFl 


10208 

;audio -frequency 1 

AUDCl 

=: 

10281 

;audio volume 1 

AU0F2 

= 

10282 

;audio -frequency 2 

AUDC2 

= 

10283 

;audio volume 2 

AUDF3 

= 

10284 

;audio -frequency 3 

AUDC3 

= 

10205 

;audio volume 3 

AU0F4 

= 

10286 

;audio frequency 4 

AUDC4 

= 

10287 

;audio volume 4 

RANDOM 

= 

1028A 

jrandom number qenerator 

IRQEN 

r 

1028E 

;IRQ interrupt enable 

PMt^SE 

= 

10487 

;P/M base address 

USYNC 

= 

1048A 

;wait for horizontal sync 

VCOONT 

= 

104eB 

;scan 1ine counter 

SETVBU 

= 

1E45C 

;set vertical blank vector 

X17VBV 

= 

1E462 

•^vertical blank exit vector 

SIOINT 

= 

1E465 

;serial I/O initialization 

ATRACT 


18840 

;atract mode counter 


Systen Shadou Registers 


RTCLOK 

= 

18812 

CDTMVl 

= 

10218 

CDTMU2 

= 

1021A 

CDTHAl 

= 

10226 

CDTm2 

= 

18228 

3DMCTL 

= 

1022F 

SDLSTL 

= 

18238 

GPRIO? 

= 

1026F 

STICKS 

= 

18278 

STR1G0 

= 

$0284 

PCOLR0 

= 

182C8 

PCOLRl 

= 

182C1 

PC0LR2 

= 

182C2 

PC0LR3 

= 

102C3 

C0L0R2 

= 

ie2C6 

C0L0R3 

= 

182C7 

C0L0R4 

= 

18208 


system clock 
isystem timer 1 
system timer 2 
isystem timer 1 vector 
isystem timer 2 vector 
DMA control 
display list pointer 
igraphics priority 
joystick 1 
trigger 1 
player 0 color 
player I color 
player 2 color 
iplayer 3 color 
iplay-field 2 color 
layfield 3 color 
ackground color 


Page Zero Uariables 


ORG S80B8 ;area not used by system 


PIC DS 2 ;rabbit image pointer 
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HARVEY CLO 


J 

Player 

/ Missile RAM Space 

JSR 

SIOINT 

i 



LDA 

#'3'+$Ae 




STA 

RNUM 


ORG 

$3000 ;out of ever/ones way 

LDA 

#3 




STA 

LIVES 

m 

DS 

$180 jfirst area not used 

LDA 

j|"0"+$A0 

MISL 

DS 

$30 ;Mi5Site qraphics area 

STA 

3NUM 

PLR0 

DS 

$36 iplayer 6 qraphics area 

STA 

SNIH+l 

PLRl 

DS 

$30 {player 1 graphics area 

STA 

3NUM+2 

PLR2 

DS 

$80 iplayer 2 graphics area 

STA 

SNlH+3 

PLR3 

DS 

$30 iplayer 3 graphics area 

MORE LDA 

060 




STA 

T1M2ST 

% 



STA 

CDTtf72 

} 

Program entry point 

JSR 

CLSCRN 

1 



LDY 

02 




INUMS JSR 

PUTNUM 


JHP 

WRVEr 

OEY 





BPL 

INUMS 




LDA 

0DLi$FF 

\ 

Game display 1ist 

STA 

SDLSTL 

5 



LDA 

0OL/256 




STA 

SDLSTL+1 

DL 

DB 

$70,$70 |32 blank scan lines 

LDA 

tl$04 


DB 

$70,$70 

STA 

6PRI0R 


DB 

$47 iiTiode 2 line w/LMS bit 

LDA 

040 


DU 

DISP laddress of gaie display 

STA 

BYLOC 


DB 

$07,$07 ;9 more mode 2 lines 

LDA 

0196 


DB 

$07,$87 ■ 

STA 

BYLOC+l 


DB 

$07,$07 

LDA 

040 


DB 

$07,$07 

STA 

BXLOC 


DB 

$07 

STA 

HP0SP2 


DB 

$78,$78 isKip 16 1 ines 

LDA 

0184 


DB 

$44 ;mode 1 lime w/LMS bit 

STA 

BXLOC+l 


DU 

SLINE laddress of score line 

STA 

HP0SP3 


DB 

$41 ;jump on vertical blank 

LOA 

0122 


DU 

DL |to start of display list 

STA 

i*iRX 




LDA 

055 

J 



STA 

tWRY 

% 

Score 

1 ine data 

LDA 

0$2E 




STA 

SDMCTL 




L[iA 

03 

SLINE 

DB 

'R'+$A8 

STA 

GRACTL 


OB 

••'A'T$A0 

LDA 

0PM/256 


DB 

'B'+$A0 

STA 

PMBASE 


DB 

'3't$A0 

LDA 

0$96 


OB 

•'r+$A8 

STA 

C0L0R2 


DB 

'■T'+$A0 

LDA 

0$48 


DB 

•'S'+$A6 

STA 

C0L0R3 


DB 

':'+$A0 

LDA 

0$18 

RNiH 

DB 

•'3'+$A8 inuniber o-l rabbits 

STA 

PC0LR8 


OB 

'• 'f$A0 

LDA 

0$98 


DB 

'S'+$A0 

STA 

PCOLRl 


DB 

'C't$A0 

LDA 

0$34 


DB 

'O'+$A0 

STA 

PC0LR2 


DS 

'R'+$A0 

LDA 

0$C4 


DB 

''E'+$Afl 

STA 

PC0LR3 


DB 

'■!'T$A0 

LDA 

01 

SNUM 

DB 

'0'+$A8 iscore display 

STA 

STRIGF 


OB 

'•0'+$A0 

LDX 

#7B/256 


DB 

'8'+$A8 

LDY 

0UBi$FF 


DB 

'0'+$A0 

LDA 

07 




JSR 

SETVBV 

» 



LDA 

0Tli$FF 

1 

bame over message 

STA 

COTMAl 

< 



LDA 

0T1/256 




STA 

CDTWHl 

GOMSG 

DB 

'game' 

LDA 

0T2i$FF 


DB 

a,0/ov' 

STA 

CDTItt2 


DB 

'■er',$80 

LOA 

0T2/256 




STA 

C0Tr«2+l 

PSMSG 

DB 

"pres' 

LDA 

01 


DB 

••5',0,0,'5' 

STA 

CDTMVl+1 


DB 

"tart",$80 

LDA 

00 




STA 

HITCLR 

} 



STA 

DIESU 

% 

Initialization Code 

STA 

TICTOC 


jclear deciiial -flaQ 
jstop cassette 
jdisplay -for '3' 

;3 I lyes (display) 
ipet 3 Iives 
;mi tial ize counter 
jdisplay -for ^0" 
istore in the ^our 
jbytes used 4or the 
; score display 
;area. 

ioet 1 second count 
[set reset ualue 
[set system timer ^2 
clear gaie playfield 
display 3 numbers (8-2) 
put the number on screen 
decrement number counter 
done yet^ No. 

Yes. low byte OL address 
DL pointer (low) 
high byte DL address 
[DL pointer (hiqh) 
set PF over PLAYER 
graphics priority 
high wall 
startinq location 
low walf 

starting location 
lett wall 
starting location 
hardware register- 
right wall 
starting location 
iharckare register 
center screen-4 color clocks 
Harvey's initial X position 
center P/M-8 bytes 
Harvey's initial Y position 
set P/TI DMA on bits 
store in DMA control 
set P/\^ enable bits on 
store in graphics control 
qet hiqh byte of P/M addr 
point hardware to it 
light blue color 
delault color too dark 
pink color 
same here 
gold color 
set rabbit color 
blue color 
iset missile 1 color 
red-oranqe color 
le+t wall color 
green color 
right wall color 
initial ize trigger -flaq- 
to no shot -fired 
address ot VB (MSB) 
address ot VB (LSB) 
deterred vertical blank opt 
set deferred Ubiank vector 
addr of timer I routine LSB 
set timer 1 vector LSB 
addr of timer 1 routine MSB 
;set timer 1 vector MSB 
addr of timer 2 routine LSB 
set timer 2 vector LSB 
addr of timer 2 routine MSB 
set timer 2 vector MSB 
iqet 4.25 second count 
set system timer #1 
get a zero 

reset col Iision registers 
rabbit is alive 
reset tictoc counter 
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STA 

OOLl 

;start with no tictoc scwnd 


STA 

OOL2 

jstart with no shuttle noise 


STA 

IRQEN 

jdisable ail IRQ interrupts 


LOX 

US 

;set index value to 3 

W1NC2 

STA 

U1NC,X 

;zero wal1 mover counter 


STA 

SHOTX,X 

;zero X missile location 


STA 

SHOTY.X 

;zero Y misslle legation 


STA 

SINCX,X 

;zero X missile increment 


STA 

SINCY,X 

;zero Y miss!le increment 


DEX 

;next wall mover counter 


BPL 

UINCZ 

;more walIs/missiles? Yes. 


TAX 


;set index to zero 

iMei 

STA 

HISL,X 

;c1ear Missile area 


STA 

PLR8,X 

;clear Player 0, 1 area 


INX 

;do next byte 


8NE 

1M01 

;done yet*^ No. 


LDA 

»FF 

;turn on pixels 

1M23 

STA 

PLR2,X 

;set Player 2, 3 area 


INX 


;do next byte 


BNE 

1M23 

;done yet? No. 


Main pograro used to generate the display. 
Actual game done entirely during display's 
vertical blank processing routine. 


HBARS 

INX 


jincrement wall pointer 


TXA 


;transter pointer to Acc 


AND 

01 

;mask ott lowest bit 


TAX 


;put back in X register 


LDA 

BYLOCjX 

; 9 et wall verticaf position 


LSR 

A 

;divide by 2, odd=carry set 


PHP 


;save carry tla 9 

OCHECK 

CMP 

OCOUNT 

;c(]mpare with line counter 


BNE 

VCHECK 

;not yet' 


STA 

USYNC 

,'Start at new line 


PLP 


jget carry flag back 


BCC 

ONELIN 

jbranch on even line number 


STA 

USYNC 

;wait tor next 1ine 

ONELIN 

LDA 

RFNDOH 

jrandoin background color 


^D 

«)F6 

;nax lum ot 6 


STA 

COLBK 

;tor horiiontal walls 


LDY 

010 

jlet^s have 16 1ines ot this 

LINES 

LDA 

00 

loet a zero tor overlap 


STA 

GRP2,X 

joackground overlaps pUyer 


STA 

USYNC 

;wait tor next line 


LDA 

R^DQM 

;randoffl background color 


AND 

0$F6 

jmax lum ot 1 


STA 

COLBK 

;tor horizontal walIs 


DEY 


jdecrement line counter 


BNE 

LINES 

;10 1 ines done yet'i* No! 


LDA 

C0L0R4 

;Qet original background 


STA 

COLBK 

jstore in background 


LDA 

LIMES 

;more lives 


BEQ 

HBl 

;No. skip code 


LDA 

DIESU 

;a new 1Ite? 


BPL 

HBl 

;No. 


JHP 

MORE 

;Yes. more lives 

Hei 

LDA 

CONSOL 

jcheck tor start switch 


AND 

0$ei 

;mask ott bit 


BNE 

HBARS 

;start’ No. 


JMP 

WRVEY 

;restart game 

j 

5 

System timer 01 

interrupt handler. 

. 

j 

Used to speed up walls every 4.25 seconds. 

5 

T1 

LDA 

T1M2ST 

;get wall speed 


CMP 

#2 

'.must stop at two 


BEQ 

TlMl 

;is it two? Yes. 


DEC 

TIM2ST 

;No, then decrement 

TlMl 

LDA 

01 

;get 4.25 second cycle time 


STA 

CDTW1+: 

;reset timer 01 


RTS 


ireturn 


T2 


OB 


OBXIT 

UB0 


N091D 


3ND2 


SND3 


System timer 02 interrupt handler. 

Used to move walls and initiate wall noise. 

LDA 

TIM23T 

get timer 02 value 

STA 

CDTMM2 

reset timer 02 

INC 

BYLOC 

move top wall down 

DEC 

BYLOC+1 

move bottom wall up 

INC 

BXLOC 

change !e+t wall location 

LDA 

BXLOC 

get new location 

STA 

HP0SP2 

change player 2 position 

DEC 

BXLOC+1 

change right wall location 

LDA 

BXLOC+1 

get new location 

STA 

HP0SP3 

change player 3 position 

INC 

TICTOC 

increment TIC-TOC counter 

LDA 

TICTOC 

get counter value 

AND 

01 

just need 8 or 1 value 

TAX 


use tor index 

LDA 

METRO,X 

get sound trequency 

STA 

AUDFl 

change trequency 

LDA 

0108 

get volume value 

STA 

MOLl 

save in volume counter 

RTS 


ireturn 

Deterred vertica 

blank processing routine. 

Here 

is where all 

the actual game playing 

takes place. This could be quite long. 

LDA 

DIESU 

rabbit dying? 

BNE 

MB8 

He sure is. 

1— 
S 

LIMES 

any lives left? 

»IE 

MB8 

There sure are. 

JSR 

CLSCRN 

clear screen of numbers 

LOX 

08 

initialize X with zero 

3TX 

AUDCl 

stop tictoc sound 

STX 

AUDC2 

stop dying sound 

STX 

AU0C3 

stop gun noise 

STX 

AUDC4 

stop number sound 

STX 

CDTMMl 

shut off the two timers 

STX 

COTMMl+1 

ditto. 

STX 

CDTIfJ2 

same here. 

LDA 

GOMSG.X 

get a character 

BMI 

PSINIT 

end of scring? Yes. 

STA 

DlSP+85,X:put on screen 

INX 


;increment index 

JMP 

GOPRT 

continue 

LDX 

00 

zero the index 

LDA 

PaiSG,X 

get another character 

mi 

MBXIT 

end ot string? Yes. 

STA 

DlSP+144 

X;put on screen 

INX 


increment index 

JMP 

PSPRT 

continue 

JMP 

M8X 

exit vertical blank 

LDA 

P8PL 

player/player collisions 

STA 

P8PLT 

store in temp variable 

LDA 

P0PF 

player to PF collisions 

STA 

P0PFT 

store in temp variable 

LDA 

NSOl^D 

treasure sound counter 

BMI 

NOSND 

end of sound? Yes. 

DEC 

NSOUND 

decrement volume 

LSR 

A 

divide volume by 2 

ORA 

t$A6 

add pure tone 

STA 

AU0C4 , 

change volume 

LDA 

MOLl 

get tictoc volume value 

mi 

3ND2 j 

if <0 we produce no sound 

DEC 

MOLl i 

decrement volume value 

ORA 

0«C0 ; 

mask on the distortion 

STA 

AUDCl ; 

generate the tictoc sound 

LDA 

M0L2 ; 

get shuffle voluirie 

BMI 

SND3 

if <0 we produce no sound 

DEC 

M0L2 1 

decrement volume value 

ORA 

i»80 ; 

mask on the distortion 

STA 

AUDC2 1 

generate the shuffle noise 

LDA 

FRE93 1 

get shot frequency 
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INC 

FREQ3 

increment shot frequency 


BCC 

PICWJH 


INC 

FREQ3 

do it again 


LDA 

PK2+1,X 


INC 

FREQ3 

and one last time 

PICKWH 

STA 

PIC+1 


STA 

AU0F3 

change frequency dower) 


LOX 

03 


IDA 

DIESU 

is rabbit dying 

CHKSTK 

L3R 

3TICK0 


BEQ 

TMOVl 

No. continue 


BCS 

CHKNXT 


INC 

DIESU 

res. 2 second die period 


LDA 

STBLX.X 


INC 

PCOLR0 

change rabbit colors 


BEQ 

CHK0 


INC 

PCOLR0 

again 


STA 

XTEMP 


LOA 

PCOLR0 

get number 

CHK0 

LDA 

STBLY.X 


ASL 

A 



BEQ 

chkn:^ 


ASL 

A 

^^4 


STA 

YTEMP 


ASL 

A 


CHKNXT 

DEX 



STA 

AUDF2 

use as frequency 


BPL 

CHKSTK 


LDA 

#$B8 

get distortion 


LDA 

P0PLT 


STA 

AU0C2 

make sound 


CMP 

0$8C 


JMP 

m 

exit vertical blank 


m 

NOSQIE 






DEC 

RNUM 

TMWl 

LDA 

UINC 

[check push wall up 


DEC 

LIVES 


BEQ 

TH0V2 

[push up? No. 


INC 

DIESU 


DEC 

UINC 

[decrement push up counter 

N0SQI£ 

AND 

0$04 


LDA 

BYLOC 

[get top wal1 location 


BEQ 

BiPRT 


CHP 

«28 

[compare with top of screen 


INC 

HARX 


BEQ 

TM0V2 

[at top? Yes. 


LDA 

00 


DEC 

BYLOC 

[move wall up 


STA 

XTEMP 

TMW2 

LDA 

WINC+1 

[check push wall down 

BMPRT 

LOA 

P0PLT 


BEG 

TMOMB 

[push down? No. 


AND 

0$8S 


DEC 

UINC+1 

[decrement push down counter 


BEQ 

BMPUP 


LDA 

BYLOC+1 

[get bottom wall location 


DEC 

HARX 


CMP 

0204 

[compare bottom of screen 


LDA 

00 


BEQ 

TMOL/a 

[at Dottore? Yes. 


STA 

XTEMP 


INC 

BYLOCU 

[mo<ve wall down 

BMPUP 

CLC 


TMW3 

LDA 

UlNC+2 

[check push wall left 


LDA 

BYLOC 


BEQ 


[push left? No. 


ADC 

04 


DEC 

UINC+2 

[decrement push left counter 


LSR 

A 


LOA 

BXLOC 

[Qet left wall position 


CMP 

WRY 


STA 

HP0SP2 

[move left wall player 


BCC 

BMPDN 


CMP 

039 

[check for left wall limit 


DEC 

RNUM 


BEG 

TM0V4 

[at 1imit? Yes. 


DEC 

LIVES 


DEC 

BXLOC 

[move wall left 


INC 

DIESU 

TMI^'4 

LDA 

UINC+3 

[check push wall right 

BHPDN 

LDA 

WRY 


BEQ 

TMffJX 

[push right? No. 


ADC 

010 


DEC 

UlNC+3 

[decrement push right counter 


ASL 

A 


LDA 

BXLOCH 

[Qet right wal1 position 


CMP 

BYLOC+1 


STA 

HP0SP3 

[move right wall player 


BCC 

NOBMP 


CMP 

0208 

[check for right wal1 limit 


DEC 

RNlli 


BEG 

TMO'.DI 

[at 1imit? Yes. 


DEC 

LIVES 


INC 

BXLOC+I 

[mo<ve wal 1 right 


INC 

DIESU 

THffvW 

LDA 

00 

[get a zero 

NOBMP 

CLC 



STA 

ATRACT 

[poke out atract mode 


LDA 

WRX 


STA 

XTEMP 

[Zero rabbit X increment 


ADC 

XTEMP 


STA 

YTEMP 

[zero rabbit Y increment 


STA 

WRX 


LDA 

STICK0 

[get Joystick value 


STA 

HPOSP0 


CMP 

0f0F 

[at center position? 


CLC 



BEG 

CBTTER 

[Yes. skip code 


LOA 

WRY 


LDA 

RTCLOK+2 

[get real time clock LSB 


ADC 

YTEMP 


AND 

m? 

[at 1/7.5 second mark? 


STA 

WRY 


BNE 

CENTER 

[No. skip code 


TAX 



LDA 

0$1G 

[get shuffle frequency 


LDY 

00 


STA 

AUDF2 

[set frequency register 

MOVHAR 

LDA 

<PIC),Y 


LDA 

tt$04 

[get volume value' 


STA 

PLR0,X 


STA 

U0L2 

;set shuffle volume 


INX 


CENTER 

LDA 

STICKS 

[get Joystick value 


INY 



SEC 


[set carry for subtract 


CPY 

014 


SBC 

05 

[values 5-15 only 


BNE 

MOVHAR 


ASL 

A 

;5-15 now 8,2,4,... 


LDA 

STRIG0 


TAX 


;use for index 


CMP 

STRIGF 


LDA 

RTCLOK+2 

[Qet real time clock LSB 


STA 

STRIGF 


ROR 

A 

[divide by 2 


BCS 

NOFIRE 


ROR 

A 

[divide by 4 


LDA 

XTEMP 


ROR 

A 

[divide by 8 


ORA 

YTEMP 


ROR 

A 

[carry set/reset at .13 sec 


BNE 

FIREGN 


LDA 

PK1,X 

[get rabbit picture LSB 


INC 

STRIGF 


BCC 

PKm 

[Other pic at .13 sec? No. 


BTE 

NOFIRE 


LDA 

PK2,X 

[qet alternate picture LSB 

FIREGN 

LDA 

0$40 

PIOWL 

STA 

PIC 

[Store LSB of pic address 


STA 

FREQ3 


LDA 

PK1+1,X 

[get rabbit picture MSB 


LDA 

0104 


iother pic at .13 sec? hto. 
iget alternate picture MSB 
I store MSB of pic address 
count 3 dmnto 6 
ishift bit into carry 
icorrect direction? No. 
icheck X movement direction 
imovement allowed? No. 
istore X movement value 
icheck Y movement direction 
[iwyvement allowed? No. 
store Y movement value 
;do next stick position 
;done ye Li* No. 
loet player 8 col 11 si on 
left/right saueze? 
iNo. Check inovdual walls 
[decrement 1ives display 
[decrement lines counter 
the rabbit has died switch 
[Check left wal1 col Iision 
hit left wall? No. 

[Yes. Mo».»e rabbit to right 
get zero value 
[Stop rabbit X moveirient 
get player 8 collision 
[check right wall collision 
[hit right wall? No. 

[Yes. Hove rabbit to left 
get zero value 
[Stop rabbit X movement 
[dear carry for add 
[top wall Y location 
[offset by 4 
[divide by 2 

[compare rabbit Y location 
[hit top wall? No. 
[decrement lives display 
[decrement lines counter 
[the rabbit has died switch 
[Qet ratoit Y location 
offset by 18 
[multiply by 2 
[compare bottom wall Y 
[hit bottom wall? No. 
[decrement 1ives display 
[decrement lines counter 
[the rabbit has died switch 
[dear carry for add 
;get rabbit X position 
[add X increnwnt 
[save new rabbit X position 
[position rabbit player 8 
[dear carry for add 
iget rabbit Y position 
;add Y increment 
[save new rabbit Y position 
[use position as index 
[initialize picture counter 
[get rabbit picture byte 
[Store in player 8 area 
[increment player pointer 
[increment picture pointer 
[check for end of picture 
[at end? No. 

[get trigger value 
[compare with trig^r flag 
[save new trlggerflag 
[Shot fired? No. 

[rabbit X increment 
[OR rabbit Y increment 
[rabbit stationary^ No. 

[set trigger flag to I 
[Skip fire routine 
[initialize frequency 
[zero audio freq 3 
[Shot volume + distortion 
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NOFIRE 

ERASES 

PLOTS 


HITTP 

PL07NH 

MHPF 

MHPF0 


HITLF 


172 


STA 

INC 

LDA 

AW 

TAX 

LDA 

ASL 

STA 

LDA 

ASL 

STA 

CLC 

LDA 

ADC 

STA 

LDA 

ADC 

STA 

LDA 

TAX 

STA 

INX 

BPL 

LDX 

LDA 

ORA 

BEQ 

LDA 

CLC 

ADC 

STA 

TAY 

ASL 

ADC 

CMP 

BCC 

JSR 

ADC 

STA 


AUDC3 

SHOTS 

SHOTS 

#3 

XTEMP 

A 

SINCX,X 

YTEMP 

A 

S1NCY,X 

l«IRX 

«3 

SH0TX,X 

HARY 

08 

SHOTY.X 

He 

M1SL,X 

ERASES 

#3 

SINCX,X 

S1NCY,X 

NOPLOT 

SHOTYjX 

SINCY,X 

SHOTYjX 

A 

82 

BYLOC+1 

Hinp 

ZINCXY 

UlNC+1 

UlNCtl 

PLOTW 


;enab1e volune 3 
;increment shot pointer 
;get shot pointer 
jmake it 0-3 only 
;use pointer tor index 
jget rabbit X increment 
{make shot twice as fast 
;set missile X increment 
;get rabbit Y increment 
{make shot twice as fast 
;set missile Y increment 
{dear carry for add 
{get rabbit X position 
{move to center X of rabbit 
{Shot initial X position 
{get rabbit Y position 
{move to center Y of raUiit 
{Shot initial Y position 
{zero accumulator 
{zero X index 
{zero all missiles 
{next missile byte 
{done? No. 

{count 3 downto 0 
{get missile X increment 
{ft? missile Y increment 
{any raoueraent? No. 

{missile Y position 
{dear carry for add 
{add Y increment 
{Store new Y position 
{Y position now index 
{multiply by 2 
{Offset for compare 
{Compare with bottom wall 
{hit bottom wall? No. 

{zero missile increments 
{add 8 to wall increment 
{new bottom wall increment 
{cmtinue 


SBC 

Off* 

BCS 

JSR 

ADC 

STA 

LDA 

ORA 

STA 

LDA 

OIM 

STA 

LDA 

LDY 

ROR 

BCC 

JMP 

INY 

CPY 

6NE 

CLC 

LDA 

ADC 

STA 


BCC 

J^ 

ADC 

STA 

JMP 


u I 

PLOTNH 

ZINCXY 

UINC 

UINC 

MISL,Y 

MlSMft<,X 

M1SL,Y 

MISL+1,Y 

MISMSK,X 

MISL+1,Y 

M0PF,X 

80 

A 

WPF0 

HHIT 

84 

WPF 

aiOTX,X 

SINCX.X 

SH0TX,X 

HPOSMB.X 

a(LK+i 

HITLF 

ZINCXY 

UINCt3 

UINCt3 

NOPLOT 


offset for bottom side 
compare with top wall 
hit top wall? No. 
zero missile increments 
add B to wail increment 
new top wall increment 
wt missile byte 
ft? missile mask 
store new byte 
Ofii next missile byte 
OR missile mask 
store new next byte 
missile/playfield collision 
init Y register 
collision? 

No. No. No. 

Yes. Yes. Yes. 
try next bit 
any more bits? 

Certainly! Yuk. Yuk. 
dear carry for add 
get missile X position 
add X increment 
store new X position 
position missile 
compare missile with wall 
hit right walP No. 
zero missile increments 
add 8 to wail increment 
new wall increment 
continue 


SBC 

OIP 

BCS 

JSR 


8d 

BXLOC 

NOPLOT 

ZINCXY 


offset for right side 
compare with left wall 
hit left wall? No. 
izero missile increments 



ADC 

UINC'1'2 {adJ 8 to wall increment 


STA 

WINC+2 ;ne« wall increnent 

NOPLOT 

DEX 

;next missile 


BMI 

NOPLl {missiles done? Yes. 


JMP 

PLOTS ;continue loop 

NOPLl 

LDX 

US jset up pointer 


LDA 

;zero accumulator 

CHKMIS 

ORA 

SlNCXjX {OR in X increments 


ORA 

SINCY.X {OR in Y increments 


DEX 

(decrement pointer 


BPL 

CHKMIS {at end? No. 


CMP 

#6 ;checl( shot increments 


BNE 

NOSSM) {any increments? Yes. 


STA 

AUDC3 {end shot sound 

NOSSW 

LDY 

jinitialize Y index 

MISHIT 

LSR 

P0PFT jshitt collision to carry 


BCC 

MHl (collision w/number? No. 


JSR 

ERANUM {erase the number 


LDA 

'/TBL,Y (get value of number 


PW 

;save on stack 


JSR 

PUTNIJH ;put out a new number 


PLA 

;get old number 


TAY 

{use as counter value 


BEQ 

sex {was it zero? Yes. 

SCORER 

LDX 

83 (point to score low digit 

SCI 

INC 

SNUMiX ;increment diqit 


LDA 

3NUM,X {get digit 


CMP 

8'9'+«Al{past ATASCII '9'+color’ 


BNE 

SCY ;No. continue 


LDA 

8‘'0'+5A6{reset digit 


STA 

SNUHjX ;change score display 


DEX 

{point to next digit 


BPL 

SCI {score rolled over? No. 

SCY 

DEY 

sdecreraent value 


BNE 

^ORER (scM'ing done? No. 

sex 

JMP 

VBX {exit routine 

MHi 

INY 

{check next color digit 


CPY 

83 {done 8-2 yet? 


BNE 

MISHIT {No. continue 

UBX 

STA 

HITCLR {dear collision registers 


JW 

XITVBIJ {exit deferred vertical blank 

MHIT 

TXA 

(save X register 


PHA 

(CH) stack 


JSR 

ERANUM {erase ninber hit and 


JSR 

PUTNllH {put a new one on screen 


PLA 

{pull X register 


TAX 

{from stack 


JMP 

NOPLOT {continue on 

• 

J 

■ 

Connonly used subroutines 

} 

Clear 

missile display area 

ZINCXY 

LDA 

110 ;c^t zero value 


STA 

SINCX,X {zero missile X increment 


STA 

SINCYjX j'zero missile Y increment 


ac 

jelear carry for add 


LDA 

#8 jget value ior add 


RTS 

;we return to the program 

5 

Clear 

the game playfieid 

CLSCRN 

LDX 

8280 (set 8-199 bytes 


LDA 

#0 ;to zero 

CL6 

STA 

D1SP“1,X;store in display 


DEX 

;count down 


HfE 

CL0 {past zero yet? No. 


RTS 

;return to program 


Put random number from 6-9 on screen at 
a random location 0-199 


POTNUM LDX RANDOM {get random ninber 
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PN0 


ERiWIjN 


CPX 

8200 

IS number < 200? 


DB 

$3C,$7E 

BCS 

PUTNUi 

No, try another 


DB 

$FE,$07 

LDA 

D1SP,X 

see if space is occupied 

HARDN2 

DB 

0,8 

BNE 

PUTNOM 

Yes. try again 


DB 

$22 ,$24 

LDA 

RiVIDQH 

qet another random number 


DB 

$3C,$?8 

AND 

#$0F 

limit it to 8-15 


DB 

$3C,$18 

CMP 

810 

is number < 18? 


DB 

$3C,$7E 

BCS 

PN0 

No. try another 


DB 

$7F,$E0 

STA 

VTBL,Y 

save nimber 

IWRUPl 

DB 

0,0 

ORA 

CTBL,Y 

OR with color 


DB 

$44,$24 

STA 

DlSPjX 

put number on screen 


DB 

$3C,$3C 

TXA 


move screen o-f-fset to A 


DB 

$3C,$18 

STA 

ATBL,Y 

save screen o-ftset 


DB 

$3C,$dd 

RTS 


end of routine 


DB 

$FE,$07 




lttRUP2 

DB 

0,0 

Erase number from screen 


DB 

$22,$24 





DB 

$3C,$3C 

LDA 

80 

get zero for blank 


DB 

$3C,$18 

LDX 

ATBL,Y 

qet # position on screen 


DB 

$3C,$d4 

STA 

D1SP,X 

blank number on screen 


DB 

$7F,$E8 

LDA 

RtffDQH 

get random nianber 


DB 

0,8 

AND 

8$1F 

mask off high bits 




ORA 

8$10 

make it $10“$IF 

PKl 

DU 

WRRTl 

STA 

AUDF4 

use as sound frequency 


DU 

HARRTl 

LOA 

838 

initialize- 


DU 

WRRTl 

STA 

NSOUND 

volume counter 


DU 

8 

RTS 


end of routine 


DU 

HARLFl 





DU 

rt^RLFl 





DU 

HARLFl 

Program tables and constants 


DU 

0 



— 


DU 

WRDNl 





DU 

HARUPl 

DB 

$03 

^missile 8 mask 


DU 

IMRFRl 

DB 

$8C 

jmissile 1 mask 




DB 

$30 

{missile 2 mask 

PK2 

DU 

lttRRT2 

DB 

$C8 

jmissile 3 mask 


DU 

WRRT2 





DU 

HARRT2 

DB 

0,0 

jle-ft view 11 


DU 

0 

DB 

$i2,$0A 



DU 

HARLF2 

DB 

$3C,$74 



DU 

l«RLF2 

DB 

$3C,$1C 



DU 

WRLF2 

DB 

$1E,$3E 



DU 

8 

DB 

$3F,$?E 



DU 

mRDN2 

DB 

0,0 

{left view 82 


DU 

WRUP2 

DB 

$0B,$0A 



DU 

HARFR2 

DB 

$3Cl$74 





DB 

$3C,$1C 


CTBL 

DB 

$18,$50 

DB 

$1E,$3E 



DB 

$90 

DB 

$3E,$F7 


METRO 

DB 

38,41 

DB 

0,0 

jright view #I 

STBLX 

DB 

$0l,$FF 

DB 

$48,$50 



DB 

$00,$00 

DB 

$3C,$2E 


STBLY 

DB 

$00,$00 

DB 

$3C,$38 



DB 

$01,$FF 


DB $78,$7C 

DB »FC,S7E 

HARRT2 DB 8,0 jriQht view #2 

DB $00,$50 

DB $3C,$2E 

DB $3C,$38 

DB $78,$7C 

DB $7C,$EF 

HARFRl DB 0,8 ;Front view #1 

DB $42,$24 

DB $3C,$14 

DB $3C,$18 

DB $3C,$7E 

DB $7E,$E7 

tt^RFR2 DB 0,8 {front view #2 

DB $42,$24 

OB $3C,$28 

DB $3C,$18 

DB $3C,$7E 

DB $7E,$E7 

HARDNl DB 8,0 {down view 01 

DB $44,$24 

DB $3C,$14 

DB $3C,$18 


{down view 82 


;up view 81 


;up view 82 


{rabbit pictures set 1 


{rabbit pictures set 2 


{tictoc tones 


> 

! 

Variable 1 

1 

mRX 

DS 

1 

IttRY 

DS 

i 

BYLOC 

DS 

2 

BXLOC 

DS 

2 

VOLl 

DS 

1 

VOL2 

DS 

1 

FREQ3 

OS 

1 

NSOIJNO 

DS 

1 

TICTOC 

DS 

1 

T1M2ST 

DS 

1 

UINC 

DS 

4 

3TRIGF 

DS 

1 

XTEMP 

DS 

1 

YTEMP 

DS 

1 

P0PLT 

DS 

1 

P0PFT 

DS 

1 

VTBL 

DS 

3 

ATBL 

DS 

3 

SHOTS 

DS 

1 


Harvey's X locatin 
Harvey's Y location 
horizontal wall Y locations 
vertical wall X locaticms 
tictoc volume 
shuffle volume 
shot frequency 
pick number up sound 
tictoc sound counter 
wall speed timer 
wall mover counters 
trigger compare register 
temporary variable' 
temporary variable 
player 0 collision shadow 
fl to PF collision shadow 
value of 8's on screen 
screen offset to 8's 
shot enable counter 
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HUES 

DS 

1 

DIESU 

DS 

1 

SHOTX 

DS 

4 

SHOTY 

DS 

4 

31NCX 

OS 

4 

3INCY 

DS 

4 

DISP 

DS 

200 


END 

l*1IWEY 


;number o-f lives left 
;rabbjt dying switch 
imissile X location 
jnissile Y location 
jmissile X increment 
jmissile Y increment 
;screen display area 




Cube Demo 


5 REM CUBE 'FILL' GRAPHICS DEMO 

M 

10 GRAPHICS 7+16:SETC0L0R e,0,12:SETC0 
LOR 1,3,2:SETC0L0R 2,7,4:HUE=1 
20 FOR CUBE=1 TO 15:RANDzRNDf01:NAX=15 
+ 15»RAND:NIN=5F5«RAND:PX=2+RND C0)*116; 
PY=2e^RNDfO)«52:REM 15 CUBES *»» 

30 K1=PX4MIN:X2=PX+MAX;X3=X2+MIN;Y1=PY 
+MIH;Y2=PY+I«X:Y3=Y2+MIM:REM *** CUBE 
COORDS *** 

35 COLOR 0:PLOT X311,Y3+1:DRAHTO X3+1, 
Y1:DRAMT0 X2,PY-l:DRAHT0 PX-1,PY-1 

36 DRAMTO PX-1,Y2:DRAHTO XI,Y3+1:DRAHT 
0 X3+1,Y3+1 

40 FOR N=1 TO MIN:PLOT PX4N,PY+N:DRAHT 
0 X2+H,PY+N:PL0T PX+N,PY4N:DRAHTO PX+H 
Y2'l'NsNEXT N 

50 FOR H=1 TO MAX+l:PLOT XI,Y1FN:DRAHT 
0 X3,Y1+N:NEXT N;REM *** 35-50 ERASE C 
UBE AREA *** 

55 REM mne nom drah & fill cube sides 

WWW 

X JIM 

60 COLOR HUE:PLOT X3,Y3:DRAHT0 X3,Y1;0 
RAHTO X1,Y1:P0SITI0N X1,Y3:P0KE 765,HU 
E:XIO 18,tt6,0,0,“S:":GOSUB 200 
70 COLOR HUE:PLOT X3,Y1:DRAHT0 X2,PY:0 
RAHTO PX,PY:POSITIOH X1,Y1:P0KE 765,HU 
E:XIO 18,tt6,0,6,''S:":G0SUB 200 
80 COLOR HUE:PLOT X1,Y3:DRAHT0 X1,Y1;D 
RAHTO PX,PY:POSITION PX,Y2:P0KE 765,HU 
F'MTd lit llf> fl II 

90 PLOT X1,Y3:DRAHT0 X1,Y2:DRAHT0 PX,Y 
2:P0SITI0N X1,Y3:XI0 18,tt6,0,0,"5:":ME 
XT CUBE 

100 REM *** ROTATE COLORS A HHILE *** 
110 FOR R0T=1 TO 500:T=PEEKC708}:POKE 
708,PEEKC709J:POKE 709,PEEK€710]:POKE 
710,T 

120 FOR DELAY=1 TO 20:NEXT DELAY:NEXT 
ROT:RUN :REM ««« DO IT AGAIN! *** 

200 HUE=HUE+1:IF HUE=4 THEN HUE=1 
210 RETURN 


CHECKSUM DATA 
(See pgs. 7-10) 

5 DATA 991,794,593,376,682,878.339,414 
,60,955,100,752,929,902,845,9610 
120 DATA 3,319,586,908 
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FILL ER UP II 


16K Cassette 24K Disk 
by Tom Hudson 


If you’ve ever typed in a game program from a 
computer magazine hoping for an arcade-quality 
masterpiece, you’ve probably been disappointed. 
Games written in BASIC are usually too slow to 
handle the complex graphics and game logic neces¬ 
sary for an entertaining arcade-style game. In an 
effort to satisfy those avid video-gamers out there, I 
have written Fill ^Er Up!, a public-domain assembly- 
language game. 

Typing the program* 

Before tackling the program listings accompany¬ 
ing this article, let’s look at them and see what they 
do. 

Listing 1 is the main data and data checking 
routine. This listing is used to create both tape and 
disk versions of Fill ^Er Up. The data that makes up 
the Fill ’Er Up program listed in hexadecimal (base 
16). The program is listed this way so that it will run 
with 16K cassette systems. I realize that those DATA 
statements aren’t fun to type in, but they are a neces¬ 
sary evil. 

Listing 2 should be added to Listing 1 if you are 
using an ATARI cassette recorder. 

Listing 3 should be added to Listing 1 if you are 
using a disk drive. 

Listing 4 is the assembly-language source code 
for Fill ’Er Up, created with the ATARI Macro 
Assembler editor. You DO NOT have to type in this 
listing to play the game! It is provided so that readers 
interested in assembly language can see how the pro¬ 
gram works. 

Follow the instructions to make either a cassette 
or disk version of Fill ^Er Up. 

Cassette instructions* 

1. Type Listing 1 into your computer. Use the 
C:CHECK program to check the accuracy of 
your typing. 


2. With Listing 1 in your computer, type in List¬ 
ing 2* This operation will merge the two listings. 
Make sure the lines were entered correctly, then 
CSAVE the new program. 

3. Type RUN and press RETURN. The program 
will begin printing the line numbers of the DATA 
statements as it reads and checks each one. It will 
alert you if it finds any problems in the DATA. 
Correct any problems in the data lines and re- 
RUN the program until all the DATA is checked 
and correct. 

4. When all the data lines are correct, the program 
will ask you to ^^READY CASSETTE AND 
PRESS RETURN.” Place a blank tape in your 
recorder, press RECORD and PLAY simultane¬ 
ously and press ready. When finished, the 
BASIC ”READY” prompt will appear. If you 
have not CSAVEd the BASIC program, do so at 
this point. You may not need this program again, 
but it’s good to have if you ever need another 
copy of the game. 

5. To play Fill ^Er Up, rewind the tape created by 
the BASIC program to the beginning. Turn your 
computer OFF and remove any cartridges. Press 
computer OFF and remove any cartridges. Press 
PLAY on the recorder, then turn your computer 
ON while pressing the START key. The com¬ 
puter will BEEP once. Press RETURN, and Fill 
'Er Up will load and run automatically. 

Disk instructions* 

1. Type Listing 1 into your computer. Use 
DiCHECK to verify your typing. 

2. After Listing 1 is correctly typed into your 
computer, type in Listing 3. The lines will auto¬ 
matically merge with Listing 1 . It’s a good idea to 
SAVE the whole BASIC program at this time. 
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3. Type RUN and press RETURN. The program 
will begin verifying the DATA lines, printing the 
line numbers as it checks each one. It will alert 
you if any errors are located in the data. Fix any 
incorrect lines and re-RUN the program until all 
errors are eliminated. 

4. When all the DATA lines are checked, the 
program will tell you to ^'INSERT DISK WITH 
DOS, PRESS RETURN.’’ Place a disk with DOS 
in drive 1 and press RETURN. The program will 
write an AUTORUN.SYS file to your disk. This 
file contains the Fill *Er Up game. When finished, 
the BASIC *'READY” prompt will appear. Make 
sure the BASIC program has been SAVED before 
continuing. 

5. To play Fill ^Er Up, place the disk containing the 
AUTORUN.SYS file in drive 1. Turn the com^ 
puter OFF, remove any cartridges and turn the 
computer back ON. Fill ’Er Up will load and run 
automatically. 

Game description. 

You have been assigned to build a series of water 
reservoirs in uncharted territory. Unfortunately, an 
electrified starfish (don’t boggle; read on) is patroll¬ 
ing the area. Using your joystick, you must 
manuever yourself around on the screen, building 
walls to hold the water, while avoiding the starfish. 

You start out on the white border surrounding the 
planned resevoir area. You may move around on 
these white walls by moving your joystick in the 
desired direction. You can build a reservoir wall by 
moving into the black ^'uncharted” area while 
pressing your joystick button. The walls you make 
can be any length, and must be terminated at a white 
wall. When you finish a wall by hitting a white wall, 
the area you have enclosed will fill with water. Do 
NOT run into the wall you are building or you will 
be destroyed. If the starfish hits you or any part of 
the wall you are building before you complete it, you 
will be destroyed. On levels 1,2,4,7,12 and 13 you 
will be safe from attack when standing on a white 
wall, but on other levels the starfish can destroy you 
on contact at any time! 

If you do not complete the levels in a certain time 
period, electrified sea urchins will begin appearing 
on the white walls, moving along it looking for YOU! 
These creatures prove fatal on contact, but they can 
be destroyed by trappping them inside a completed 
resevoir. The sea urchins have no sense of fair play, 
and will *'gang up” against you whenever possible. 

At the bottom of the screen are several informa¬ 
tion displays. ”TGT” indicates the TARGET area 
you must fill with water before you complete the 
level. ”CUR” indicates the CURRENT area you 
have filled. Once CUR reaches TGT, you have com¬ 
pleted the level and are awarded points. SCORE 
indicates the number of points you have gained. At 
the end of each level, the computer will give you 2 


points for each unit over the target you have filled. If 
the TARGET amount is 8000 and you fill 9000 
units, you receive 2000 points. ”Fill *Er Up” maybe 
paused at any time by pressing the space bar. 

This game contains 16 levels of difficulty. The 
level number is shown in the lower left corner of the 
screen. 

You have three lives, shown in the lower right 
corner of the screen. Good luck! □ 


1 REH FILL *ER UP* IT *** 

10 DOTO 8,1,2,3,4,5,6,7,8,9,0,0,0,0,6, 
0,0,10,11,12,13,14,15 

20 DIH D0T$O13 ,HEKC22) ;F0R K-O TO 22; 
REOD N:HEKfX)-N:NEHT K;LINE=990;RE5T0R 
E 1000;TRr4P 60;? "CHECKING DOTO” 

25 LIHErLINE + 10:? "LINE LINE ; REO!) DO 
T$;IF LENCD0TS)<>90 THEN 110 
28 D0TLIN=PEEK(183)iPEEKC18433t256;IF D 
OTLIHOLINE then ? "LINE ";LINE;" HISS 
ING*":END 

30 FOR KzX TO 89 STEP 2;Dl-OSC (D0T$(X, 
-48;D2 = 05CCD0T$ (KH , XU) 3 ~48 ; BYTE^H 
EKCD1)#16+HEX(D23 

35 IF P0S5=2 THEN PUT «1,BVTE;NEXT K;R 
EOO CHKSUM;G0T0 25 

40 T0T0L-T0T0L+BYTE:NEXT X;RE0D CHKSUM 
;IF TOTALzCHKSUH THEN 25 
50 GOTO 110 

60 IF PEEK(1953<>6 THEN 110 

100 ? "WRITING FILE";POSS-2;LINE3990;R 

ESTORE 1O00;TROP 60;G0T0 25 

110 ^ "BOD DOTO; LINE ";LINE;END 

1000 DOTO 0925858109148592090085808591 

O00OB1809191E&8OE691D004E681E692O592C9 

23D0ECO591C9O9D0E64C2D14,6169 

1010 DOTO O9OO8D2F028D1DD08DC802O9748D 

C4O2O9C48DC5O2O9OO8DC602O9348DC702O9F7 

8D30e2O92O8D3102O92E8D2F,11064 

1020 DOTO 02O9038D1DD04C28192O65E4O900 

O27F958OCO10FB8D14228O15223D16228D1722 

09118D6F02O9018DOC228DC4,15402 

1030 DOTO 22202F15O9408D6722O9808D6822 

O9DOO2O49D19219D2421CO18F7O2059O3521CO 

10FOO9008DC42285898DC622,28133 

1040 DOTO 8D1EDO8D2F028D0ED48D2822858O 

8D08D2O2O59D1D22CO10FO8D2622O9O38D2C22 

099O8D3C21O90O8DC402O924,24483 

1050 DOTO 3DC502O9948DC6O2O9C48DC782O9 

008DC882O9768DC102O93F8DC2028DC3O2O934 

8DC88209928D3002O92O8D31,29683 

1060 DOTO 82OO0OO21FO906205CE4O91O8DO7 

D4O92E8D2F02O9038D1DDOO94O8DOED44C9615 

O9O0O27F9D8O119DO0129D3O,34142 

1070 DOTO 129D00139D8013CODOEE60O583OO 

85800900858166802681068005808584268105 

818585068026810680268105,38869 

1080 DOTO 8018658485800581658585810900 

18658085800930658185810582290300058240 

401865808580058169008581,43824 

1090 DOTO 6002008682020086832046150683 

O900O02791808810FBE8EO56D0EBO9038DO622 

0E0622BD92228582BD962285,49247 

1100 DOTO 83BD90228D0722BD9E228D0822BD 

O2228DO9222O4615BD7E22O800118091800582 

186D072285820583186D0822,54123 

1110 DOTO 8583CEO922D0DFCEO62210BBO95O 

858BO954858COD26221869018D2922O9008D14 

228D15228D16228D17228D24,58606 

1120 DOTO 228D25228D202209FF8D23222049 

1OODFO2209908D2C21ODF922O9908D2D21OE26 

22BD01218D2922BDB1218D20,62917 

1130 DOTO 22BDC1218D7D22BDE12185958594 

O9048D232220491OO9O08DOC22OO9DO9239D09 

24COD0F78DD0228DCF22OD27,67913 

1140 DOTO 22DOFBO9FD8D00D2O9FE8D02D2O9 

FF8D04D2O9O38D01D28D03D28D05D2O90O854D 

O58OD023O589F022OE2622BD,74064 

1150 DOTO D121D017058B8582058C85832046 

15OO00BD8O223180DD7E22F0634CD118O587FO 

064C9C1O4C7416O9048587OD,79059 
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1160 OOTft 78028DC822ftABDi)122187DD12285 

88BDE122187OE122858E058DF0DCO58B18658D 

8&ftD22C99FB0D0858238FDDl,85004 

1176 DiiTrt 228Dft022^58C18658E8l>ftE22C^55 

B0BB850338FDE1228D^i822204615ft000BD8A22 

31808DCD228ECE220l>«iA2285,30224 

1180 DATA 82ADAB228583204615<i000BI>8(i22 

318048AD8462D00668D81E4C&41768DO7E22D8 

156DCD22ftECE22DD7E22D0GA,35830 

1130 DATA ADAD22858BADAE22858C4C7416AD 

CF22D0278DD022ADC8228D0323A3018DCF228D 

2822A58B8DAF228DB1228DB3,100333 

1200 DATA 22A58C8DB0228DB2228DB422ADCD 

22AECE22DD8222D0034CD118AED022ADC822DD 

0323F0OCEED022E83D0323A3,105830 

1210 DATA 003De324FE0324A3038DA322A58B 

8582A58C8583204615A060B1803D8E221D8222 

318OCEA322F013ACD022BE03,110621 

1220 DATA 23BDD1221865828582BDE1221865 

8385834CC517A582858BCDB32230068DB32Z4C 

0318CDB122B0038DB122A583,115711 

1230 DATA 858CCDB42230668DB4224C2018CD 

B222B0O38DB222AECE22ADCD22DD7E22F0034C 

7416A3008DCF222OF81BAD24,120720 

1240 DATA 228D2322AD25228D2A22A30F8D23 

2220431AA3O18DC32220B213AE2622AD242238 

FDA1218D2322AD2522FDB121,124652 

1250 DATA 8D2A2210034C5F16AD2622C30FF0 

O3EE26220E23222E2A22A3FF8D232220431AA2 

O5AOO0B3F322187D1D22C3OA,128283 

1260 DATA 3OOC38E30A3D1D22FE1C224CA318 

3D1D22C8CA10E2A2O5BD1D2203DO3D3521CA10 

F5A3O18DC4228DAC22202F15,132641 

1270 DATA A3408D6722A3808D6822A3O08DC4 

224C3615A3O08D01D28D03D28D05D2A3018DC6 

22A30F8DC722A3058588ADC7,137662 

1280 DATA 228D01D2AD0AD2231F8D00D2AD6A 

D223F00DC7228DC5028DC102A588D0E0CEC722 

10D7CE2C22AD2C22033G8D3C,142752 

1230 DATA 21C33OD025A33D8DEF20A3218DF0 

20AD1FDO2301DOF3AD1FD023O1F0F3A3158DEF 

2OA3218DF0204C6314A3018D,148203 

1300 DATA AC22AD0AD223FEC33FB8F78582AD 

0AD2237EC355BOF78583204615A000BD8A2231 

80DD7E22D0DB2O2F15A58285,153833 

1310 DATA 8BA583858CA3008DC322AD2822FO 

1C2OB213ADAF228582ADB0228583204615A0O8 

BD8E2231801D7E223180A324,158626 

1320 DATA 8DC502A30O8DC6228D1ED0858385 

8A4C5F16ADAF228DB522ADB0228DB622A3008D 

B722AEB722BD03238DCA22BD,163816 

1330 DATA 03248DCB22A3018DB822A3638DCC 

22ADB5228582ADB62285832O4615AO00ADC322 

DO10BD8E22318031804C0A1A,168465 

1340 DATA A3O68DCF2260BD8E2231801D7E22 

3100CECC22F01AAECA22ADB522187DD1228DB5 

22ADB622187DE1228DB6224C,173602 

1350 DATA DC13EEB822ADB822CDCB22F002Be 

034CD713EEB722ADB722CDD022F0O2B0B44CC3 

13A204A3003DF322CA10FAA2,173464 

1360 DATA 04AD2A22DDFF22F004801030O8AD 

2322DD0423BO06CA10E34C881AAD232238FD64 

238D2322AD2A22FDFF228D2A,183380 

1378 DATA 22FEF3224C551AA2O4AC2322300C 

BDF322O3D0331521C8CA1OF460A586FOO34C3F 

1BAD7D228586AD672238E30D,188874 

1380 DATA 8D6A22AD682238E32C8D6322AD0A 

D2C3FO3068AD8AD223674CCC1AAD6C22AA8D6B 

22AD6322187D6D228582AD6A,133725 

1336 DATA 22187D752285832O4615A0O0BD8A 

22318OF0O7A30F8DC122D0CCA58218632C8D68 

22A58318630D8D6722AD6B22,138132 

1400 DATA 8D6C22A3838536A636BD1422FO20 

BD0C228582BD1O228583284615A0OOBD8A2231 

80DD7E22FO0EA636A3O03O14,202820 

1410 DATA 22C63618D54C3F1BA3038DC322A6 

36BD18228537A636A437BD0C2218730422C33F 

B01E8582BD16221873O822C3,207587 

1420 DATA 55BO118583284615A000BD8A2231 

80DD7E22F015CEC32230B4AEC322A537187D01 

22230385374C431BA636A582,212273 

1430 DATA 3DOC22A5833D1022A5373D18224C 

361BA534FOO34C7416A5358534A203BD1422F0 

O6CA10F84C74168638AD0AD2,217045 

1440 DATA C3A0B8F38582AD0AD2237FC355B8 

F78583204615A000BD8A223188DD7E22D0DDA6 

38A5823D0C22A5833D1022AD.222751 


1450 DATA 6AD223O33D1822A3013D14224C74 

16A3018DC422A3008DCO22AD682238E32C8DB3 

22AD672238E30D8DBA22AEC0.227245 

1460 DATA 22ADB322187DF1228DB3228582AD 

BA22187DF5228DBA228583264615A0e0B1803D 

8A22DD7E22F0ODDD8222DOD1,232421 

1470 DATA A3088DBF224C731CADC0228DBF22 

20521D20FClCDD7E22D0e62O331D4C4BlCDD82 

22DO0620331D4CB31C2O461D.236412 

1486 DATA 4C541CA3008DC32220521D20FC1C 

DD8222D00620331D4C731CADC3221863018DC3 

22C303F00620461D4C7B1CAD.240407 

1430 DATA C0228DBF2220521D28FC1CDD7E22 

D00620331D4C4B1C20461D4CA51C205E1DA300 

8DC32220FC1CDD7E22D0O62O.244373 

1500 DATA 331D4CB31CADC3221863018DC322 

C304FOO62O461D4CC11C20171DDD8222D00320 

3E1DA30O8DC422602O461D20.248227 

1510 DATA FC1C4CE51CAEBF22ADB322187DF1 

228DBB228582ADBA22187DF5228DBC228583A5 

82C33FB811A583C355BOOB20.253777 

1520 DATA 4615A008B1803D8A2260A3O6A28O 

60ADBF228DCe22ADBB228DB322ADBC228DBA22 

60ADBF2218630123038DBF22.258338 

1530 DATA 60ADBF2238E30123038DBF2260AD 

B3228582CDB32230088DB3224C761DCDB122B8 

038DB122ADBA228583CDB422.263511 

1540 DATA 36068DB4224C8E1DCDB222B8038D 

B222204615AOO8BD8E22318OiD822231806OA3 

O08De3D28DO5D2ADB42238ED.268158 

1550 DATA B2228DC222ADB12238E3018DB122 

8DBD22ADB2228DBE2238E3018DB222ADB32218 

63018DB322ADB4221863ei8D.273050 

1560 DATA B422A3088D2B22A3008DC5222054 

lEC302D8F3EEC52220541EC3e2F0F62301D0E6 

ADC522C3O1FO052OE81EF0DA.278385 

1570 DATA ADBD228582ADBE228583204615A0 

00B1881D86223180EE2B2220541EC380F0E023 

01DOB6A3018DC52220541EC3.283210 

1580 DATA 06F00A2301D0A6EEC5224C2E1EAD 

C522C3O1DO034CDF1D20E81EDD8A22FOB44CDF 

1DADBD221863018DBD22CDB3.288351 

1530 DATA 22D050AD2422186D2B228D2422AD 

252263O08D2522A3008D2B22ADB1228DBD22A3 

008DC522A3868DO1D2ADC222.232630 

1600 DATA 8D00D2F083CEC222ADBE22186301 

8DBE22CDB422F00DADBD22CDB122D00868684C 

DF1D686860ADBD228582ADBE,238112 

1610 DATA 228583204615A00OBD8A223186DD 

8222D00DBD8A2211803180EE2822A3O268DD7E 

22DO03A30160C300D0O160A3.302731 

1620 DATA 0360ADBD228582ADBE2238E361CD 

B222F0OD8583204615A000BD8A22318660A368 

A20060ADFCO2C321D00DA3FF.307760 

1630 DATA 8DFC02AD272243FF8D2722AD2722 

F0034C5FE4ADC122300D63A08D07D2A3808D06 

D2CEC122A588F002C688A534,313036 

1640 DATA F606C633D602C634ADC422F0O34C 

5FE4A3O08583858AAD0DD8230CF002E68AAD0D 

D02301F002E683ADO4D02302.318528 

1658 DATA F6O2E6838D1ED0A587F002C687A5 

86FO02C686AD6522F006CE65224C3F1FA3018D 

6522AD66221863O1C307D0O2.323728 

1660 DATA A3008D6622AC6622AE6722A30O3D 

FF113D0812B32D223D0O12B334223D0112B33B 

223D0212B342223D0312B343.327636 

1670 DATA 223D04i2B350223D8512B357223D 

0612B35E223D0712AD68228D80D0ADAC22DO31 

A58B18632F8DO1D0A58C1863.331870 

1680 DATA 16AAA3O03D7D123D7E123D82123D 

8312A3403D7F123D8112A3A03D8012ADC622D0 

O3EEC102E630A53O4A2301A8.336324 

1630 DATA B3FF21853AA5382301A8A3138532 

A38O8531A3O1858FB3F1218533A3e0A68FBCF3 

21A2O43131C8CA10FAA633BD.343010 

1700 DATA 1422F827BD0C22BC102218632EA6 

8F3D02D0381863OE3DF321A8A63AA304853BBD 

F5213131C8CAC63B10F5C68F.348458 

1710 DATA 3012A53138E3888531A532E30085 

32E6334C3C204C5FE47O70704DO0300D6D0DeD 

ODODOD0DODODODODOD6D0DOD.351371 

1720 DATA ODODODODODODODODODODODODODOD 

OD6D0DOD6DeDOD6D0DOD0D0D6D6D6D0DOD0D6D 

0D0D0D0D6D0D0D0D0D0D0D0D.352556 

1730 DATA 0D6D0D6D0D6D6DeD6DODODOD6D6D 

OD0D0D0D0DOD0DODOD0D284615214623214132 

207070707070707070703046.354537 
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1740 DftTfl 5121704765213046732170703046 

8D2141F7203427341^00600060008000233532 

100000000000203610000000,356557 

1750 O0T0 33232F3225100O0O00O60O000O00 

00OO006O0027212D250O002F362532O0000O00 

O00000212E212C2F27OO232F,357463 

1760 D0T0 2O363534232E27O800000O006663 

60604765726075704100636306000060006002 

B3OOOOB40F0D0O08B504B30F,366748 

1770 D0T0 0E6OO6O0OO6O0O0OF0F2E5F3F300 

O0F3F4E1F2F40O00OOOO4O10EO28F8D41004F8 

E0D4E0440870D41F272E2320,365802 

1780 D0T0 302723202E3O2E2F2F303O040484 

03030302620202626101810101000061606161 

006101010100000101010707,366362 

1730 D0T0 6706660605650564640403030201 

0O826O0O885e2O5O882O2OF82O2O0403FF0201 

OOOieOFFFFOeOlOOOOOeOOOO,368048 

1868 D0T0 6060600000600006606606066006 

00006060000000666000660066000081402010 

080402424320100804022424,368762 

1810 I>0T0 131008C82418181C1FF838181818 

38F81F1C182424C8081O132442C28408102O43 

810204081026460000060606,370304 

1820 D0T0 OOeOOOOieieOFFFFFFOOOlOOOlOl 

0O61FFFFFF04401OO4ei8O2OO8O2CO3O0CO3CO 

300CO33FCFF3FCO03E3EOOO6,374230 

1830 D0T0 6054540ie0FF0060ei60FF3F553F 

55606000806000606060800060006060000066 

000000000600006000000600,375458 

1840 D0T0 0000600000600060006066608060 

oeooooooeooooieoooeoFFOoeooooooooooooo 

OOOOOOOeOOOOOOOOOeOlFFOO,375370 

1850 D0T0 O6610OFFFFOO61OO6O0OOO666O6O 

0OOO6eO327OlO064E81O66OOOOOOeO6e6OO066 

000006000006000006000000,376883 


CHECKSUM DATA 
(See pgs. 7-10) 

1 D0T0 338,355,686,427,745,132,617,834 

,445,436,543,150,852,324,104,7774 

1030 D0T0 121,368,374,344,311,363,145, 

258,276,448,483,547,207,532,414,6343 

1180 D0T0 273,331,340,36,11,311,87,57, 

213,152,322,325,387,110,337,3364 

1330 D0T0 73,335,403,357,275,510,28,43 

,154,25,103,247,143,113,166,2381 

1486 DftTO 35,146,70,465,277,253,135,23 

3,143,33,502,34,388,335,36,3811 

1630 DATA 300,427,177,66,262,175,222,3 

33,51,433,886,208,233,664,863,5246 

1780 DATA 80,235,856,546,765,47,848,8, 

3445 


2 REM *** CASSETTE UERSION 
65 IF PASS=2 THEN CLOSE ttl:END 
70 ? '‘READY CASSETTE AND PRESS RETURN" 
;:OPEN ltl,8,128,"C:";REST0RE 20O:FOR K 
TO 35:READ N:PUT ltl,N:NEXT X 
200 DATA 0,31,221,13,255,13,163,60,141 
,2,211,163,0,141,231,2,133,14,163.56,1 
41,232,2,133,15,163,45 
216 DATA 133,10,163,20,133,11,24,36 
1860 DATA 0060666060008066006006006066 
06006060600600606660006060006000666060 
060060600666600000600600,376883 
1870 DATA 0066066000000080600660600000 
00600600060600600080608066006000606066 
000000000086000000000600,376883 




2 REM DISK UERSION 

65 IF PASSi:2 THEN PUT »1,224:PUT ttl, 2; 
PUT ttl,225;PUT ttl,2;PUT ttl,O;PUT ttl,37 
:CLOSE ttl;END 

70 ? "INSERT DISK WITH DOS, PRESS RETU 
RN";;DIM IN$(l):rHPUT IN$;OPEN ttl,8,0, 
"D;AUTORUN.SYS" 

30 PUT ttl,255;PUT ttl.255;PUT ttl,0;PUT 
ttl,37;PUT ttl,23:PUT ttl,52 




Avssernbly listing. 


•FILL 'ER UP’ il 
;BY TOM HUDSON 


•ALP^BETIC DMTANTS 



= 

'A' -$20 

CB 



CC 

= 

■C'-i28 

CD 

= 

•■D--i20 

C£ 

= 

•■£'-*20 

CF 

= 

'F'-I20 

03 

= 

'G'-i20 

CH 

= 

••H'-S28 

Cl 

r 

'!'-*28 

CJ 

r 

'J'-S2« 

CK 

= 

K'-$20 

CL 

r 

'! '-$2fi 

m 

= 

H'-i20 

CM 


■N-$20 

CO 

= 

■•O'-*20 

CP 


'P-52e 

03 

= 

'Q'-*20 

CR 


■‘R'-428 

CS 

= 

'3'-*20 

r-T 

U i 


■■T'-*20 

cu 

= 

•IJ'-*20 

rti 


'y'-42e 

S) 

= 

'U'-$'28 

0? 


'X--*2e 

CY 


'Y'-*20 

r-} 

UL 

= 

'2'-$20 

CCOL 

= 

:'-*20 

;PflGE , 

T 

ZERO 

ITEMS 


ORG 

$30 

10 

DS 

1 

HI 

D3 

i 

PLOIX 

DS 

I 

PLOIY 

DS 

1 

LOHLD 

DS 

i 

HIHLO 

os 

i 


DS 

i 

MiMlM OS 

1 

TIMER 

DS 

1 

OEAOFG 

OS 

1 

mm 

DS 

1 

PX 

OS 

1 

py 

DS 

1 

X! 

03 

1 

Y1 

DS 

1 
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DESTM1 DS 

1 


STA 

LO 

{MEMORY LuCATlffl-l 

SHFLIP DS 

< 


ST A 

DESTLO 

{OF $1400. 

DESTLO OS 

i 


LDV 

#0 


OESTHl DS 

1 


COPYLP LOA 

ao?,Y 


SHTIHl 03 

I 


STA 

(DESTLO.) ,Y 


SHTIM2 DS 

i 


INC 

LO 


3HT1MI 03 

1 


INC 

DESTLO 


SHORTN DS 

1 


S4E 

INCEND 


DIRSfW 03 

i 


INC 

HI 


HflLDSx DS 

1 


INC 

OESTHl 


yeXHLO 03 

1 


INCEND LDA 

OESTHl 


CPYST DS 

1 


I31P 

HDIR/254 


CPYCIIT 03 

1 


BNE 

COPYLP 





LDA 

DESTLO 


;M!SCELLANEOIJS HEMORY USAGE 


CMP 

IIDIR4255 


< 



m£ 

COPYLP 


RiAREA = 

$1000 


JMP 

FILLUP 


MISSIS = 

PMAREa-*38S 





PLC = 

FMAREA+512 


1 



PLl = 

Pf1AREA+64e 


{miN PROGRAM STARTS HERE 


PL2 = 

PHAREA+76S 





pls 

FYWREA+894 





D13P = 

$3080 


FILLUP lDA 

#500 

TURN OFF... 

j 



STA 

DflACTL 

DMA 

;SYSTEM EQUATES 


STA 

GRftCTL 

GRAPHICS 

1 



STa 

COLBK 

BLACK 6ACK6ND 

KEY = 

$2FC 


LDA 

#$74 

BLUE 

C'^SOL = 

$00 IF 


STa 

COLPF0 

COLOR8 

PM6ASE = 

$040? 


LDA 

#$C4 

GREEN 

RAMOOf^ = 

$O20A 


STa 

COLPFl 

COlORI 

SETU'Rj = 

$E45C 


LDa 

#$0A 

WHITE 

XiTyR.' = 

$E45F 


STa 

C0LPF2 

C0L0R2 

COLBK = 

$2C8 


LDA 

#$34 

RED 

C0LPF8 = 

$2C4 


STA 

C0LPF3 

C0L0R3 

COLPFl = 

$2C5 


LDA 

#TITL0L&255 

SETUP... 

C0LPF2 = 

$2C6 


STA 

DLISTl 

TITLE... 

C0LPF3 = 

$2C? 


LDA 

#TITLOL/25.5 

DISPLAY... 

AUOCl = 

50281 


STA 

olistlh 

LIST' 

AIJDC2 = 

$0203 


LOA 

#$2E 

TtlSM 

AUDC3 = 

$0265 


STA 

OHACTL 

DMA 

AIJ0C4 = 

$0207 


LDA 

#3 

TURN »i... 

AUDF] = 

50288 


sta 

gractl 

GRAPHICS 

AIJDF2 = 

$0282 


JMP 

CKSTRT 

WAIT FOR START 

AU0F3 = 

$0284 





AIJ0F4 = 

$0204 


START JSR 

$E445 

ilNIT SOUNDS 

AUDCTL = 

$0288 


LDA 

#0 

{CLEAR OUT 

PRIOR = 

$026F 


LDx 

#127 

;AlL ZERO PAGE 

AfTRAU = 

54D 


CLP60 STA 

$80, X 

{USER MEMORY 

W-WCTl = 

$22F 


DEx 



II 

-J 
1— 
<20 

$238 


BPL 

CLPG0 


GRACTL = 

$0010 


sta 

SHORTF 

{STOP SHORTS 

NMIEN = 

$D48E 


sta 

3H0RTF+! 


COLFtIP = 

$2C0 


sta 

SHORTF+2 


COLPM! = 

$2CI 


STft 

SHORTF+3 


C0LPM2 = 

$2C2 


LDA 

#$1! 

{P41 priority 

COLPMS = 

$2C2 


STft 

PRIOR 


HP0SP8 = 

$0080 


LDA 

#i 

DCN T SHW 

HPflSPj = 

$0881 


STft 

3H00FF 

PLAYER OR STAR 

HPUSP2 = 

$0002 


STA 

FILLON 

WE still must 

HITCLR = 

$00 It 


JSR 

PMCLR 

CLEAR P,^1 AREA 

P8PF = 

$0864 


LOA 

#64 

AND SET UP THE 

PJPL = 

$0880 


STA 

STRH6T 

STAR'S HEIGHT 

STICK = 

1278 


LL'A 

#128 


STRIG = 

$264 


STft 

STRHOR 

HORIZiMAL P03ITii>I 




lDa 

#500 

nm LET'S 

•ORG 1(5088 

:AS3B1BlE ADOR. 

LDX 

#4 

ZERO OUT 

LOC ii'iea 

■,ACT!i4L ADDRESS 

ZSCLP STft 

SC0LIN-*4..x, 

THE SCORE 




STft 

SC0LIN415.X 

AREAS' 




DEX 



iRELOChIE program (DISK yERSIUI i>ILY) 

BPL 

ZSCLP 





LDX 

#5 





ZSCLP2 STA 

SC0LH2+12,X 


HiMPG lDA #i25 

.•FOR DISK CNLY. 

DE.X 



ST A Hi 

iTHlS SECTION 

BPL 

ZSCLP2 


LOA 

iMiJDES THE 

LDA 

#8 : 

THESE ITEMS 

STft DESTHi 

{PROGRAM TO 

STA 

FILLW ; 

MUST BE SET 

LDA m 

{ITS OPERATlOfWL 

STA 

deadfg 

TG ZERO ON 
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3TA N0CCH6 

{STARTUP OR 

LLY» HI 

STA HITClfi 

{ELSE WE-LL 

STA HIHLD 

3TA OmCTL 

{WIND UP WITH 

ASL LO 

STA rillEN 

{NASTY THINGS 

rol hi 

STa mSDRN 

{HAPPENING' 

ASL LO 

STA HSHORT 

ROL HI 

STA AUDCTL 


LDA LO 

LDX #5 

{LET'S ZERO 

CLC 

!>I3lP STA SCORE ,X 

{OUT THE SCORE 

ADC LOHLD 

DEX 

{COUNTER... 

STA LO 

BPL mSLP 


LDA HI 

STA LPVEL 

{AND LP7EL #' 

ADC HIHLD 

LDA US 

{WE START WITH 

STA HI 

STA LIMES 

{3 LI'OES 

LDA #0ISP&255 

ORA nn 

{AND PUT THEM IN 

CLC 

STA SC0LN2419 

{THE SCORE LINE 

ADC LO 

LDA #»0A 

{NEXT WE SET UP 

STA LO 

STA COLPFe 

{THE COLORS WE 

LDA #0ISF/'256 

LDA l»24 

{Wf^Cr TO USE. 

ADC HI 

STA COLPFl 


STA HI 

LDA Itt94 


LDA PLOTX 

STA C0LPF2 


AND #3 

LDA WC4 


TAX 

STA C0LPF3 


LOA PLOTX 

LDA 48 


LSR A 

STA COLBK 


LSR A 

LDA #$76 


CLC 

STA COLPtil 


ADC LO 

LDA #$3F 


STA LO 

STA CDLPH2 


LOA HI 

STA C0LPM3 


ADC #8 

LDA #$34 


STA HI 

STA COLPlie 


RTS 

LDA #DLIST&255 

{WE'D BETTER TELL 


STa DLISTL 

{THE COMPUTER WHERE 

{CLEAR THE DISPLAY MEMORY 

LDA #DLIST/256 

;OUR DISPLAY LIST 

CLRDSP LDX #8 

STA OLISTLH 

{IS LOi^TED! 

LDY #1NTRPT&255 

{TELL WHERE THE 

3TX PLOTX 

LDX #INTRPT/256 

{VERTICAL BLiWK 

LDX #8 

LDA #6 

{INTERRUPT IS 

DLOOP2 STX PLOTY 

JSR SETV8U 

{AND SET IT' 

JSR PLOTCL 

LDA #Pt1AREA/256 

{HERE'S OUR P.'M 

LDX PLOTY 

STA PHBASE 

{GRAPHICS AREA' 

LOA «$88 

LDA #$2E 

{TURN ON THE 

LDY #39 

STA DmCTL 

{Dm CiMROL 

DL00P3 STA (LO),Y 

LDA #$3 

{AND 

DEy 

STa GRACTL 

{GRAPHICS CCHTROL! 

BPL DL00P3 

LDA #$48 

{ENABLE UB! 

INX 

STA ttllEN 


CPX #36 

JMP CLRDSP 


8NE DL00P2 

PNCLR LDA #8 

{CLEAR OUT 

{DRAW THE COLOR 1 BORDER 

LDX #127 

{THE P.'M AREA: 

PHICLR STA MISSLS.X 

{MISSILES, 


STA PL0,X 

{PLAYER 8, 

LOA #3 

STA PL1,X 

{PLAYER 1, 

STA BORNUM 

STA PL2,X 

{PLAYER 2, 

BORDER LDX BOI^UM 

STA PL3,X 

{AND PLAYER 3! 

LDA BXSTRT.X 

DEX 

STA PLOTX 

8NE PHICLR 

{LOOP UNTIL DONE 

LDA BYSTRT.X 

RETURN RTS 
( 

1 

{WE'RE DONE' 

STA PLOTY 

LDA BXINC.X 

{PLOT ADDRESS CALCULATOR 

< 

STA BDINCX 

LDA BY INC,X 

{MULTIPLY PLOTY BY 48. 

THEN i^ILCULaTE ADDRESS 

STa 80INCY 

;0F THE SCREEN MEMORY I 

0 BE ALTERED. 

LDA BORCNT.X 



STA BOCNT 

PLOTCL LDA PLOTY 


DRyWLN JSR PLOTCL 

ASL A 


LDA COLORl,X 

STA LO 


LDY #8 

LDA #8 


ORA (LO),Y 

STA HI 

1*2 

STA (LO).Y 

LOA PLOTX 

ASL LO 


ROL HI 

{»4 

CLC 

ASL LO 


ADC BOINCX 

LDA LO 


STA PLOTX 

STa LOHLD 


LOA PLOTY 

ROL HI 

{*8 

CLC 


;*16 

i»32 


;**®=*40 


;tOI3PLAY START 
;HASK X POSlTIOtl 


;L0 & HI NiU HOLD 
;THE ADDRESS' 
lEXIT' 


;THI5 SOUTINE WILL 
)CLEAR the screen RfiN. 
;IT GETS THE ADDRESS 
jOF THE BEGIWING OF 
;EACH GR.r LINE 
ITHBI ZEROES OUT 
;£ACH OF THE 
:48 9YTE3 <6-3?) 

;!N THE LINE. 


;TH1S ROUTINE 
{DRAWS THE 4 LINES 
{Tl^T mKE UP THE 
{WHITE GR.? BORDER 
{ON THE SCREEN. 
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flOC BDINCV 
STA PlOTY 
DEC BOiXT 
B1E DRAULN 
DEC BORNlfl 
BPL BORDER 


THIS SECTION STARTS OFF EACH LP^EL 


LOA «30 

jPOSITION THE 

STa PX 

•PLAYER 

LOA «S4 


STA PY 


LDA LPv'EL 

:1ICREMBTT THE 

CLC 

;LPJEL NUMBER 

ADC #1 


STA laJK 


LDA #8 

jZERO OLIT 

STA SHORTF 


STa SH0RTF41 


STA SH0RTF42 


STA SHORTF+3 


STA CURLO 

;CURRENT TALLY 

STA CURHI 

;UORK AREA 

STA H]«k 


LDA «FF 

;TELL DECimL COHVERTER 

STA SLLOC 

:NOT TO PLACE RESULT 

JSR WOEC 

;C(WVERT LEVEL # 

LDA DECIMAL+1 

;GET DECIMAL LPJEL # 

ORA #490 

iADD COLOR 

STA SC0LN2+3 

•PUT IN SCORE LINE 

LDA DECiWL 

:S#-1E FOR '2ND 

ORA #390 

: LEVEL # 

STA SC0LN244 

iDIGIT 

LD,!( LEVEL 

;GET THIS LEVEL'S 

LOA TGTLO.X 

iPARAMETERS 

STA 


LDA TOTH!,X 


STA HlUt: 


LDA STARSP,X 


STA STRSPD 


LDA SHTIME.X 


STA 3HTIH' 


STA 3HTII12 


LDA #<; 


STA SLLOC 


JSR i^FJOEC 

iSHOU TARGET (VIOUTT 

•CLEAR OUT THE TRACKING TABLE T^t1T 

;REMENBERS WHERE THE PLAYER UITJED 

CLRTRK LDA #0 


STA 3H00FF 


TAX 


CLRTLP STA OIR,X 

iCLEAR DIRECTION 

STA LGTH.X 

lAND LPiGTH ENTRIES 

DEX 


BrlE CLRTLP 


STA HOVIX 

;CLEAR MOVEMBTT INDEX 

STA DRiWFG 

;AND DRAW pLAG 

GETSTK LDA PAUSE 

iGF<1E PAUSED? 

BflE GETSTK 

;YES. LOOP (tID WAIT. 

LDA #4FO 

;DO 'WARBLE' SOJ-ID 

STA AUOFl 

;USING SOWD 

LDA fl4FE 

iCmTMLS 1-3 

STA AUDF2 


LDA #3Ff 


STA AUDF3 


LOA #4A3 


STA AUDCI 


STA AiJDC2 


STA AIJDC3 


LOA #0 

;NO AHRaCT MODE' 

STA A^TRAC 


LDA rtSHORT 

;D!D SHORT HIT US? 

BNE JCRSH 

;YES' WE'RE DEAD' 

LOA DEaOFO 

;D!0 STAR HIT US’ 


BEQ ALIVE 

NO' 

LDX LEVEL 

IT HIT US- 

LDA KILLF6,X 

UNCONDITIONAL KILL’ 

BNE JCRSH 

YES' WE'RE DEAD'!' 

LDA PX 

NO, IF WE'RE m A 

STA PLOTX 

WHITE line ^COLOR 1 

LDA PY 

THEN WE'RE ALIVE' 

STA PLOTY 


JSR PLOTCL 


LDY #0 


LDA BITSON.X 


AND (LO),Y 


CMP COLORl ,X 

ON COLOR 1’ 

BEQ ALIVE 

YES (WHEW) 

JCRSH JMP CRASH 

GO KILL PLAYER. 

ALIVE LDA HUVTIM 

PLAYER MOtVING? 

BEQ GOTSTK 

yes-get stick. 

•IMP MOVSTR 

NO, MOVE STAR. 

JGSTK JMP GETSTK 

GO GET STICK 

GOTSTK LDA #4 

SET UP THE 

STA MOVTIH 

MOVEMENT TIMER 

LOA STICK 

GET THE STICK 

STA STKHLD 

AND SAVE n 

TAX 

THEN LOOK UP 

LDA XD,X 

X DIRECTI 

CLC 


ADC XD.X 


■STA XI iAND 

LDA YD.X ; 

rl r 

Y DIRECTION 

ADC YD,X 


STA YI 


ORA XI 

ANY MOVEMENT’ 

BEQ JGSTK 

NO, TRY AI^IN, 

LOA PX 

INCREMENT 

ClC 

PLAYER X 

ADC XI 

POSITICN AND 

STA CKX 

HOLD IT... 

W #15? 

OFFSCREEN’ 

BCS JGSTK 

YES' 

STA PLOTX 

NO, :3AVE IT 

SEC 


SBC XO,X 


STA PXUC 


LOA PY 

INCREMENT 

CLC 

PLAYER Y 

ADC YT 

POSIT ii]N AND 

STA CKY 

HOLD IT... 

|>1P #35 

OFFSCREEN’ 

BCS JGSTK 

YES 1 

STA PLOTY 

NO, SAiVE IT 

SEC 


SBC YO,X 


STA PyWC 


JSR PLOTCL 1 

LOCATE NQI PLAYER 

LDY #0 i 

POSITION. 

LOA BIT'SON,X 


AND ';L0),y' 


STA CKV 1 

SAIVE THE 'LOCATE'. 

STX CK'VX 


LOA PXUC 1 

CHECK THE 

STA PLOTX i 

POSITION NEXT 

LDA PYWC ; 

TO THE ONE WE'RE 

STA PLOTY 1 

NOW IN... 

JSR PLOTCL 


LDY #0 


LDA BITSON.X 


AND (LOi.Y 


PHA 

lANO .SAVE IT' 

LDA STfilb 

iTRlBGER PRESSED’ 

BNE NOTDRN 

;NO! 

PLA 

;OK TO DRAW’ 

a-lE J63 

;NOI' 

JMP ORAVIN 

iVES, GO DRAW, 

NOTDRN PLA 

INOT DRAWING-ARE WE 

CMP COLOR! ,X 

iCN COLOR 1’ 

BNE JOS 

iNO, TRY Ai^IN 
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LDA CKM 

;AR£ UE MOVING 

LOX CWX 

;»ITO ANOTHER 

CMP COLQRl ,X 

;COLOR IT' 

&IE JGS 

;NO! TRY AftllN. 

LDa CkX 

;aLL''S well... 

STA PX 

IUPOa.TE PX 

LDA CkY 

1^10 

3TA PY 

;PY. 

JGS JMP GETSTK 

iGET STICK. 

■THIS ROUTINE rtVIOLES THE DRAU FUNCTiai. 

6raUIN LDA ORAIJFG 

jALREADY DRAWING? 

mi DRrt.lOK 

;YES' 

3TA MOiJIX 

iNO, THIS IS THE 

LOA STKHLD 

1 FIRST TIME-SET UP 

3TA OIR 

;INITIAL DRAWING 

LDA #1 

3TA ORAWFG 

S7A HaSDRN 

LDA PX 

3TA INIX 

3TA MINX 

3TA MAXX 

LDA PY 

3TA INiY 

3TA MINY 

3TA HAXY 

I'MIABLES. 

DftWOK CRiJ 

;D1D WE 

LDX CKVX 

jRlJN INTO ANOTHER 

W C0L0R2.X 

•.COLOR 2’ 

BNE N0CR3H 

;N0, WE'RE OK. 

JMP CRASH 

;CRft¥«SSSHHHl 

N0CR3H LDX MO'v'lX 

iUPDATE THE 

LOA STKHLD 

iTRACKING 

OIP D1R,X 

jTaBLES W! IH 

3EQ SF<1DIR 

•DIRECTION 

INC MWIX 

INX 

{INFORMATION. 

STA DIR.X 

LOA 


STA LGTH.X 

SAMDIR INC LGTH.X 


LDA #3 

STA BOCNT 

LDA PX 

{NfflJ PLOT THE 

STA PLOTX 

■LINE WE-RE 

LDA PY 

STA PLOTY 

■{DRAWING... 

CCLOOP JSR PLOTCL 


LOY m 


LDA •L0),Y 

AND BITOFF,X 

ORA COLORS,X 

STA (LO),Y 

|1N COLOR 2. 

DEC BDCNT 

BEQ CKCOLR 

LDY MO'v'lX 

LDX DIR.Y 

LDA .XD,X 

CLC 

ADC PLOTX 

STA PLOTX 


LOA YD,X 

CLC 


ADC PLOTY 

STA PLOTY 

JMP CCLOOP 


CKCOLR lDA PLOTX 

(UPDATE X POS. 

STA PX 

mp mxx 

{CHECK MINIMLM 

BCC THINX 

{AND MAXIMUM 

STA JVIXX 

{X i r '.'ALUES 

JMP CHKYMM 

{AND UPDATE IF 

TMIMX W MINX 

{NECESSARY 

8CS CHKYMM 

STA MINX 



CHKYMM LDA PLOTY 

STA PY 

CMP HAXY 

BCC TMINY 

STA MAXY 

JMP ENDTtl 

TMINY CMP MINY 

BCS ENDMH 

STA MINY 

B^IWtl LDX ClCv/X 

{DID WE DRAW 

LDA CK"? 

{INTO 

CMP COLORl ,X 

{COLOR I'T 

BEQ BIDLIN 

{YES' END OF LIME' 

JMP GETSTK 

{NO, GO GET STICK. 

ENDLIN LDA HO 

;WE AREN'T 

STA DRAWFG 

{DRAWING ANYMORE 

JSR SEARCH 

(SEARCH (¥ID FIlL" 

LOA CURLO 

{GET CURRENT 'vALUE 

STA LQI.JK 

LOA CURHI 

STA HIUK 

LDA (115 

(PUT AT 15TH 

STA SLLOC 

(POS. IN 'SCOLIN 

JSR aWOEC 

{COWJERT TO OECimL 

LDA #1 

(NOW REDRAW THE 

STA RDRCOL 

(PLAYER'S PATH IN 

JSR REDRAW 

(COLOR 1 (WHITE). 

LDX LPJEL 

(CHECK TO SEE 

LDA CURLO 

(IF WE-VE HIT 

SEC 

(THE Target. 

SBC T6TlO..X 
■STA LQUK 

LDA CURHI 

SBC TGTHI.X 

STA HIWK 

(HIT TARGET’ 

8PL NEWlVL 

(YES-NEW LEVEL' 

JMP CLR'fRK 

(NO, GO CLEAR TRACK 

NEWLVL LDA LEVEL 

(IF LEVEL ( 15 

CMP #15 

{THEJ) 

BEQ NOLINC 

(IKCREMBIT 

INC LEVEL 

(LEVEL 


INCREASE SCORE HERE 


NOLINC ASL LOWK 

{3D3RE INC = 

ROL HIUK 

(TGT-CUR * 2 

LDA #fFF 

(Oai' T PLACE 

STA SLLOC 

(THE RESULT' 

JSR aWOEC 

(CG'TVERT TO DECIfttL 

LDX #5 

{AiND ADD TO SCORE 

LDY #8 


SCOLP LDA DECIMAL,Y 


CLC 


ADC SCORE.X 


W #10 


8M1 NOCARy 


SEC 


sec #16 


STA SCORE,X 


INC SCOSE-I,X 


JMP NXSPOS 


NOCARY STA SCORE,X 


NXSPOS- INY 


DLX 


3PL SCOLP 


LOX #5 

:Naj p-lace the 

SHSLP LDA SCORE,X 

(SCORE IN 

ORA MO0 

{SCORE LINE #2 

STA SC0LN2+12,X 


DEx 


8PL SHSLP 


LDA #1 

(STOP UB! FOR 

STA FILLOJ 

(A MOMENT 

STA 3H00FF 


JSR PMCLR 

{CLEAR P/M AREA 

LDA #64 

(INITIALIZE 

■STA 3TRH6T 

(THE 
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LDA #128 

iSTAR 

STA PX 

(THE PLAYER'S 

STA STRHOR 

IPOSITION 

LDA PLOTY 

•NEW 

LDA #e 

I'JBl W AGAIN 

STA PY 

(COOROIPWES. 

STA FILLOfJ 


LDA #8 

(REDRAW THE 

JMP CLRDSP 

iGO CLEAR DISPLAY' 

STA RDRCOL 

(PLAYER'S TRACK 



LDA HASORN 

(IN COLOR 8 

jTHIS SECTION HWDLES PLATER' 

S DEATH 

BEQ JCTRK 

JSR REDRAW 


CRASH LDA #8 

;NO WARBLE SOUND 

LDA INlX 

(THIS PART IS 

STA AUDC3 


STA PLOTX 

(NEEDED TO PLOT 

STA AUDC2 


LDA INIY 

(A COLOR 1 BLCuCK 

STA AUDC3 


STA PLOTY 

(AT THE 'START OF 

LDA #1 

;NO PLAYER COLOR 

JSR PLOTCL 

(THE PLAYER'S TRACK 

STA NOCCHG 

ICIWIGE IN VBI 

LDY #e 

(AFTER IT IS ERASED. 

LDA #15 

;SET BRIGHTNESS OF 

LDA B1T0FF,X 

{(NOBODY'S PERFECT') 

STA DEDBRT 

;PLAYER DEATH. 

AND (LO),Y 


TIHRST LDA #5 

;SET DEATH TIMER 

ORA COLORl,X 


STA TIMER 

:TO 5 JIFFIES. 

STA (LO),Y 


DEADCC LDA DEDBRT 

iMOJE 8RIGHTI€3S 

JCTRK LDA #52# 

(RESTORE DRAW LIME 

STA AUDCl 

;TO DEATH SOltJD VOLUME 

STA COLPFl 

(COLOR 

LDA iWlDOM 

|GET RANDOM 

LDA m 


AND WIF 

1 DEATH SOUND 

STA NCCCHG 


STA AUDFI 

(FREQUENCY 

STA HITCLR 


LDA Pj¥1D0M 

(GET fWIDOM 

STA DEADFG 


f^TD «Fe 

(DEATH COLOR 

STA hshort 


ORA DEDBRT 

•ADD BRITE 

JMP CLRTRK 

(AND GO START NEW TRACK 

STA COLPFl 

(PUT IN LINE color 

J 


STA COLPfll 

(AND PLAYER COLOR 

(THIS ROUTINE USES THE 

TRACKING TABLES, 

LDA TIMER 

(TIMER DONE YETT 

(DIR AND LGTH, TO REDRAW THE LINE THE 

BIE DEADCC 

(NO, GO CHANGE COLOR. 

(PLAYER DREW. RDRCOL 

INDICATES THE COLOR 

DEC DEDBRT 

(OEdREMENT BRIGHTNESS 

;DES1RED. 


BPL T1MRS7 

(IF MORE, GO DO IT. 

REDRAW LDA INlX 


DEC LIDES 

(I LESS LIFE 


LDA LIVES 

(GET # LIVES 

STA REX 


ORA #J?8 

(ADD COLOR 

LDA INIY 


STA SC0LN2+1P 

(AND DISPLAY' 

STA RFY 


CMP 

(ZERO LIVES? 

LDA #8 


BNE NOTDED 

(NO' 

STA a 


LDA #GaiS6&255 

(WE'RE COMPLETELY 

REOX* P * Ox X 


STA SCDL 

(DEAD, SHIW 

LDA D1R,X 


LDA #G0MS6/256 

('GAME OiJER' 

STA REDIR 


STA SCDL+I 

(MESSAGE 

LDA L6TH,X 


CKSTRT LDA DDNSOL 

(WAIT FOR START 

STA LGIHy 


AND #1 

(KEY... 

LDA #I 


BNE CKSTRT 

(NOT PRESSEO-LOOP. 

STA Y 


RELEAS LDA CffilSOL 

(KEY PRESSED. NftJ 

REDtLP LDA #3 


AND #1 

(WAIT FOR RELEASE' 

STA TIMES 


BEii RELEAS 

(NOT RELEASED YET' 

T1MES3 LDA REx 


LDA #SC0LlNi255 

(PUT SCORE 

STA PLOTX 


STA SCDL 

(LINE BACK 

LDA REY 


LDA #SC0L1N,''25.6 

(IN OISPWY 

STA PlCT'i 


STa SCDL+1 

(LIST... 

JSR PLOTCL 


JMP START 

(AND START GAME! 

LDY #8 

LDA RDRCOL 


:TH1S SECTION PLACES PLAYER AT A RiWDCN 

BNE RDCl 


iLOCATION IF THERE ARE MORE 1 

.IVES LEFT. 

LDA B!YCiFF,X 
(tID (LO).Y 


NOTDED LDA #I 

(DON'T SHOW 

STA (LO),Y 

JHP oETNRP 


STA SHOOFF 

(PLAYER 


NEULOC LDA Pj^DOM 

(GET RANDiJM X 

B-^DRD LDA m 


iWD #iF£ 

(MUST BE EVEN 

STA DR^'FG 


W #15? 

BCS NEULOC 

STA PLOTX 

(AND i]N SCREEN 

RTS 

RDCl LDABITOFF.X 
AND (LO),Y 


csht LDA m\m 

iGET mmf^. Y 

ORA COLORl ,X 


AND #$7E 

(MU’ST BE PJEN 

STA (LO),Y 


CMP #85 

BCS CSHT 

STA PlOTv 

JSR PLOTCL 

LD? #8 

LDA BITS0N,X 

;Af€' m SCREEN 

SETNRP DEC TIMES 

BEQ NXTY 

LDX REDIR 

LIK^ REX 

ClC 

ADC XO,X 


AND <LO),T' 

(IS LOCATION ON 

STA REX 


iTiP 03LOR1 ,X 

(CaOR I ' 

LDA REY 


»IE NEwlOC 

(NO, TRY AGAIN. 

CLC 


JSR PMCLR 

(IT'S 'OK, CLEAR ?/'M 

ADC Y0,x 


LDh PLOTX 

(SA'JE 

STA REY 
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JHP T1ME33 

NEUDIR LDA .RiVIOGM 

;6ET RANDOM 

NXTr INC t 

AND #7 

iDIRECTlON 

LDA Y 

.IMP DIRCHK 


CMP L81HY 

SAMSTD LOA SIRDIR 

iGET OLD DIRECTION. 

BEQ JNRO 

DIRCHK TAX 

'.CHECK TO SEE 

0CS NXTX 

STA THPDIR 

;1F STAR UILL 

JNRO JMP REDYLP 

LDA 3TRLX 

jBUMP INTO any 

N.XTX INC X 

CLC 

;PLAYFIELD 

LDA X 

ADC 3TRDTX,X 

;OBJECT. 

W HOC'lx 

STA PlOTx 


BEU JRXLP 

LDA 3TRLY 


BCS ENDRD 

CLC 


JRXLP .JMP REOXLP 

ADC STRDTY.X 


1 

STA PLOTt ■ 


i2-BYTE DECIWL CQMJERTER. DDNUERTS 

JSR PLOTa 


■A 2-ByTE binary NUMBER TO A 5-BYIE 

LDY #0 


jOECiHAL NUMBER. UILL PLACE THE 

LDA BITSON,X 


iDECIMAL NUMBER IN SCOLIN IF DESIRED 

AND <LO),Y 

jANY COLLISION? 

;(3LL0C DETERMINES POSITION). 

BEQ WAYCLR 

iNO. ALL CLEAR' 

^PWOEC LDX #4 

LDA #15 

iHlT SOMETHING, 

STA B3CNT 

i START BUMP SOUND Pi 

LDA #0 

mi NEUDIR 

;6Ef NEW DIRECTION. 

CDLP STA OECIWL,X 

UAYCLR LDA PLOTx 

lAOJIJST STAR 

DEX 

CLC 

jCOORDIWTES 

BPL COLP 

ADC #44 

iBaCK TO P,?M 

LDX #4 

STA STRHOR 

•COORDlWfES 

C,KMA6 LW HM 

LOA PLOTY 

•FROM PLAYFIELD. 

CMP HI'JALS.X 

CLC 


BEQ mi 

ADC #13 


BCS SUBEM 

STA SIRHGT 


8CC NOSUB 

LOA THPDIR 

;3ET DIRECTION 

CKM2 LDA LOWK 

STA STRDIR 


|>IP LQVALS.X 

M0>JE3H LOA #3 

;CHECK ALL 

BCS SUBEM ■ 

STA SHORTN 

|4 SHORTS 

NOSUB OEX 

SHIULP lOX SHORTN 

;6ET SHORT # 

BPL CKMA6 

LDA SHORTF.X 

;SHORT ALICE? 

JMP 3H0UIT 

BEQ NXT3M 

;NO 

SUB01 LDA LOUR 

LDA 3H0RTX,X 

jGET X 

SEC 

STA PLOTX 

;COORDINATE 

SBC LffJALS.X 

LDA shorty, x 

•AND Y 

STA LOUK 

STA PLOTY 

: COORD imTE 

LDA HlWk 

JSR PlOTCL 

|1S SHORT 

SBC HIVALS.X 

LDY #0 

iON... 

SIA HlWk 

LDA BJTSON,X 


INC OECimL.X 

AND (LO),Y 


JHP CKMAG 

CMP CULORl.X 

; COLORl? 

SHOUIT LDX tl$4 

BEQ MOOEIT 

jrUP' 

LDY SlLOC 

KILLSH LDX SHORTN 

;STOP THIS SHORf 

BMl SHENO 

LOA #0 

iBY TUra'UNG 

SHOLP LDA DECIMAL.X 

STA SHORTF.X 

JFUNCTION FLAG OFF 

ORA #$De 

NXTai DEC SHORTN 

iMCiRE SHORTS? 

STA SCOLIN,Y 

BPL SHMVLP 

iYES' 

jN"Y 

.JMP TRYSHO 

iNO. 

OEX 

MOVEIT LDA #3 

jTRY 4 

BPL SHOLP 

STa tries 

iOIRECTION3 

SHEND RTS 

LDX SHORTN 

iGET SHORT # 

1 

LDA SHORTO.X 

iAND DIRECTION 

;THIS ROUTINE M0>JE3 THE STAR AROUND ON 

STA OIRSAL' 

iSALiE IT 

'THE PLAYFIELD. THE STAR IS ROTATED AND 

TRiMOO LDX -SHORTN 

iGET SHORT # 

jPLOTTED (IN A PLAYER) IN THE UBI. 

LDY DIRSA'J 

iAND DIRECT 1151 

! 

LOA SHORTX.X 

iFIND OUT 

MOtJSTR LDA SMTIH ;TIME TO MOtJE’^ 

CLC 

iUHERE THE 

BEQ MSTR |YES, GO DO IT 

flOC OIRXjY 

iSHORT UILL 

■JHP TRYSHO jNO, GET STICK 

CMP #159 

iBE NEXT 

MSTR LDA STRSPD -SET MO'JEMENT TIMER 

BCS NXTTRN 

iPOSITUX, 

STA SMTIM jUITH STAR SPEED 

STA PLOTX 


LOA STRHGT jADJUST P.-'N 

LOA SHORTY,X 


SEC jCOORDINATES TO 

CLC 


SBC #13 ;MATCH PLAYFIELD 

AOC D1RY,Y 


STA 3TRLY ;PLOTTING 

CMP «S5 


LDA STRHOR ;COORDINATES. 

BCS NXTTRN 


SEC 

STa ploty 


SBC #44 

JSR PLOTCL 


STA 3TRLX 

LDY #0 


LDA RANDOM :UANT TO CHANGE 

LOA BITSON.X 


CMP #240 ;THE STAR'S DIRECTION? 

AND <LO),Y 

ilS IT O-JER 

BCC SAMSTD ;NO, USE SAME. 

mP COLORl ,X 

iCOLOR I? 
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BEQ 

30TDIR 

iVES! IT-S OK' 


LDA 

S1RHOR 

MXTTRN 0£C 

TRIES 

SHORE 0IKECTIQN35 


SEC 


Bril 

KILLSH 

;NO' 


SBC 

It4<} 

LOX 

TRIES 

iGET NEXT 


STA 

ax 

LDA 

OlRSAiJ 

iTRlAL DIRECTION 


LDA 

STRH8T 

CLC 



SEC 


(ioc 

OADD.X 



SBC 

#!3 


«3 



STA 

SY 

STA 

DIRSA'J 


FINDCL LDX 

D 

.JHP 

TRYMOtJ 

;ANO TRY TO HOtJE' 


LOA 

•3X 

GOTDIR LDX 

3H0RTN 

jGET SHORT # 


CLC 


LDA 

PLOTX 

iSAiJE ALL 


ADC 

SXO.X 

STA 

SHORTx.X 

iNbU SHORT 


31A 

Sx 

LOA 

PLOTY 

iPOSITION 


STA 

pLorx 

SIA 

SHORTY.X 

lAfJD DIRECTION 


LDA 

SY 

LOA 

OIRSAV 

;VALUES! 


CLC 


sta 

SHORTB.X 



ADC 

SYD.X 

.JMP 

TTXT3i 

;00 NEXT SHORT! 


STA 

SY 




STA 

PLOTv 

! THJS ROUTINE GENERATES NEU 


JSR 

PLOTCL 

: SHORTS AT THE PROPER 

TIME IF 


LDY 

tie 

• AN¥ 

ARE INACTiUE. 



LDA 

(LO),r 





AfJD 

BITSON.X 

TRYSHO LDA 

3HTIM2 

i READY tq start 


<W 

COLORI.X 

BEQ 

TRYSH2 

iYES' 


BEQ 

FINDC2' 

.JHP 

6ETSTK 

iNO! 


|>IP 

C0LDR2,X 

TRYSHS LDA 

SHIIMI 

;RESET THE 


BNE 

FINDCL 

STA 

SHTIM2 

.•SHORT TIMER 


LDA 

t<8 

LOX 

its 

;SEARCH FOR 


STA 

TD 

SHSCIVT LDA 

SHORTF.X 

iilWCTIUE SHORT 


.JHP 

F0WD2 

BEG 

STRTSH 

iGOT ONE'*' 

FIN0C2 LDA 

D 

OEX 




STA 

TO 

6PL 

3H3CAN 



JSR 

OECD 

JHP 

OETSTK 

INOTJE FOIM 

FC2A 

JSR 

•SRCHLC 

STRTSH SrX 

HOLDSX 


CMP 

COLORI.X 

STRTSX iDA 

R^TDOM 

;RANDOM SHORT X 


BI^IE 

FC2B 

CMP 

#168 


JSR 

GRABBI 

BCS 

STRTSX 



.JHP 

FIN0C2 

STA 

PLOTX 


FC2B 

CMP 

C0L0R2,X 

3TRT3Y LOA 

RANDOM 

iRWiOm SHORT ! 


BNE 

FC2C 

AND 

W7F 


JSR 

GRaBEM 

aip 

tl35 



JHP 

OUTLIN 

BCS 

STRTSY 


FC2C 

JSR 

INCD 

STA 

PLOTY' 



JHP 

FC2A 

JSR 

PLOTCL 


F0IJND2 LDA 

#0 

■ LOY 

tt0 



sTa 

TRIES 

LDA 

BITSON.X 



JSR 

OECD 

(^D 

(LO),r 


FN02A 

JSR 

SRCHLC 

CMP 

COLOR] ,.X 

;ON COLOR V‘ 


CMP 

C0L0R2,X 

BNE 

STRTSX 

;NO, TRY AGAIN' 


KJE 

FN02B 

lDX 

HULDSX 



JSR 

GRABBI 

LOA 

PLOTX 

SSAIJE ALL 


•JHP 

F0UN02 

sta 

3H0RIX,X 

iSHOR’ 

RiD2B 

L[>A 

TRIES 

LCA 

PLOTY 

;PARrtiETERS 


CLC 


STA 

SHORTY.X 

Random 



ADC 

#1 

LOA 



STA 

TRIES 


#3 



CMP 

Its 

STA 

SHGRTO.X 



BEQ 

FINDCI 

LDA 

til 

iTELL PROGRAM 


JSR 

INCD 

sta 

SHORTF.X 

iSHORT IS ALIVE! 


■JMP 

FN02A 

JMP 

GETSTR 

iLOOP BACK 

FINDCI 

LDA 

D 





STA 

TD 

;SEARCH FOR FILLA8LE AREA 



JSR 

OECD 

1 



FCIA 

JSR 

SRCHLC 

;THIS SECTI SEARCHES FOR THE AREA TO 


CMP 

..G'lOri .X 

iBE filled 

IT IS SO CaiPLlCATEO THAT 


BFJE 

FCIB 

;£XPL(^WTiON OF ITS FINER DETAILS 


JSR 

GRABBI 

;iTOULD BE ALMOST IMPOSSIBLE WITHOUT 


.JMP 

FIN0C2 

;WRITIN6 fJ'JOTHER COMPLETE ARTICLE. AT 

FCIB 

JSR 

INCD 

•.ANY RATE, 

H WORKS. THOSE WHH 


■JHP 

FCIA 

SPECIFIC QUESTIONS SHOULD WRITE ME. 

OOTLIN JSR 

PLSXSY 

iCARE OF A.N.A.L.O.G. 



LOA 

ltd 

1 




sta 

TRIES 

SEARCH LDA #1 


OUTLA 

JSR 

SRCHLC 

STA FILLON 



CMP 

COLORI.X 

LDA #0 



BNE 

OUTLB 

STA 0 



JSR 

GRABEM 
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JHP 

OUTLIN 

OlfTLB LDa 

TRIES 

CLC 


ADC 

#! 

3TA 

TRIES 

CMP 


BEQ 

OUTLD 

JSR 

INCD 

JMP 

OiJTLA 

OUTLD JSR 

LOCTX'i 

UUTLD2 CHP 

COLORS,X 

»'jE 

OUTLE 

JSR 

FILL 

LDA 

tto 

STA 

FILlON 

RTS 


OUTLE JSR 

INCD 

JSR 

SRCHLC 

JMP 

0UTL02 

SRCHLC LDX 

TD 

LCW 

3X 

CLC 


ADC 

SXD.X 

31A 

TX 

STA 

PLOTX 

LDA 

'6''\ 

CLC 


ADC 

SYD,X 

STA 

"Y 

STA 

PLOTV 

LOCTXY LDA 

PLOTX 

CMP 

#!59 

BCS 

NOREAD 

LDA 

PlOTv 

|>1P 

«85 

BCS 

NOREAD 

JSR 

PLOTCL 

LDY 

#6 

LDA 

(LO),T 

AND 

BITSON.X 

RTS 


NOREAO LDA 

tie 

LDX 

no 

RTS 


GRaBEM LDA 

TD 

STA 

D 

LDA 

TX 

SIA 

SX 

LDA 

TY 

STA 

3Y 

RTS 


INCD LDA 

rt c 

TD 

ADC 

«3 

AND 

#3 

STA 

TD 

RTS 


DECD LDA 

TD 

SEC 


SEC 

#i 


«3 

STA 

TD 

RTS 


PLSXSY LDA 

SX 

ST A 

PLOTX 

CHP 

mxx 

BCC 

TM!F£<2 

STA 

MAXX 

■JMP 

CKYM12 

VMiNX2 CMP 

MIMX 

BCS 

CKrfJil' 

STA 

MINX 

CKVft12 LDA 

SY 

STA 

PLOTr 

i31P 

mxr 

BCC 

THINYS 

STA 

TVWY 


JMP EM0(f12 
TM1NV2 H!Nr 
BCS ENDtfi2 
3 Ta mint 

e<Wf12 JSR PLOTCL 
LBV 

LDA BITOFF.X 
AND (L0),r' 

ORA C0L0R2,X 
3TA (L0),y 
RTS 

;F!LL ROUTINE 

;A3 WITH THE 'SEARCH SUBRijlJTlNE, THE 
;F1LL SUBROUTINE IS FAR TOO CM1F1E.X TO 
;EXF1A1N HERE. THIS FILL IS ENTIRELY 
;OIFFERENT FRffii THE SYSTEM'S FILL 
iROUTINE, AS IT WILL FIlL AFTf S*PE 
iTHAT IS OUTLINED IN COLOR 2. 


FILL 

LDA 

no 


STA 

AUDC2 


STA 

AU0C3 


LDA, 

MAXY 


SEC 



SBC 

MINI 


STA 

FILFRQ 


LDA 

MINX 


SEC 



SBC 

ni 


STA 

MINX 


STA 

FX 


LDA 

MINT 


sta 

fy 


SEC 



SBC 

ni 


STA 

HINY 


LDA 

r i i' 

MA.YX 


ADC 

ni 


STA 

mxx 


LDA 

MAXY 


CLC 



ADC 

#1 


sta 

MAXY 


LDA 

no 


STA 

SC'TALY 

CLRC2T 

LDA 

no 


STA 

C2TALY 

LOClPl 

JSR 

LOCATE 


m? 

ns 


BNE 

LOCLPI 

L0CLP2 

INC 

C2TALY 


JSR 

LOCATE 


i3iP 

n2 


BED 

L0CLP2 


AND 

ni 


Bt'IE 

CLRC2T 


LDA 

C2TALY 


CMP 

n; 


BEQ 

fillit 


JSR 

LOCPR'v' 


BEQ 

CLRC'ST 

FlLiIT 

LDA 

Fx 


STA 

PLOTX 


LliA 

F'f 


STA 

PLOTV 


JSR 

PLOTCL 


LDY 

no 


LDA 

YLO/.f 


OFW 

C0L0R3,X 


SI A 

(LO),V 


INC 

sctaly 


JSR 

LOCATE 


ICMP 

no 


BED 

FiLLJi 


;TURN OFF 
; SOUND CHtfJNELS 
;2 ^10 3. 
:1 NIT]al 12E 
iTHE fill 
; SOUND 
iFREQUENCY. 
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tU'iD 

HI 

B«E 

CLRC2T 

LLIft 

HI 

3TA 

C2TALY 

follow JSR 

LOCATE 

CNP 

tie 

B£Q 

L0CLP3 


Hi 

aiE 

CLRC2T 

INC 

C2TALY 

JHP 

FOLLOt-J 

L0CLP3 LOA 

C2TALV 

!>tP 

HI 

BNE 

L0CLP4 

.JHP 

CLRC2T 

L0CLP4 JSR 

locprc 

iTIP 

8nS0N.X 

BEQ 

ncLii 

JHP 

CLRC2T 

LOCATE lDa 

FX 

CLC 


ADC 

HI 

3TA 

FX 

CHP 

HiAXX 

SHE 

3T0FX 

LDA 

I'i 1* 

CURLO 

ADC 

SCIALT 

SIA 

CURLO 

LOA 

CURHl 

ADC 

H0 

STa 

CURHl 

LEtt 

H0 

SlA 

S'C’TALV 

LOA 

HINX 

31A 

FX 

LOA 

H0 

STA 

C2TALY 

LOA 

H$36 

S!a 

AUDCi 

LDa 

FiLFRQ 

STa 

audfi 

BEQ 

NOFFDC 

DEC 

HLFRQ 

NOFFDC LDA 

FY 

CLC 


ADC 

HI 

STA 

F“ 

CHP 

mx'! 

BEQ 

FllEND 

LDA 

FX 

CHP 

M!RX 

BNE 

STOFX 

PLA 


PLA 


JHP 

CLRC2T 

FI LEND =»LA 


PLA 


RTS 


3T0FX LDA 

FX 

STA 

PLOTX 

LDA 

pi 

STA 

PLOTY 

JSR 

PLOm'jL 

LOT 

H0 

LDA 

BITSON.X 

AND 

!LO),r 

CHP 

CfJLDR2,X 

aiE 

N0TC2 

lda 

BlTSai.X 

ORA 

(LO),r 

STA 

ao:-p 

INC 

SCTALY 

LDA 

H2 

RTS 


N0rC2 aiP 

COLDRl.X 

aiE 

NOTCl 
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LDA 

HI 



RTS 



NOTCl 

CHP 

#0 



S'lE 

C3 



RTS 



C3 

LDA 

wTC 

H3 


LOCPRiJ 

L[A 

FX 



STa 

PLOTX 



LDA 

FY 



SEC 




SBC 

HI 



CHP 

HINY 



BEQ 

NOLOCP 



blA 

PLOTY 



JSR 

PLOTCL 



lDY 

H0 



LCA 

8ITS0N,X 



AND 

(LOl.Y 



RTS 



NOLOCP 

LDA 

H0 



j r>y 
Li//\ 

RTS 

H0 


:v81 ROUTINE 


iNTRPT 

lDa 

xEY 

!S SPACE BAR 


CHP 

tJ2! 

PRESSED^ 


a-iE 

NCPRES 

NO, CHECK FOR PAUSE. 


LDA 

isFP 

Clear out 


STA 

KEY 

K£f CODE, 


LOA 

PAUSE 

Ci3<PLEHENT 


EOR 

»FF 

THE pause 


STA 

Pause 

FLAG. 

N0PRE3 

LDA 

PAUSE 

ARE WE PAUSED-P 


BEQ 

MOPAUS 

NO 


JHP 

xnuBv 

PAUSED, HO UBI' 

hqpaus 

LDA 

BSaiT 

HURE B'^IP SOaiDi' 


ail 

NOBS 

NO. 'PROCESS TIHER. 


■JR A 

tlAO 

HlX UQL'JIE WITH 


oTa 

AiJOCH 

PURE TLNE. 


lda 

ma 

SEi UP Bmp 


STa 

AO0F4 

SOUND 'frequency 


DEC 

BSCNI 

AND OECREMENI COUNT. 

NOBS 

'.DA 

TIHER 

HHER DOMT TO JERO"' 


BEQ 

NODEC 

YES, DON T DECREHENT. 


DEC 

TIHER 

DECREHENT TIHER. 

NODEC 

LLA 

3HiIH2 



3EQ 

N00EC2 



DEC 

SHTiMl 



a€ 

N0DEC2 



DEC 

SHT1H2 


N0DEC2 

LDA 

FILLaJ 

ARE WE fllLlNGP 


BEQ 

NOFIlL 

NO, DO RE.ST OF UBl. 


JHP 

xiTuao 

YES, EXIT UBi 

NOFILL 

LDA 

H0 

CLEAR OUT 


STa 

DEADFG 

DEAD FLAG 


STA 

HSHORT 

and SHORT HIT. 


LOA 

PI PL 

WS PLATER i 


AND 

H40C 

HIT.PLAYER i'S'- 


BEQ 

NOHITS 

NO, IT'S OK 


INC 

HSHORT 

yEs*!' 

NOHITS 

lDA 

PipL 

HAS PLAYER 1 


AND 

H-ijl 

HIT Player 0-- 


BEQ 

NOHITP 

NOI 


INC 

Dl'aOFS 

YES"' 

NOHiTs 

lDA 

P0PF 

HAS PI.AYER 3 


AND 

H-ifij 

HIT COLOR r> 


BEQ 

NOHITL 

NO! 


INC 

OtADFS 

YES'!' 

NOHITL 

STA 

HiTCLR 

CLEAR COLL I Si ai. 


LDA 

NO'S TIM 

HO'./EHENT IIHER ZEROP 


BEQ 

NiaiOEC 

YES, D»T'T DECREHENT. 


DEC 

nounti 

DECReeiT TIMER. 

NCHDEC 

iDA 

31T1H 

STAS HiJJE HHER ZERO-' 


BEQ 

mi DEC 

YES. DLN T OECREHeTT. 


DEC 

:3HT!H 

DECREMENT TIMER. 
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rilTDEC LDA GTARCI 

iS'lAR Rul. TIMER ZE 

8EQ STAROT 

ifES, ROTATE STAR! 

DEC 3TARCT 

•DECREMENT TIMER 

JMP UBREST 

iANO SKIP RCTATIUT. 

GTaROT LDA ill 

;3ET ROT. TIMER 

STA STaRCT 

jTO 1 

LDA STRPOS 

•INCREMENT 

CLC 

iSTAR ROTAT!i>I 

ADC #1 

i COUNTER, 

W H? 

•.ALLOW ifiLY 0-S. 

iSTE STOSTP 

;ROT. COUNT OK 

LDA il8 

iZERO ROT. COUTTER. 

STGSTP STA S7RP03 

i'SA'JE ROT. POS. 

UBREST iDr .3TRP0S 

;THIS SECTION 

LDX STRHGT 

;DRA!.«3 THE STAR 

LOA HO 

ilN PLAYER 8 

■STA Pl8-1 

jMEMORr USING 

STA PLtHe.X 

iTHE TABLES 

LDA STAR8! ,Y 

••STARS!' THRU 

.’STA PL8,X 

;' 'STaRBB'' . 

LDA STARB2,r 


STA PL841,X 


LDA STARBSi.Y 


STa P!.842,X 


LDA 3TAR94,y 


STA PL0<3,X 


LDA STaRBj.Y 


STA PL8t4,X 


LDA STARBS.Y 


.'STa PL045,X 


LDA STaRB7,Y 


STA PL84S.X 


LDA STaRBB.Y 


STA PL0+7,X 


LDA 3TRH0R 

I SET STAR' S 

STa HPOSPO 

iHORlZ. POS. 

LDA SHOOFF 

:0K TO SHOI;! PLATER'- 

STE ENDfv'BI 

iNO, EXIT US! 

LDA PX 

jSET PLA'iEK'S 

ClC 

iHORIZa-fTAL 

ADC 114? 

; POSIT iOrl 

STA HPO'SPl 


LDa “v 

iDRAfi! RLA'fER 

CLC 

ilN plater 3 

ADC 11418 

jMEMORy 

TAX 


LDA 86 


STa PL!-3.X 


SlA Pl1-2,X 


STa PL!‘2.,X 


sjA pu+s’.x 


lDA 8448 


SfA PL1-1,X 


STa PLI+I.X 


LDA MAe 


STa PU.X 


LDA NOCCHG 

{COLOR CHANGE OH’ 

BNE ENWBI 

:N0. EXIT UBl 

INC CO! =44! 

;tES, cycle the COLi 


IHE POLLaJlNS ROUTINE USES TWO 
^’LAYERS (2 & 3) TO DISPLAY THE 
“SHORTS." EACH PLAvER IS USED 
TU SHiJj) i SHORT'S. SO SOME 
FLICKER mr BE QBSER'TED. 


eiDVBI INC SHPLIP 
LDA SHFLJP 
Li'R A 
AND lil 
TAY 

LOA CPYSTN.y 
STA CPYST 
LDA SHFLiP 
AlTD ill 
TAr 

LDA ilPL3/25.£ 


;TOGGLE FLIP 
:MASk FLIP 
;TO EITHER 
i0 OR 1 
I PUT IN Y 
iAND GET IMAGE 
;TO USE (+/>,; 
;GET FLIP, 
:MA3K AND 
iPUT IN Y 
;?UT PLAYER 3 


STA DESTHI 

ilN DESTINATION 

LDA 8PL3«<255 

{ADDRESS 

STA OES’LU 

jHl & LO 

LDA 8! 

{SET DE.ST 8 

STA DESTI^I 


LDA SHSTRT.Y 

{GET START 

STA UBxHLD 

(SHORT 8 

SHORLP LDA 88 


LDX DE3TTI1 


LDY 'SHYHLO.X 

{GET LAST INDEX 

LDX 84 

{NOW ERASE 

ERSSHO STA (OESTLOl.Y 

iPRPv'IOUS 

INY 

(SHORT 

DEX 


BPL ERSSHO 


LDX U8XHLD 


LDA SHORTF.X 

{SHORT ALIUE"' 

BEQ NXTSHO 

{NO! 

LDa SHORT);,X 

{GET SHORT'S 

LDY SHORTY,/. 

•COORDI.WES. 

CLC 


AOC 843 


LDX DESTifI 


STA HPOSPi'.X 

{SET HORIZ. POS, 

TYA 


CLC 


ADC 814 


STA SFTt'HLD.X 

{AND UERTNIIAL Pt! 

TAY 


LDX CPYST 


LDA 84 

{NiSJ CORY 

STA CPYCNT 

{SHORT imGE 

3H0C0P LDA SH01H3.X 

(TO THE 

STA (OESTLO),Y 

(PLAYER 

INY 


DEX 


DEC CPYCN: 


BPL SHOCOP 


NXTSHO DEC DESTNM 

(MORE-’ 

BM! U6EN0 

{NO. EXIT' 

LOA DESTLO 

{POINT TO 

SEC 

{NEXT player 

SBC #12B 


STA DE'STLO 


LDA DESTHI 


SBC 88 


■STA DESTHI 


INC UBXHLD 


JMP SHORLP 

{AND LOOP BACK. 

UBEND JMP XTTU8U 

{DONE WITH MB!' 


;CiATA 

DLIST 


DG 

DB 

DB 

DB 

DS 

DB 

D8 

DB 

DB 

DB 

DB 


I70,t78,<70 
54D,DISPi255,DI3P,'256 
$0,iD,*D,$D,*D,ID,5D,IO.$D,$D 
4D,ID,10.$D,ID,$D,JD.ID,$D,JD 
JO,$O,40;$D,J0,$D,5D,tO,$D,$D 
4D,ID,4D,$D.1D,4D,$D,4D,4D,4D 
4D,4D.$D,4D.*D,4D.40,$0,4D,4D 
4D,4D,4D,$D,4D,$D,»D.$D.5D,'JD 
40,$D40,$D,$0,tD.$0,$D,$D.$D 
$D,4D,4D,4D.4D.$D,40,4D,$0,JD 
S0,4D,40,4D,40,t2G,i46 
GCDL DU GCOlIN 
44s 
SC0LN2 

441.DL!ST«(355,DLiST/2S6 


OB 

Dii 

D8 


TITLDL DB 478,47e,47e.47e.s.Te.$78 
D3 470.470,470,438,443' 

OU MASiSG 
DE; 478,447 
DU TITLE 
DB 430,44S 
Di<) AUTHOR 
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08 *70,$70,$30,446 
DU .S7MSG 
DB $4! 

'DU TITLOL 

SCOLIN OB CT,CG,CT,CCOL,0,0,8,8,0,0 
DB 8,CC,CU,CR,CCOL,8,8,e,0.e 
SC0LN2 OB CL,CV,CCOL,0,0,8,CS,CC,CO 
OB CR.C£,!:COL.0,8,8,0,B,0,8,e 
GiDMSG OB 0,0,0,3,8,LG,CA,CM,CE,0 
08 8,CO,DO,C£,CR,e,0,9,6,8 
mCMSG OB 0.9,$21,$2E.$21,$2C,$2F,$27 
DB 0;$23.$2F,$2D,$3O,$35 
DB $34.$2'?.$2E,427,0.0 
TITLE D8 0,0, 8.466, 469,$6L'.$6C,447 
06 $65, $72.0,$75.470 i44!.0 
DB $69,$69;e,0,8 
AUTHOR OB 0,0,8,$A2,$8?.8,0.$B4 

DB 4AF,$A0,e,$A8.$85;$A4,$B3,$AF 
OB 4AE,0,0,0 

3THSG OB 0,0,0,0,$F8,$FSTM36 08 0,0,0,0,$F0,$F2,$E5,$F3 
DB $F3.0,0,$F3,$F4,4E1,4F2,4F4 
08 0 , 0 , 0,0 

jLEUEL TABLES 

fSTLO 08 64,16,224,40,248.212,16,4 

DB 248,224,212,224,68,168,112,212 
TGTHI DB 31,39,46,35,42,48,3?,41,42 
DB 46,48,46,47,47,48,48 
3TAR3P OB 4,4.4,3,3,3,2,2,2.2,2,1,1 
DB 1,1,1 

KILLFG DB 8,0,1.0,1,1,8,1,1,1,1,8,8 

DB 1,1,1. 

SHTIME OB 7,7,7,6,6,6,5,5,5,4,4,4,3 

DB 3,2.1. 

3HSTRT OB 8,2 
SHfHLD OS 2 

SHOIHG OB $33,$58,$28,$58,$33 
DB $28,$28,$F8,$20,$2e 
CPYSTN OB 4,9 
DADD DB $FF,2,1 
OIRX OB 8.1,8,IFF 
DiftY OB $FF,8,l,e 
SHORTX 03 4 
shorty D3 4 
SHORTF OS 4 
SHORTO OS 4 

ZEROl 08 8 

SCORE DB 6,0,0.0,0,8 

SLLOC OB 0 

CURLO DB 8 

CURH! DB 8 

LEUEL DB 8 

PAUSE OB 0 

HASDRM DB 8 

LOUK OB 0 

HIUR DB 8 

SCTALt OB 3 

LIVES DB 8 

■STAR PLAyER-HISSILE IMAGES 

:hARBl OB $3i,$40,$28,$18,$03,$84,$02 
STARB2 OB $42,$43,$28,$ie,$88,$04,$C2 
STARB3 OB $24,$24.$13,$18,$83,$C3,$24 
3TARB4 DB $18.$18;$1C.$1F.$F8,$38.$18 
3TARB5 OB $18,$18,$38,$F8;$1F.$1C,$13 
STARB6 DB $24.$24,$C8.$08.$ie.$13,$24 
3TARB? DB $42,$C2,$04,$88,$10,$28,$43 
STARBS DB $81,$32,$04,$88,$1B,$28,$48 
3TARCT OB 3 
STRPOS OB 0 
3TRH6T OB 8 
STRHOR DB 8 


3TRLX 08 0 
3TRLY DB 8 
TMPOIR OB 0 
STRDIR DB 8 

3TRDTX OB 1,1,8,255,255,255,8,1 
3TRDTV DB 0,1,1,8,1,255,255,255 
3TRSP0 DB 4 

COLORl DB $40,$ie.$64,$91 
COLORS OB $88,$20.$88,$02 
COLORS OB $C6,$30,$8C,$83 
BITSQM OB $C9,$30,$0C.$03 
BITOFF DB $3F.$CF.$F3,$FC 
BXSTRT OB 8,158,158,8 
BYSTRT DB 0,6,84.84' 

BXINC OB 1,0,255,0 
S'flNC DB 0,1,8,255 
BORCJIT DB 15?,35,159,35 
S0RNI11 DB 0 
3DINCX OB 8 
BDINCY DB 8 
8DCNT OB 8 
PXUC DB 8 

PfWC OB 8 

SHOOFF DB 0 

CKX OB 3 

CK'T DB 0 

[MIX OB 8 

IMIY DB 0 

MIMX DB 0 

MINV DB 8 

mXX OB 3 

MAXr DB 0 

REX OB 0 

RE'Y DB 8 

X OB 0 

■y DB 8 

:5X OB 8 

Sy DB 8 

TX OB 0 

TY DB 0 

FX OB 0 

ft DB fl 

TO OS 0 

D OB 0 

BSiTTT OB 0 
FILFRQ DB 3 
TRIES OB 0 
FILLUl DB 8 
CSTALT OB 0 
N0CCH6 DB 8 
0ED6RT OB 8 
3TKHLD OB 0 
RORCOL DB 0 
REDIR DB 8 

LGTH'T OB 3 
TIMES DB 8 
mJ OB 8 
CKVX DB 0 
DRAUFG OB 8 
MOVIX DB 0 
XD OS 0,0,8,0 

DB 0,8.6,1 
OB 0,9,8,255 
DB 0,8,8,8 
TO OB 8,0,0,9 

DB 8,8,8,8 
08 0 , 0 , 0,0 
DB 8.1,255,8 
3X0 08 0,1,0,255 

SyO DB 255,8,1,8 
OECimL DB 0,0,0,0,0 

2ER02 DB 0 

HIUALS OB 0,0,0,3,39 
Lt?^LS DB 1,18.100,232.16 
DIR OS 256 ' 

LGTH DS 256 


END $6000 




























































































































Graphics Mode 3 (4 coLORs-273 bytes) & Mode 0 ( 


CO K 
LUX 
I-IU 
>- 1 - 
CQ . 
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NOTE: Graphics Mode 0 is a text mode full-screen display only. 




Notes 




Get All A.N.A.LO.G. Compendium 
Programs on Disk! 


Special Offer for Compendium Owners Only. 


Only $35.00 per set (3 Disks) 

Yes! Send_Disk set(s) which contains all the 

programs in the A.N.A.LO.G. Compendium to: 


Name 



Address 



City 

State 

Zip 





□ MasterCard 
Account No. 


n Payment Enclosed 


□ VISA 
Expires 


_ Eoreign orders add $5.00 for Air Mail Postage._ 

Yes, Please enter my subscription to; 



[COMPUTING] 

□ 1 year.(12 issues) $28 

□ 2 years.(24 issues) $52 

□ 3 years.(36 issues) $79 


For Fastest Service, 

Call Our Toll-Free 
US Order Line 

800 - 345-8112 

In Pennsylvania call 800-662-2444 


Additional Postage per year: 
Canada & Mexico $8 Surface, $12 Air 
Other Foreign $12 Surface, $48 Air 


Name . 
Address 
City _ 


State. 


Zip. 


□ Check #- 
Card #_ 


□ M.O. #_ 


□ VISA □ MC 
Exp. Date_/_ 


□ Bill me 
-/- 


Your subscription will begin with the first available issue._Pl ease allow 4-6 weeks fo r delivery of first issue. 

TO 

ANALOG COMPUTING 
ON TAPE OR DISK 

Includes magazine with tape or disk 

Cassette.□ 14 year.(6 issues) $48 

□ Full year.(12 issues) $90 

Disk.□ 14 year.(6 issues) $72 

□ Full year.(12 issues) $130 




□ Check #_ 
Card #_ 


□ M.O, #_ 


□ VISA □ MC □ Bill me 
Exp. Date-/- J - 


FOREIGN ORDERS ADD ADDITIONAL $20 TO EACH 6-ISSUE SUBSCRIPTION. 
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THE POST OFFICE 
WILL NOT DELIVER 
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THE MAGAZINE FOR ATARI" COMPUTER OWNERS 


Idmak-DEI 

V^^hCOMPUTING^^^^V 


RO. Box 23 
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POSTAGE 


RO. Box 615 
Holmes, RA 19043 - 










:4 







A.N.A.I_.O.G. 

COMPENDIUM 

. . .js not just aj^(^her *'1001 programs” book. The A.N.AX.O.G. CompeRcdium contains the 
be^ 5f the first ten issues of A.N.A.L.O/G, Computing, the first magazine devoteJUBHy^i^ely to 
Atari home computer,ws^;S 

This volume is a must f6r anyone with an Atari computer. Not only does it co 
equal in quality to many cd'inmercially available, but it is packed with'tutor! 
tional, and useful home aptjiications as well. 

The A,N.A*L*0,G. C^m^iendium is one of the best single sources of high quality^ 
grams you can buy. In facfi-'^^^nii may find that just one program could be worth the price ofthe ehl 
book! 



SBN 


$14,95 


